Pohyb myši přes tlačítko

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

Zpět

Autor: The Bozena