home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / RedHat_Win185020282005.psc / Bar_Button.ctl < prev    next >
Text File  |  2005-02-06  |  19KB  |  262 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Bar_Button 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0FF&
  5.    ClientHeight    =   930
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   840
  9.    ScaleHeight     =   62
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   56
  12.    Begin RedHatSkin.TrackMouse TrackMouse1 
  13.       Left            =   195
  14.       Top             =   135
  15.       _ExtentX        =   741
  16.       _ExtentY        =   741
  17.    End
  18.    Begin VB.PictureBox Picture1 
  19.       Appearance      =   0  'Flat
  20.       AutoRedraw      =   -1  'True
  21.       BackColor       =   &H00E6E6E6&
  22.       BorderStyle     =   0  'None
  23.       ForeColor       =   &H80000008&
  24.       Height          =   555
  25.       Left            =   105
  26.       ScaleHeight     =   37
  27.       ScaleMode       =   3  'Pixel
  28.       ScaleWidth      =   46
  29.       TabIndex        =   0
  30.       Top             =   315
  31.       Width           =   690
  32.       Begin VB.Label Label1 
  33.          Alignment       =   2  'Center
  34.          BackStyle       =   0  'Transparent
  35.          Caption         =   "Label1"
  36.          BeginProperty Font 
  37.             Name            =   "Tahoma"
  38.             Size            =   9.75
  39.             Charset         =   0
  40.             Weight          =   400
  41.             Underline       =   0   'False
  42.             Italic          =   0   'False
  43.             Strikethrough   =   0   'False
  44.          EndProperty
  45.          Height          =   300
  46.          Left            =   0
  47.          TabIndex        =   1
  48.          Top             =   0
  49.          Width           =   780
  50.       End
  51.    End
  52. End
  53. Attribute VB_Name = "Bar_Button"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = True
  56. Attribute VB_PredeclaredId = False
  57. Attribute VB_Exposed = False
  58.  
  59. Private Const Color_1 = "16,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,3681836,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,14857391,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,13345951,14857391,10715260,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,7626075,15055027,14594219,14067360,4206639,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,15252406,14857391,14067360,14000538,11633534,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,3815994,11505033,15055027,14000538,14393754,14393754,13013130,6177344,6645093,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,15252406,14000538,13867153,14393754,14788512,13407374,12156792,1313802,12369084,-1,-1,-1,-1,-1,14211288,1775640,13345951,14264482,13274759,13867153,14393754,14788512,14393754,12156792,8277834,3815994,-1,-1,-1,-1,-1,6645093,7626075,14725548,12880001,12880001,13867153,14393754,14788512,14393754,13867153,10774111,3152665,9474192,-1,-1,-1,12369084," & _
  60. "1840662,15055027,12682622,12682622,13274759,13867153,14393754,14788512,14393754,13867153,12682622,8802121,1446930,14211288,-1,-1,3815994,11505033,12552064,12156021,12682622,13274759,13867153,13867153,14788512,14393754,14393754,13472652,11695470,5057834,6645093,-1,9474192,4733240,13472652,11629420,12156021,12682622,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12880001,10905697,1313802,12369084,921102,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,3815994,7566195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8553090"
  61.  
  62. Private Const Color_2 = "16,8553090,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7566195,3815994,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,921102,12369084,1313802,10905697,12880001,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12682622,12156021,11629420,13472652,4733240,9474192,-1,6645093,5057834,11695470,13472652,14393754,14393754,14788512,13867153,13867153,13274759,12682622,12156021,12552064,11505033,3815994,-1,-1,14211288,1446930,8802121,12682622,13867153,14393754,14788512,14393754,13867153,13274759,12682622,12682622,15055027,1840662,12369084,-1,-1,-1,9474192,3152665,10774111,13867153,14393754,14788512,14393754,13867153,12880001,12880001,14725548,7626075,6645093,-1,-1,-1,-1,-1,3815994,8277834,12156792,14393754,14788512,14393754,13867153,13274759,14264482,13345951,1775640,14211288,-1,-1,-1,-1,-1,12369084,1313802,12156792,13407374,14788512,14393754,13867153,14000538,15252406,4733240," & _
  63. "9474192,-1,-1,-1,-1,-1,-1,-1,6645093,6177344,13013130,14393754,14393754,14000538,15055027,11505033,3815994,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,11633534,14000538,14067360,14857391,15252406,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4206639,14067360,14594219,15055027,7626075,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,10715260,14857391,13345951,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,14857391,4733240,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,3681836,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1"
  64.  
  65. Private Const Color_3 = "14,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,3815994,8553090,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,6645093,1313802,10778996,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,1446930,5057834,10905697,14393754,0,-1,-1,-1,-1,-1,-1,-1,12369084,3815994,3152665,8802121,11695470,12880001,14393754,0,-1,-1,-1,-1,-1,14211288,6645093,1313802,8277834,10774111,12682622,13472652,13472652,14393754,0,-1,-1,-1,-1,9474192,1775640,6177344,12156792,12156792,13867153,13867153,14393754,13867153,14393754,0,-1,-1,12369084,3815994,4206639,11633534,13013130,13407374,14393754,14393754,14393754,14393754,14393754,14393754,0,14211288,6645093,1840662,10715260,14067360,14000538,14393754,14788512,14788512,14788512,14788512,14788512,14788512,14393754,0,10461087,3681836,14857391,14857391,14594219,14067360,14393754,14393754,14393754,14393754,14393754,13867153,14393754,14393754,0,14211288,3815994,4733240,13345951,15055027,14857391,14000538,13867153,13867153,13867153,13867153,13867153,13867153,14393754," & _
  66. "0,-1,-1,9474192,1775640,7626075,15252406,15055027,14000538,13274759,12880001,13274759,13274759,13472652,14393754,0,-1,-1,-1,14211288,6645093,1840662,11505033,15252406,14264482,12880001,12682622,12682622,12682622,14393754,0,-1,-1,-1,-1,-1,12369084,3815994,4733240,13345951,14725548,12682622,12156021,12156021,14393754,0,-1,-1,-1,-1,-1,-1,-1,9474192,1775640,7626075,15055027,12552064,11629420,14393754,0,-1,-1,-1,-1,-1,-1,-1,-1,14211288,6645093,1840662,11505033,13472652,14393754,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,3815994,4733240,10778996,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,921102,7566195"
  67.  
  68. Private Const Color_4 = "21,-1,-1,-1,-1,14211288,8553090,3815994,3815994,3815994,5723991,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10461087,1514263,4679752,7319665,7521397,6208353,3967038,1589529,2041375,10461087,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,11382189,2239010,10278301,10278301,9096844,10278301,8308864,9096844,6733416,3381046,600074,5723991,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,2698025,11323821,11722419,11000488,5420629,1202708,600074,400902,2309412,3633977,2267173,604171,6645093,-1,-1,-1,-1,-1,-1,-1,-1,9474192,6383969,13888724,12772803,9096844,1469977,4737096,14211288,15132390,12369084,6645093,1054480,805390,201219,-1,-1,-1,-1,-1,-1,-1,-1,4737096,11581616,14282458,13101000,7521397,1988128,9474192,15132390,7566195,7566195,-1,-1,9474192,8553090,-1,-1,-1,-1,-1,-1,-1,-1,3815994,13293258,14282458,13101000,8440194,5872987,2829099,2829099,4942156,1451287,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,11385006,13363660,12444606,10672292,9096844,6058077,11187882,11722419,2306851," & _
  69. "-1,14211288,7566195,11382189,-1,-1,-1,-1,-1,-1,-1,-1,8553090,8752005,13888724,11722419,10672292,9687445,12444606,13363660,11197356,0,-1,7566195,2306851,4015933,1514263,4737096,9474192,13290186,-1,-1,-1,-1,13290186,3028270,14411740,11722419,9884568,8834184,8834184,6733416,8834184,0,-1,7566195,1336342,11722419,14939107,11846580,6058077,1909533,2829099,6645093,12369084,-1,-1,3815994,6846057,10672292,8834184,7915131,7061613,5945949,5420629,0,-1,7566195,1669148,10278301,12772803,12444606,11197356,8834184,6471012,2583849,133634,14211288,3815994,4149824,9488273,8440194,7849593,7061613,6208353,5157969,2401064,2829099,-1,7566195,1669148,9687445,11722419,11197356,10672292,9687445,6993772,600074,5723991,11382189,1584921,7319665,10278301,11000488,9687445,7849593,5157969,4238916,2138404,3815994,-1,6645093,1669148,8834184,10672292,10540962,9884568,7915131,1521688,6645093,15132390,-1,8553090,3815994,989455,3823931,6131039,7847033,7258737,4632905,2138404,3815994," & _
  70. "-1,3815994,3245108,8308864,6733416,8440194,8834184,7521397,2330662,1907997,15132390,-1,-1,-1,14211288,10461087,5723991,1907997,1059601,1202708,1472025,3815994,-1,3815994,4689226,6208353,5420629,5420629,8177790,7849593,4961102,668171,11382189,-1,-1,-1,-1,-1,-1,-1,12369084,8553090,3815994,9474192,-1,3815994,6133343,4815691,1584921,5945949,6733416,6733416,6208353,1265941,7566195,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,2306851,4737096,4737096,4553031,6471012,5945949,5420629,1988128,7566195,-1,-1,-1,-1,-1,-1,-1,-1,10461087,133634,3815994,11382189,13290186,11382189,15132390,10461087,4220226,6471012,4961102,4632905,1589529,10461087,-1,-1,-1,-1,-1,-1,-1,-1,10461087,600074,1669148,668171,1907997,4737096,5723991,2369828,7645558,4632905,4173378,3514680,1054480,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,7566195,600074,2267173,2138404,4098112,4557895,7061613,4173378,3582521,3188788,930832,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,1054480,2583849,2529834,2860591," & _
  71. "2991921,2860591,2330662,600074,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,7566195,1907997,400902,600074,201219,3815994,11382189,-1,-1,-1"
  72.  
  73. Private Const Color_5 = "21,-1,-1,-1,-1,-1,-1,14211288,4737096,7566195,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,4737096,3355443,3355443,6118749,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,8553090,2368548,7566195,7105644,6052956,1842204,200737,792618,792618,792618,792618,792618,792618,1513239,5723991,10461087,-1,-1,-1,-1,-1,12369084,657930,7105644,7105644,7566195,7105644,7105644,5597053,2777514,3239372,3699923,3766744,3766744,3766744,3766744,2314384,401230,5723991,-1,-1,-1,14211288,2829099,6052956,7566195,7105644,7105644,7105644,7105644,6579300,1315860,867996,1133736,1333939,1333939,1333939,1333939,1333939,1000583,3815994,-1,-1,-1,5723991,4408131,7566195,7566195,7566195,7105644,7566195,7105644,2829099,467543,935073,1333939,1333939,1333939,1333939,1333939,1333939,1000583,3815994,-1,-1,9474192,2368548,7566195,7566195,7566195,7566195,7566195,7566195,4408131,267056,867996,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1000583,3815994,-1,12369084,1513239," & _
  74. "7566195,8026746,7566195,7566195,7566195,7105644,6052956,527898,801426,1266606,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1000583,3815994,14211288,2829099,6052956,8026746,8026746,7566195,7566195,7566195,7105644,1315860,734856,1133736,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1000583,3815994,6645093,4079166,8026746,8026746,7566195,7566195,7566195,7566195,2829099,467543,935073,1333939,1333169,1133736,1133736,1133736,1133736,1133736,1067686,1133736,801150,3815994,1315860,8026746,8026746,8026746,8026746,8026746,7566195,4802889,267056,935073,1333169,1333939,1266606,5732017,10858953,11122125,11122125,11714261,11714261,11911641,9081764,3815994,2829099,3355443,8026746,8026746,8026746,8026746,6579300,527898,801426,1266606,1333939,1333939,1266606,5732017,14342874,14342874,12895428,10329501,15461355,15461355,11842740,3815994,13290186,921102,3355443,6052956,8026746,8026746,1315860,601717,1133736,1333939,1333939,1333939,1333169," & _
  75. "7375288,14342874,14342874,9145227,4802889,15461355,15461355,11842740,4276545,-1,10461087,657930,3355443,4408131,4408131,268090,934303,1133736,1333939,1333939,1333939,1133736,7375288,14342874,14342874,14869218,14869218,15461355,15461355,11842740,3815994,-1,-1,6645093,1315860,3355443,3355443,657930,668286,867996,1333169,1333939,1333939,1333169,7375288,14342874,14342874,14869218,14869218,15461355,15461355,11842740,3815994,-1,-1,-1,2829099,2368548,3355443,2368548,330259,933769,934303,1333939,1333939,1333169,5732017,10858953,11122125,11122125,11451090,11714261,11911641,9081764,3815994,-1,-1,-1,13290186,921102,2829099,3355443,1842204,268090,867996,1133736,1333939,1333169,1133736,1133736,1133736,1133736,1067686,1133736,1133736,933769,3815994,-1,-1,-1,-1,10461087,657930,3355443,3355443,1315860,534113,867996,1333169,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,3815994,-1,-1,-1,-1,-1,6645093,1315860,3355443,2829099,330259,734856,934303," & _
  76. "1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,3815994,-1,-1,-1,-1,-1,-1,2829099,1842204,3355443,2368548,133917,867996,1133736,1333939,1333939,1333939,1333939,1333939,1333939,1333939,1333939,3815994,-1,-1,-1,-1,-1,-1,14211288,3815994,1119515,2368548,1842204,401230,867996,1333169,1333939,1333939,1333939,1333939,1333939,1333939,1333939,3815994,-1,-1,-1,-1,-1,-1,-1,-1,11382189,3815994,657930,0,0,0,0,0,0,0,0,0,0,7566195,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,11382189,7566195,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1"
  77.  
  78. Private Over As Boolean
  79. Private Down As Boolean
  80.  
  81. Private Hold_Caption As String
  82. Private Hold_Icon As Integer
  83. Private Hold_Enabled As Boolean
  84.  
  85. Public Event Clicked()
  86. Public Event MouseOver()
  87. Public Event MouseOff()
  88.  
  89.  
  90. Property Get Enabled() As Boolean
  91. Enabled = Hold_Enabled
  92. End Property
  93.  
  94. Public Property Let Enabled(NewValue As Boolean)
  95. Hold_Enabled = NewValue
  96. LoadGUI
  97. End Property
  98.  
  99. Property Get Icon() As Integer
  100. Icon = Hold_Icon
  101. End Property
  102.  
  103. Public Property Let Icon(NewValue As Integer)
  104. Hold_Icon = NewValue
  105. LoadGUI
  106. End Property
  107.  
  108.  
  109. Property Get Caption() As String
  110. Caption = Hold_Caption
  111. End Property
  112.  
  113. Public Property Let Caption(NewValue As String)
  114. Hold_Caption = NewValue
  115. Label1.Caption = NewValue
  116. End Property
  117.  
  118. Private Function LoadBmpMenuLines(Legnth As Integer, ColorPallet As String, X As Integer, Y As Integer, Optional Gray As Boolean = True, Optional Brightness As Integer = 0) As Integer
  119.     If ColorPallet = "" Then Exit Function
  120.     Dim PixCount
  121.     Dim Colors() As String, CurrentRow, CurrentColumn, Count, Rows
  122.     Colors = Split(ColorPallet, ",")
  123.     Rows = Int(Split(ColorPallet, ",")(0))
  124.     For Count = 1 To UBound(Colors)
  125.         If CurrentRow > (Rows) Then CurrentRow = 0: CurrentColumn = CurrentColumn + 1
  126.             If Colors(Count) <> -1 Then
  127.                 If Gray = True Then
  128.                 Picture1.Line (X + CurrentColumn, Y + CurrentRow)-(X + CurrentColumn + Legnth, Y + CurrentRow), AdjustBrightness(Colors(Count), Brightness)
  129.                 Else
  130.                 Picture1.Line (X + CurrentColumn, Y + CurrentRow)-(X + CurrentColumn + Legnth, Y + CurrentRow), MakeGrey(Colors(Count))
  131.                 End If
  132.             End If
  133.         CurrentRow = CurrentRow + 1
  134.     Next
  135.     LoadBmpMenuLines = CurrentColumn
  136. End Function
  137.  
  138. Function LoadGUI()
  139. Picture1.Top = 0
  140. Picture1.Left = 0
  141. Picture1.Width = UserControl.Width
  142. Picture1.Height = UserControl.Height
  143. Picture1.Cls
  144.  
  145. If Hold_Enabled = True Then
  146. LoadIcon
  147. Else
  148. LoadIcon , , , False
  149. End If
  150.  
  151. Label1.Top = UserControl.ScaleHeight - Label1.Height
  152. Label1.Left = 0
  153. Label1.Width = UserControl.ScaleWidth
  154. End Function
  155.  
  156. Function LoadGUI_Over()
  157. Picture1.Cls
  158.  
  159. LoadIcon 50
  160.  
  161. Picture1.Line (UserControl.ScaleWidth - 2, 0)-(UserControl.ScaleWidth - 2, UserControl.ScaleHeight), 12895428
  162. Picture1.Line (UserControl.ScaleWidth - 1, 0)-(UserControl.ScaleWidth - 1, UserControl.ScaleHeight), 16119285
  163.  
  164. Picture1.Line (1, 0)-(1, UserControl.ScaleHeight), 12895428
  165. Picture1.Line (2, 0)-(2, UserControl.ScaleHeight), 16119285
  166.  
  167.  
  168. Label1.Top = UserControl.ScaleHeight - Label1.Height
  169. Label1.Left = 0
  170. Label1.Width = UserControl.ScaleWidth
  171. End Function
  172.  
  173. Function LoadGUI_Down()
  174. Picture1.Cls
  175.  
  176. LoadIcon 50, 1, 2
  177.  
  178. Picture1.Line (UserControl.ScaleWidth - 1, 0)-(UserControl.ScaleWidth - 1, UserControl.ScaleHeight), 12895428
  179. Picture1.Line (UserControl.ScaleWidth - 2, 0)-(UserControl.ScaleWidth - 2, UserControl.ScaleHeight), 16119285
  180.  
  181. Picture1.Line (2, 0)-(2, UserControl.ScaleHeight), 12895428
  182. Picture1.Line (1, 0)-(1, UserControl.ScaleHeight), 16119285
  183.  
  184. Label1.Top = UserControl.ScaleHeight - Label1.Height + 2
  185. Label1.Left = 2
  186. Label1.Width = UserControl.ScaleWidth
  187. End Function
  188.  
  189. Private Function LoadIcon(Optional Brightness As Integer = 0, Optional Add_X As Integer = 0, Optional Add_Y As Integer = 0, Optional NOGrey As Boolean = True)
  190. Select Case Hold_Icon
  191. Case 0
  192. LoadBmpMenuLines 1, Color_1, ((UserControl.ScaleWidth / 2) - 8) + Add_X, (UserControl.ScaleHeight * 0.25) + Add_Y, NOGrey, Brightness
  193. Case 1
  194. LoadBmpMenuLines 1, Color_2, ((UserControl.ScaleWidth / 2) - 8) + Add_X, (UserControl.ScaleHeight * 0.25) + Add_Y, NOGrey, Brightness
  195. Case 2
  196. LoadBmpMenuLines 1, Color_3, ((UserControl.ScaleWidth / 2) - 8) + Add_X, (UserControl.ScaleHeight * 0.25) + Add_Y, NOGrey, Brightness
  197. Case 3
  198. LoadBmpMenuLines 1, Color_4, ((UserControl.ScaleWidth / 2) - 8) + Add_X, (UserControl.ScaleHeight * 0.25) + Add_Y, NOGrey, Brightness
  199. Case 4
  200. LoadBmpMenuLines 1, Color_5, ((UserControl.ScaleWidth / 2) - 8) + Add_X, (UserControl.ScaleHeight * 0.25) + Add_Y, NOGrey, Brightness
  201. End Select
  202. End Function
  203.  
  204. Private Sub TrackMouse1_MouseLeftDown()
  205. If Hold_Enabled <> True Then Exit Sub
  206. Down = True
  207. LoadGUI_Down
  208. End Sub
  209.  
  210. Private Sub TrackMouse1_MouseLeftUp()
  211. If Hold_Enabled <> True Then Exit Sub
  212. Down = False
  213. LoadGUI_Over
  214. RaiseEvent Clicked
  215. End Sub
  216.  
  217. Private Sub TrackMouse1_MouseOut()
  218. If Hold_Enabled <> True Then Exit Sub
  219. Over = False
  220. LoadGUI
  221. RaiseEvent MouseOff
  222. End Sub
  223.  
  224. Private Sub TrackMouse1_MouseOver()
  225. If Hold_Enabled <> True Then Exit Sub
  226. Screen.MousePointer = 0
  227. If Over <> True And Down <> True Then
  228. LoadGUI_Over
  229. Over = True
  230. End If
  231. RaiseEvent MouseOver
  232. End Sub
  233.  
  234. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  235. Hold_Caption = PropBag.ReadProperty("Hold_Caption", "Button")
  236. Hold_Icon = PropBag.ReadProperty("Hold_Icon", 0)
  237. Hold_Enabled = PropBag.ReadProperty("Hold_Enabled", True)
  238. Label1.Caption = Hold_Caption
  239. End Sub
  240.  
  241. Private Sub UserControl_Resize()
  242. LoadGUI
  243. End Sub
  244.  
  245. Private Sub UserControl_Show()
  246. LoadGUI
  247. End Sub
  248.  
  249. Function SubClassMe(SubClass As Boolean)
  250. If SubClass = True Then
  251. TrackMouse1.Watch Picture1
  252. Else
  253. TrackMouse1.CloseWatch
  254. End If
  255. End Function
  256.  
  257. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  258. PropBag.WriteProperty "Hold_Caption", Hold_Caption, "Button"
  259. PropBag.WriteProperty "Hold_Icon", Hold_Icon, 0
  260. PropBag.WriteProperty "Hold_Enabled", Hold_Enabled, True
  261. End Sub
  262.