Questione : Come la sottoclasse di I in VB6 blocca l'evento del mouse lasciato utente sulla barra di titolo?

Voglio bloccare l'evento quando l'utente di sinistra-si scatta sulla barra di titolo di una forma in VB6….il mouse giù, lo scatto di mouse ecc. ringrazia ..... class= del

Risposta : Come la sottoclasse di I in VB6 blocca l'evento del mouse lasciato utente sulla barra di titolo?

Ci è typo nell'esempio precedente dove l'ultima linea dovrebbe essere parte esterna se dichiarazione del blocco. Sotto voi potete trovare un esempio di funzionamento per la rilevazione dello scatto doppio di sinistra, quello lo otterrete iniziato allora potete aggiungere gli altri eventi dal collegamento qui sopra.

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

Opzione esplicita

Const riservato WM_NCLBUTTONDBLCLK    come lungamente = &HA3&
Const riservato HTCAPTION             come lungamente = &H2&
Const riservato GWL_WNDPROC           come lungamente = (- 4)

Riservato dichiarare il movimento di liberazione “User32.dll„ di SetWindowLongA di funzione (hWnd di ByVal come nIndex di ByVal, lungamente come dwNewLong di ByVal, lungamente come lungamente) come lungamente
Riservato dichiarare il movimento di liberazione “User32.dll„ di CallWindowProcA di funzione (lpPrevWndFunc di ByVal come il hWnd di ByVal, lungamente come lungamente, Msg di ByVal come wParam di ByVal, lungamente come lParam di ByVal, lungamente come lungamente) come lungamente

hWindow riservato     come lungamente
Funzionale riservato        come lungamente

Attatch secondario pubblico (hWnd di ByVal come lungamente)
  Se hWindow = 0 allora
    hWindow = hWnd
    funzionale = SetWindowLongA (hWindow, GWL_WNDPROC, AddressOf WndProc)
  Concluder se
Concludere il sommergibile

Detatch secondario pubblico ()
  Se hWindow <> 0 allora
    Chiamata SetWindowLongA (hWindow, GWL_WNDPROC, funzionali)
    hWindow = 0
  Concluder se
Concludere il sommergibile
 
Funzione pubblica WndProc (hWnd di ByVal come uMsg di ByVal, lungamente come wParam di ByVal, lungamente come lParam di ByVal, lungamente come lungamente) come lungamente
Se uMsg = WM_NCLBUTTONDBLCLK allora
  Se wParam = HTCAPTION allora
  'TODO: /qualcosa quando il doppio si è scattato.
    Doppio di Debug.Print “scattato: „; Tempo
  Concluder se
Concluder se
WndProc = CallWindowProcA (funzionale, hWnd, uMsg, wParam, lParam)
Funzione di conclusione



'Form1
Opzione esplicita

Form_Load secondario riservato ()
  Attatch Me.hWnd
Sommergibile dell'estremità
 
Form_QueryUnload secondario riservato (annullamento come numero intero, UnloadMode come numero intero)
  Detatch
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us