popupmenu

Question

Bonjour,
soit un formulaire vb avec des textbox. lors d'un click droit sur une textbox je souhaite faire apparaitre un popupmenu. mon probl&#232;me est le suivant :
au 1er click droit, ind&#233;pendemment de ma volont&#233;, apparait un popupmenu avec : annuler, copier, coller, supprimer, selectionner tout;
mon popumenu n'apparait qu'apr&#232;s un 2&#232;me click droit.
que dois je faire pour &#233;viter l'affichage du 1er popupmenu ?
merci bcp pour vos r&#233;ponses.
cordialement,
JP

jpleroisse · Answer

Le textBox et le Combox sont 2 Activex qui ont un menu contextuel.
Peut-&#234;tre y - a - t'il moyen de le supprimer par un Appi ou une Function quelquonque, mais je ne connais pas!
En g&#233;n&#233;ral on place le menu dans l'&#233;vement mouse KeyUp de la Form ou d' une Listbox.

jpleroisse

cs_CanisLupus · Answer

Je ne comprend pas ton probl&#232;me. 
Regarde ce qu'il y a dans les &#233;v&#232;nements mousedown et mouseup de tes controles et de ton form.

Loup Gris

japi33 · Answer

mon probl&#232;me est mon popupmenu perso n'apparait qu'apr&#232;s un 2&#232;me click droit sur ma textbox ou bien apr&#232;s avoir appuyer sur ESC. j'ai essay&#233; un sendKeys "{ESC}" au d&#233;but de "Private Sub txt_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)" mais &#231;a ne marche pas.
je cherche &#224; &#233;viter l'affichage de ce 1er popupmenu qui qoit &#234;tre int&#233;gr&#233; &#224; la textbox.
merci,
salutations.
JP

japi33 · Answer

c'est bon j'ai trouv&#233; sur internet :

il faut g&#233;rer l'&#233;v&#232;nement Private Sub txt_MouseDown(................)
et en d&#233;but de la sub placer le code suivant :
txt.Enabled = False
txt.Enabled = True
txt.SetFocus
puis la suite :
If Button = 2 Then PopupMenu monPopupMenu

merci &#224; cous,
bien cordialement.
JP

Popupmenu

4 réponses

Discussions similaires