home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14474232001.psc / VBSnipletKeeper / Bevel.ctl < prev    next >
Encoding:
Text File  |  2001-01-31  |  2.4 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Bevel 
  3.    BackStyle       =   0  'Transparent
  4.    ClientHeight    =   4050
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   4725
  8.    ScaleHeight     =   4050
  9.    ScaleWidth      =   4725
  10.    Begin VB.PictureBox Picture4 
  11.       BackColor       =   &H00E0E0E0&
  12.       Height          =   15
  13.       Left            =   240
  14.       ScaleHeight     =   15
  15.       ScaleWidth      =   4455
  16.       TabIndex        =   3
  17.       Top             =   3690
  18.       Width           =   4455
  19.    End
  20.    Begin VB.PictureBox Picture3 
  21.       BackColor       =   &H00E0E0E0&
  22.       Height          =   3165
  23.       Left            =   4560
  24.       ScaleHeight     =   3165
  25.       ScaleWidth      =   15
  26.       TabIndex        =   2
  27.       Top             =   675
  28.       Width           =   15
  29.    End
  30.    Begin VB.PictureBox Picture2 
  31.       BackColor       =   &H00808080&
  32.       Height          =   2925
  33.       Left            =   390
  34.       ScaleHeight     =   2925
  35.       ScaleWidth      =   15
  36.       TabIndex        =   1
  37.       Top             =   840
  38.       Width           =   15
  39.    End
  40.    Begin VB.PictureBox Picture1 
  41.       BackColor       =   &H00808080&
  42.       Height          =   15
  43.       Left            =   255
  44.       ScaleHeight     =   15
  45.       ScaleWidth      =   4470
  46.       TabIndex        =   0
  47.       Top             =   795
  48.       Width           =   4470
  49.    End
  50. End
  51. Attribute VB_Name = "Bevel"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = True
  54. Attribute VB_PredeclaredId = False
  55. Attribute VB_Exposed = False
  56. Enum TStyle
  57.   VbLowered = 0
  58.   VbRaised = 2
  59. End Enum
  60.  
  61. Sub BevelSytle(Style As TStyle)
  62.     Select Case Style
  63.         Case VbLowered
  64.             Picture1.BackColor = &H808080
  65.             Picture2.BackColor = &H808080
  66.             Picture3.BackColor = &HFFFFFF
  67.             Picture4.BackColor = &HFFFFFF
  68.             
  69.         Case VbRaised
  70.             Picture1.BackColor = &HFFFFFF
  71.             Picture2.BackColor = &HFFFFFF
  72.             Picture3.BackColor = &HFFFFFF
  73.             Picture4.BackColor = &HFFFFFF
  74.     End Select
  75.     
  76. End Sub
  77.  
  78. Private Sub UserControl_Resize()
  79.     Picture1.Move 0, 0, 20, UserControl.Height
  80.     Picture2.Move 0, 0, UserControl.Width, 20
  81.     Picture3.Move UserControl.ScaleWidth - 20, 0, 20, UserControl.Height
  82.     Picture4.Move 0, UserControl.ScaleHeight - 20, UserControl.Width, 20
  83.     
  84. End Sub
  85.  
  86.