Menu popup

Question

J'ai créé un menu popup dans une fenêtre mais dès que je fais un clique droit sur un textbox ou autres, un menu par défaut s'affiche avant mon menu, cela engendre des problèmes dans le reste du code. Si quelqu'un sait commun désactiver ce menu popup par défaut merci de me le dire

cs_radada · Answer

pkoi cela fait des merdes??? J'ai des applis avec des popup sur la form et cela ne gène pas quand il me sort le popup des textbox par exple... T'es sur que cela vient de la????

cs_Masq · Answer

oui cela pose des problèmes. Le menu, je l'appelle dans un flexgrid dans lequel je fais apparaître des textboxs pour modification et sur le clique droit je veux que l'utilisateur puisse supprimer une ligne de ce tableau et le menu par défaut me propose des copier/coller. Si l'utilisateur les utilise il remplace des champs qui ne devrait pas être accessible => d'où problème
Donc si quelqu'un a une solution
Merci

cs_radada · Answer

Et ton popup, tu l'a mis dans ton flexgrid.mouseDown??????

cs_Masq · Answer

oui et le popup qui me gêne se trouve sur le textbox que je fais apparaître sur ce flexgrid. Et même en mettant du code sur le mouse_down de ce textbox (ce qui fonctionne) il me lance quand même un autre popup avant

cs_radada · Answer

j'ai trouvé ça dans le forum. C'est sur un textBox, à toi de le tester sur ton flexgrid...

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' afficher un menu contextuel perso sur un textbox
' avec gestion du texte sélectionné
Dim SelStart As Integer
Dim SelLenght As Integer
If Button = 2 Then
SelStart = Text1.SelStart
SelLength = Text1.SelLength
Text1.Enabled = False
Text1.Enabled = True
Text1.SelStart = SelStart
Text1.SelLength = SelLength
Text1.SetFocus
PopupMenu MnuMenu
End If
End Sub

cs_radada · Answer

j'ai trouvé ça dans le forum. C'est sur un textBox, à toi de le tester sur ton flexgrid...

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' afficher un menu contextuel perso sur un textbox
' avec gestion du texte sélectionné
Dim SelStart As Integer
Dim SelLenght As Integer
If Button = 2 Then
SelStart = Text1.SelStart
SelLength = Text1.SelLength
Text1.Enabled = False
Text1.Enabled = True
Text1.SelStart = SelStart
Text1.SelLength = SelLength
Text1.SetFocus
PopupMenu MnuMenu
End If
End Sub 


topic http://www.vbfrance.com/forum.v2.aspx?ID=7777

Menu popup

6 réponses

Discussions similaires