Tlačítko typu "Hover"
Postup:
Na formulář přidejte tlačítko a jeho styl nastavte na na
grafické tlačítko. Do deklarační části formuláře zapište:
Private Declare Function SetCapture Lib "user32"
_
(ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Public Sub sysControlHighLight(ctl As Control, X As Single, _
Y As Single, OriginalBackColor As Long, NewBackColor As Long)
Dim HitTest As Long
On Error Resume Next
HitTest = ctl.hwnd
If Err.Number <> 0 Then Exit Sub
With ctl
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
.BackColor = OriginalBackColor
Else
SetCapture .hwnd
.BackColor = NewBackColor
End If
End With
On Error GoTo 0
End Sub
Na událost Load
formuláře zapište:
Private Sub Form_Load()
Command1.BackColor = vbButtonFace
End Sub
Na událost
MouseMove tlačítka:
Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
sysControlHighLight Command1, X, Y, vbButtonFace, vbRed
End Sub