Discussion :

[soso78]

Salut,

J'ai implémenté dans mon contrôle dynamique un menu contextuel.

Celui-ci marche bien, excepté que l'on ait obligé de cliquer 2 fois sur le bouton droite de la souris ! Au premier clique, c'est le menu contextuel standard de Windows qui est affiché !

Pourquoi ?

Voici le code, qui me semble tout à fait normal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  'Vérifiez si le bouton droit de la souris a été actionné.
  If Button = 2 Then PopupMenu mnuContext

Merci par avance.

[OhMonBato]

C'est quoi ton contrôle dynamique ?

[soso78]

Une zone de texte

[OhMonBato]

En allant sur Google et en tapant "desactiver menu contextuel VB texte", le PREMIER lien sur lequel je tombe est celui ci :

http://support.microsoft.com/kb/224302/fr

tout y est expliqué, le code donné...

[soso78]

Ah oui en effet ...

J'ai fait une recherche sur le forum mais pas... sur google !

Merci.

[soso78]

Salut,

Je remonte le sujet car j'ai transformé le textbox en usercontrol, et le problème revient.

Car, même si cela semble fonctionner avec l'environnement VB, ce n'est pas le cas dès que j'exécute de manière autonome le programme. Je me retrouve avec mes 2 menus contextuels.

Mon contrôle est implémenté sur ma form par la méthode "load". Voilà ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    'Création du nouveau contrôle
    Load fldTextZone(intIndex)
 
    Set fldTextZone(intIndex).Container = FrScreenOut
 
    With fldTextZone(intIndex)
      'Désactive le menu contextuel Windows
      gHW = .hWnd
      Hook
...
  End With

Le UnHook se trouve au niveau Terminate de la form.

Que faire pour éliminer ce problème ?

Merci par avance.

[LeForestier]

bonjour,
J'ai testé sur un UC et cela fonctionne parfaitrement, l'erreur que tu fait est de mettre cela dans ta forme.

Dans le projet de ton UC ajouter un module.
Mettre les fonctions et déclarations dans ce module

et dans l'UC mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserControl_Initialize()
   gHW = Text1.hWnd
   Hook
End Sub
 
Private Sub UserControl_Terminate()
   Unhook
 
End Sub

Et le texte n'a plus de menu .
A+

[soso78]

Ok, merci de ta réponse.

Malgré tout, un autre problème lié à celui-ci.

Lorsque je rajoute les déclarations nécessaires au fonctionnement de la procédure hook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Declare Function SetWindowLong Lib "user32" Alias _
   "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
 
Declare Function CallWindowProc Lib "user32" _
   Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
   ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long

J'ai le message suivant :

Des constantes, chaînes de longueur fixe, tableaux, types définis par l'utilisateur et instruction Declare ne sont pas autorisés comme membres public de modules d'objet

Bon, alors, j'ai bien sûr supprimé les déclarations qui ne sont pas nécessaires dans UC. Voici ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Declare Function SetWindowLong Lib "user32" Alias _
   "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
 
Declare Function CallWindowProc Lib "user32" _
   Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
   ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long
 
 
Const GWL_WNDPROC = (-4)
Const WM_CONTEXTMENU = &H7B
 
Dim lpPrevWndProc As Long
Dim gHW As Long
 
Sub Hook()
   lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, _
   AddressOf gWindowProc)
End Sub
 
Sub Unhook()
   Dim temp As Long
   temp = SetWindowLong(gHW, GWL_WNDPROC, lpPrevWndProc)
End Sub

Quelle est la syntaxe exacte pour que ça fonctionne ?

Merci par avance.

[Delbeke]

Essaye avec des Private Declare

[soso78]

Ok, c'est mieux, mais toujours un problème ;-)

Maintenant, sur la fonction Hook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Hook()
   lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf gWindowProc)
End Sub

j'ai le message suivant :

Utilisation incorrecte de l'opérateur AddressOf

S'il est incorrecte, par quoi le remplacer ?

[Delbeke]

AddressOf ne fonctionne que sur une sub écrite dans un module. C'est peut être çà le problème

[soso78]

Ok, c'est fort possible en effet. Mais je ne suis pas assez "calé" pour savoir comment le modifier...

[LeForestier]

Tu n'a pas bien suivi les explications données précédamment...
dans le projet de l'UserControl tu ajoute un Module et c'est dans ce module que tu doit mettre toutes les déclarations (variables, constantes et API)
dans l'UC il ne doit y avoir que les lignes que j'ai mis en code dans mon poste précédant.
Si tu ne sait pas comment faire pour ajouter un module.. cliquer sur le projet de l'UC , ensuite clic sur Projet.. ajouter module.
Encore ceci, pour tester ton UC tu doit avoir 2 projets en même temps ( Un pour l'UC et un pour le tester), c'est ce que tu a fait ?
A+

Edit. toutes les variables, constantes et déclaration doivent êtres déclarées en Public, sinon elle ne sont visibles que dans le module.

[LeForestier]

Bon, je t'ai joint le zip avec les deux projets, comme cela tu aurra une idée de comment faire.
A+

[soso78]

Ah, j'comprends mieux en effet...

C'est impec. En fait, c'est bien le module que je n'avais pas ajouté dans le UC !!! Comme quoi, avec un exemple ;-).

Un grand merci à toi.