home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Sudoku_-_T207402752007.psc / Button.ctl < prev    next >
Text File  |  2007-07-04  |  5KB  |  168 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Button 
  3.    AutoRedraw      =   -1  'True
  4.    BackStyle       =   0  'Transparent
  5.    CanGetFocus     =   0   'False
  6.    ClientHeight    =   405
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   1080
  10.    MaskColor       =   &H00C0E0FF&
  11.    MaskPicture     =   "Button.ctx":0000
  12.    MouseIcon       =   "Button.ctx":1632
  13.    MousePointer    =   99  'Custom
  14.    Picture         =   "Button.ctx":1784
  15.    ScaleHeight     =   405
  16.    ScaleWidth      =   1080
  17.    ToolboxBitmap   =   "Button.ctx":2DB6
  18.    Begin VB.Timer tmrHiLight 
  19.       Enabled         =   0   'False
  20.       Interval        =   10
  21.       Left            =   360
  22.       Top             =   600
  23.    End
  24.    Begin VB.Image imgLib 
  25.       Height          =   390
  26.       Index           =   2
  27.       Left            =   0
  28.       Picture         =   "Button.ctx":30C8
  29.       Top             =   1740
  30.       Width           =   1080
  31.    End
  32.    Begin VB.Image imgLib 
  33.       Height          =   390
  34.       Index           =   1
  35.       Left            =   0
  36.       Picture         =   "Button.ctx":46FA
  37.       Top             =   1260
  38.       Width           =   1080
  39.    End
  40.    Begin VB.Image imgLib 
  41.       Height          =   390
  42.       Index           =   0
  43.       Left            =   0
  44.       Picture         =   "Button.ctx":5D2C
  45.       Top             =   780
  46.       Width           =   1080
  47.    End
  48.    Begin VB.Label lblCaption 
  49.       Alignment       =   2  'Center
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Caption"
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00C0C0C0&
  62.       Height          =   240
  63.       Left            =   45
  64.       MouseIcon       =   "Button.ctx":735E
  65.       MousePointer    =   99  'Custom
  66.       TabIndex        =   0
  67.       Top             =   60
  68.       Width           =   1005
  69.    End
  70. End
  71. Attribute VB_Name = "Button"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = True
  74. Attribute VB_PredeclaredId = False
  75. Attribute VB_Exposed = False
  76. Option Explicit
  77. Private MouseOver As Boolean
  78.  
  79. Public Event Click()
  80. Public Event MouseIn()
  81. Public Event MouseOut()
  82.  
  83.  
  84. Private Sub lblCaption_Click()
  85.   If Me.Enabled Then RaiseEvent Click
  86. End Sub
  87.  
  88. Private Sub lblCaption_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  89.   If Me.Enabled Then
  90.     If Not MouseOver Then HiLight
  91.   End If
  92. End Sub
  93.  
  94. Private Sub tmrHiLight_Timer()
  95. Dim Cur As POINT
  96.  
  97.   GetCursorPos Cur
  98.   Cur.X = Cur.X - (Extender.Parent.Left + (Extender.Parent.Width - Extender.Parent.ScaleWidth) / 2) \ Screen.TwipsPerPixelX
  99.   Cur.Y = Cur.Y - (Extender.Parent.Top + Extender.Parent.Height - Extender.Parent.ScaleHeight - 30) \ Screen.TwipsPerPixelY
  100.   
  101.   Cur.X = Cur.X * Screen.TwipsPerPixelX - Extender.Left
  102.   Cur.Y = Cur.Y * Screen.TwipsPerPixelY - Extender.Top
  103.   If Not (Cur.X >= 0 And Cur.X <= UserControl.Width _
  104.           And Cur.Y >= 0 And Cur.Y <= UserControl.Height) Then
  105.     tmrHiLight.Enabled = False
  106.     MouseOver = False
  107.     UserControl.Picture = UserControl.imgLib(1).Picture
  108.     UserControl.lblCaption.ForeColor = RGB(196, 196, 196)
  109.     RaiseEvent MouseOut
  110.   End If
  111. End Sub
  112.  
  113. Private Sub UserControl_Click()
  114.   If Me.Enabled Then RaiseEvent Click
  115. End Sub
  116.  
  117. Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  118.   If Me.Enabled Then
  119.     If Not MouseOver Then HiLight
  120.   End If
  121. End Sub
  122.  
  123. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  124.   Me.Caption = PropBag.ReadProperty("Caption", "")
  125.   Me.Enabled = PropBag.ReadProperty("Enabled", True)
  126. End Sub
  127.  
  128. Private Sub UserControl_Resize()
  129.   UserControl.Width = UserControl.imgLib(0).Width
  130.   UserControl.Height = UserControl.imgLib(0).Height
  131. End Sub
  132.  
  133. Public Property Get Caption() As String
  134.   Caption = UserControl.lblCaption
  135. End Property
  136.  
  137. Public Property Let Caption(ByVal vNewValue As String)
  138.   UserControl.lblCaption = vNewValue
  139.   PropertyChanged "Caption"
  140. End Property
  141.  
  142. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  143.   PropBag.WriteProperty "Caption", UserControl.lblCaption.Caption
  144.   PropBag.WriteProperty "Enabled", UserControl.Enabled
  145. End Sub
  146.  
  147. Private Sub HiLight()
  148.   MouseOver = True
  149.   UserControl.Picture = UserControl.imgLib(0)
  150.   UserControl.lblCaption.ForeColor = RGB(255, 255, 255)
  151.   RaiseEvent MouseIn
  152.   If Not tmrHiLight.Enabled Then tmrHiLight.Enabled = True
  153. End Sub
  154.  
  155. Public Property Get Enabled() As Boolean
  156.   Enabled = UserControl.Enabled
  157. End Property
  158.  
  159. Public Property Let Enabled(ByVal vNewValue As Boolean)
  160.   UserControl.Enabled = vNewValue
  161.   If Me.Enabled Then
  162.     UserControl.Picture = UserControl.imgLib(1)
  163.   Else
  164.     UserControl.Picture = UserControl.imgLib(2)
  165.   End If
  166.   PropertyChanged "Enabled"
  167. End Property
  168.