Vraag : Hoe vang ik subklasse in VB6 gebruiker verlaten muisgebeurtenis over de titelbar?

Ik wil de gebeurtenis vangen wanneer de gebruikers linker-kliks op de titelbar van een vorm in VB6….de muis neer, muis klikt enz.Dank .....

Antwoord : Hoe vang ik subklasse in VB6 gebruiker verlaten muisgebeurtenis over de titelbar?

Er zijn typo in vorig voorbeeld waar de laatste lijn buiten zou moeten zijn als blokverklaring. Onder u kan een het werk voorbeeld vinden om linkertweemaal klikken te ontdekken, dat u dan u kan de andere gebeurtenissen van de verbinding hierboven toevoegen begonnen zal krijgen.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

'Module1.bas

Expliciete optie

Privé Const WM_NCLBUTTONDBLCLK    als lang = &HA3&
Privé Const HTCAPTION             als lang = &H2&
Privé Const GWL_WNDPROC           zoals lang = (- 4)

Privé verklaar de Lib „User32.dll“ van SetWindowLongA van de Functie (ByVal hWnd zoals lang, ByVal nIndex zoals lang, ByVal dwNewLong zoals lang) zoals lang
Privé verklaar de Lib „User32.dll“ van CallWindowProcA van de Functie (ByVal lpPrevWndFunc zoals lang, ByVal hWnd zoals lang, ByVal Msg zoals lang, ByVal wParam zoals lang, ByVal lParam zoals lang) zoals lang

Privé hWindow     zoals lang
Privé func        zoals lang

Openbare SubAttatch (ByVal hWnd zoals lang)
  Als hWindow = 0 toen
    hWindow = hWnd
    func = SetWindowLongA (hWindow, GWL_WNDPROC, AddressOf WndProc)
  Eind als
Sub van het eind

Openbare SubDetatch ()
  Als hWindow <> 0 toen
    Vraag SetWindowLongA (hWindow, GWL_WNDPROC, func)
    hWindow = 0
  Eind als
Sub van het eind
 
Overheidsfunctie WndProc (ByVal hWnd zoals lang, ByVal uMsg zoals lang, ByVal wParam zoals lang, ByVal lParam zoals lang) zoals lang
Als uMsg = WM_NCLBUTTONDBLCLK toen
  Als wParam = HTCAPTION toen
  'TODO: /iets wanneer tweemaal geklikt.
    Debug.Print „Tweemaal geklikt: “; Tijd
  Eind als
Eind als
WndProc = CallWindowProcA (func, hWnd, uMsg, wParam, lParam)
De Functie van het eind



'Form1
Expliciete optie

Privé SubForm_Load ()
  Attatch Me.hWnd
Sub van het eind
 
Privé SubForm_QueryUnload (annuleer als Geheel, UnloadMode als Geheel)
  Detatch
Sub van het eind
Andere oplossingen  
 
programming4us programming4us