'Module1.bas
Option explicite
Const privé WM_NCLBUTTONDBLCLK en tant que longtemps = &HA3&
Const privé HTCAPTION en tant que longtemps = &H2&
Const privé GWL_WNDPROC en tant que longtemps = (- 4)
Privé déclarer la bibliothèque « User32.dll » de SetWindowLongA de fonction (hWnd de ByVal en tant que nIndex longtemps, de ByVal en tant que dwNewLong longtemps, de ByVal en tant que longtemps) en tant que longtemps
Privé déclarer la bibliothèque « User32.dll » de CallWindowProcA de fonction (lpPrevWndFunc de ByVal en tant que le hWnd longtemps, de ByVal en tant que longtemps, Msg de ByVal en tant que wParam longtemps, de ByVal en tant que lParam longtemps, de ByVal en tant que longtemps) en tant que longtemps
hWindow privé en tant que longtemps
Fonctionnel privé en tant que longtemps
Attatch secondaire public (hWnd de ByVal en tant que longtemps)
Si hWindow = 0 puis
hWindow = hWnd
fonctionnel = SetWindowLongA (hWindow, GWL_WNDPROC, AddressOf WndProc)
Finir si
Finir le sous-marin
Detatch secondaire public ()
Si hWindow <> 0 puis
Appel SetWindowLongA (hWindow, GWL_WNDPROC, fonctionnels)
hWindow = 0
Finir si
Finir le sous-marin
Fonction publique WndProc (hWnd de ByVal en tant qu'uMsg longtemps, de ByVal en tant que wParam longtemps, de ByVal en tant que lParam longtemps, de ByVal en tant que longtemps) en tant que longtemps
Si uMsg = puis WM_NCLBUTTONDBLCLK
Si wParam = puis HTCAPTION
'TODO : /quelque chose quand le double a cliqué.
Double de Debug.Print « cliqué : » ; Temps
Finir si
Finir si
WndProc = CallWindowProcA (fonctionnel, hWnd, uMsg, wParam, lParam)
Fonction de fin
'Form1
Option explicite
Form_Load secondaire privé ()
Attatch Me.hWnd
Sous-marin d'extrémité
Form_QueryUnload secondaire privé (annulation comme nombre entier, UnloadMode comme nombre entier)
Detatch
Sous-marin d'extrémité
|
