Cuestión : ¿Cómo la subclase de I en VB6 captura acontecimiento dejado usuario del ratón en la barra de título?

Quiero capturar el acontecimiento cuando el usuario izquierdo-chasca en la barra de título de una forma en VB6….el ratón abajo, el tecleo de ratón etc. agradece ..... class= del

Respuesta : ¿Cómo la subclase de I en VB6 captura acontecimiento dejado usuario del ratón en la barra de título?

Hay error tipográfico en el ejemplo anterior donde la línea pasada debe ser exterior si declaración del bloque. Debajo de usted puede encontrar un ejemplo de funcionamiento para detectar el tecleo doble izquierdo, de que le conseguirá comenzado entonces le puede agregar los otros acontecimientos del acoplamiento arriba.

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

Opción explícita

Const privado WM_NCLBUTTONDBLCLK    como de largo = &HA3&
Const privado HTCAPTION             como de largo = &H2&
Const privado GWL_WNDPROC           como de largo = (- 4)

Privado declarar la liberación “User32.dll” de SetWindowLongA de la función (hWnd de ByVal como nIndex de largo, de ByVal como dwNewLong de largo, de ByVal como de largo) como de largo
Privado declarar la liberación “User32.dll” de CallWindowProcA de la función (lpPrevWndFunc de ByVal como hWnd de largo, de ByVal como de largo, Msg de ByVal como wParam de largo, de ByVal como lParam de largo, de ByVal como de largo) como de largo

hWindow privado     como de largo
Funcional privado        como de largo

Attatch secundario público (hWnd de ByVal como de largo)
  Si hWindow = 0 entonces
    hWindow = hWnd
    funcional = SetWindowLongA (hWindow, GWL_WNDPROC, AddressOf WndProc)
  Terminar si
Terminar el submarino

Detatch secundario público ()
  Si hWindow <> 0 entonces
    Llamada SetWindowLongA (hWindow, GWL_WNDPROC, funcionales)
    hWindow = 0
  Terminar si
Terminar el submarino
 
Función pública WndProc (hWnd de ByVal como uMsg de largo, de ByVal como wParam de largo, de ByVal como lParam de largo, de ByVal como de largo) como de largo
Si uMsg = WM_NCLBUTTONDBLCLK después
  Si wParam = HTCAPTION después
  'TODO: /algo cuando el doble chascó.
    Doble de Debug.Print “chascado: ”; Tiempo
  Terminar si
Terminar si
WndProc = CallWindowProcA (funcional, hWnd, uMsg, wParam, lParam)
Función del final



'Form1
Opción explícita

Form_Load secundario privado ()
  Attatch Me.hWnd
Submarino del extremo
 
Form_QueryUnload secundario privado (cancelación como número entero, UnloadMode como número entero)
  Detatch
Submarino del extremo
Otras soluciones  
 
programming4us programming4us