Question : Comment la sous-classe d'I dans VB6 capturent-elles l'événement de souris laissé par utilisateur sur la barre de titre ?

Je veux capturer l'événement quand les gauche-clics d'utilisateur sur la barre de titre d'une forme dans VB6….la souris vers le bas, le clic de souris etc. remercie ..... class= de

Réponse : Comment la sous-classe d'I dans VB6 capturent-elles l'événement de souris laissé par utilisateur sur la barre de titre ?

Il y a typo dans l'exemple précédent où la dernière ligne devrait être extérieur si rapport de bloc. Au-dessous de vous pouvez trouver un exemple de fonctionnement pour détecter le double clic gauche, celui vous mettrez en route alors te pouvez ajouter les autres événements du lien ci-dessus.

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

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é
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us