Postup:
Založte nový projekt s modulem
a formulářem.
V modulu definujte:
Public Declare
Function SetCapture Lib "user32" Alias "SetCapture" (ByVal
hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture"
() As Long
*Každá deklarace
musí být celá na samostatném řádku
Ve formuláři přidejte tlačítko
cmdMouse, a na událost MouseMove zapište následující kód:
With cmdButton
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
'Zde zapište váš kód při opuštění
Else
'Myš je nad tlačítkem, začínáme sledovat pro obdržení
'zprávy, kdy myš opustí tlačítko
SetCapture .hwnd
'Zde zapište Váš kód při najetí na tlačítko
End If
End If
End With
|