|
deklarace umístěné v modulu
Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
kód pro událost pro tlačítko Command1
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
'Ukazatel je mimo tlačítko, uvolnit události sledování
ReleaseCapture
Else
'Myš je nad tlačítkem, začínáme sledovat pro obdržení
'zprávy, kdy myš opustí tlačítko
SetCapture .hwnd
'zde umístíme kód pro zobrazení bubliny
End If
End If
End Sub
|