clic droit sourisRésolu

Question

salut a tous je débute dans le VB et j'arrive pas a créer un truc : quel est le code pour faire en sorte que quand on fait un clic droit avec la souris il nous affiche les informations que l'on veut moi j'avais ça mais ça marche pas Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = 2) Then PopupMenu Xend if End Sub merci

mrdep1978 · Accepted Answer

As-tu mis un point d'arrêt sur la ligne If (Button = 2) Thenpour voir quelle est la valeur de Button quand tu fais un clic droit ? 2e point : tu devrais mettre ton code sur le MouseUp, plutôt que sur le MouseDown

romain182 · Answer

merci d'avoir r&#233;pondu le truc c que j'y connais pas grand chose en VB et pourtant j'aimerai bien en savoir plus, g mis un point d'arr&#234;t mais je sais pas trop quoi faire avec &#231;a

avant il faut cr&#233;er des truc 

Dans une quelconque application de Microsoft, lorsque vous cliquez sur le bouton droit de votre souris, une s&#233;rie de commande appara&#238;t: c'est le menu contextuel (ou Popup menu en anglais). 
La cr&#233;ation d'un popup menu se fait presque comme un syst&#232;me de menu. Pour cela, faites exactement comme si vous cr&#233;ez un syst&#232;me de menu. D&#233;finissez ensuite, une action pour chaque commande du menu contextuel. Par la suite, il faut d&#233;finir dans quelles conditions doit appara&#238;tre le menu contextuel.  

C a partir de &#231;a que je voulais essayer. mais &#231;a marche pas ou y a un truc que g loup&#233; !

mrdep1978 · Answer

C'est peut-être la valeur du bouton droit qui n'est pas 2. Le point d'arrêt va bloquer le code à l'endroit où tu l'as mis. Tu peux ensuite voir la valeur de chaque variable en passant la souris au-dessus (ou en sélectionnant la variable et en faisant Shift + F9). Tu peux aussi utiliser le Debug.Print : Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Debug.Print "Valeur du bouton cliqué :" & Button If (Button = 2) Then PopupMenu Xend if End Sub Avec ça, quand tu fais un clic (gauche ou droit) dans la fenêtre Exécution (Ctrl+G) de VB, tu devrais voir la valeur du bouton correspondant à celui sur lequel tu cliques. Egalement, si tu as mis des frames, boutons, textbox ..., c'est l'événement MouseUp de chacun de ces composants qui va se déclencher si c'est sur eux que tu cliques, et pas l'événement MouseUp de la Form.

GlanduSchmoldu · Answer

Euh je dis peut etre une b&#233;tise j'ai pas VB sous la main, mais il me
semble qu'il faut mettre le nom du menu qu'on veut faire apparaitre
apres la commande PopupMenu (et donc cr&#233;er ce menu).

Genre : 



PopupMenu MonMenu, X, Y



Et puis X et Y sont facultatifs si le menu doit apparaitre au curseur de la souris.

romain182 · Answer

c bon c juste que j'avais mal nomm&#233; apr&#232;s le "PopupMenu" merci

Personne sait ou on peut apprendre le VB ?

cbnet · Answer

Eh bien, ICI tout d'abord, gr&#226;ce au forum, aux sources qui te servent d'exemples...

Mais pour des connaissances de bases, regarde cette adresse par exemple :

http://vb.developpez.com/cours/

assistant55 · Answer

Bonjours,
J'ai le m&#234;me soucis que vous pour l'affichage du menu contextuel lors d'un click droit sur un noeud mais la source que vous avez sp&#233;cifi&#233; ne marche pas ou bien j'ai fait une gaffe queleque part !!!
 pouvez vous m'aider
merci d'avance .


Cordialement .

GlanduSchmoldu · Answer

On veut bien t'aider mais il faudrait qd m&#234;me que tu nous explique le probl&#232;me, &#231;a serai plus facile.

assistant55 · Answer

j'ai un menu treeview et je veut en qques mot afficher un menu contextuel lorsque je fait un clic droit de la souris sur un de ces noeuds !

en fait j'ai fait le tour de tout le site j'ai bien retrouv&#233; des codes sources qui marchent d'apres ce qu'on a signal&#233; mais je n'arrive pas a faire fonctionner un seul
en voici un :

Private Sub TabStrip1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
      PopupMenu mnuFichier
   End If
End Sub

mais ca ca fonctionne avec un menu Tabstrip
alors j'ai chang&#233; le nom de la fonction en treeview_click()

Le r&#233;sultat final qui me plante maintenant c'est qu'il ne reconnais pas 'PopupMenu'
Alors que faire ???????
?????????

Cordialement .

GlanduSchmoldu · Answer

Ton treeview s'appelle bien "treeview" ?

A tu bien cr&#233;&#233; un menu s'appelant "mnuFichier" ?

Je vois pas pourquoi il reconaitrait pas PopupMenu.



Plus serieusement la fonction qqch_click() ne renvoit pas le bouton sur
lequel on a appuy&#233;. Il faut garder qqch_MouseDown() (ou qqch_MouseUp)
si tu veux pouvoir &#233;crire "If button = 2"

Clic droit souris

10 réponses

Discussions similaires