Menu contextuel sur un textbox

Question

Salut! 
Le menu contextuel sur un textbox ext celui de cette saloperie de ?$#@ de Windows avec copier couper coller... 
Je souhaite créer mon propre menu contextuel d'où le code: 

Private Sub myTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 2 Then 
PopupMenu myMenu 
End If 
End Sub 

jusque là pas de problème!!! 

mais à l'execution, lors du click droit sur le textbox le menu contextuel de cette saloperie de ?$#@ de Windows apparait 
et lors d'un deuxième click droit mon menu contextuel apparait enfin!!! 

Comment faire pour ne pas avoir le menu contextuel de cette saloperie de ?$#@ de Windows ? 
Merci d'avance

villissina · Answer

je viens juste de tester ton code, il marche bien...
j'ai pas le menu de zedaube qui apparait chez moi ...

Troopers · Answer

Y at'il quelque chose de particulier que tu as fais?
option de VB ou autre?
t'es sous windows98 ou windows NT?

villissina · Answer

J'ai essayé sous win98 avec la version entreprise
et 2000Pro avec la version Professionnelle
sans rien faire de special

max · Answer

J'ai le même problème que vous. 
C'est à dire:
Je souhaite créer mon propre menu contextuel d'où le code: 

Private Sub myTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 2 Then 
PopupMenu myMenu 
End If 
End Sub 

mais à l'execution, il faut deux clicks droit pour que mon menu contextuel apparaisse enfin!!! 
Comment faire pour que mon menu apparaisse la première fois.

Merci d'avance

IFFWarrior · Answer

un gars a posté  ça sur ce site...

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Text1.Enabled = False
    Text1.Enabled = True
    PopupMenu MnuMenu
End If
End Sub 

ma version améliorée (que j'ai fait d'apres celle ci-dessus):

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
        SelLenght = Text1.SelLength
        Text1.Enabled = False
        Text1.Enabled = True
        Text1.SelStart = SelStart
        Text1.SelLength = SelLength
        Text1.SetFocus
        PopupMenu MnuMenu
    End If
End Sub 

lien vers le source 1:

http://www.vbfrance.com/code.aspx?ID=2651

 ;)

IFFWarrior · Answer

oups ! correctif sur la ligne
  SelLenght = Text1.SelLength

qui devient
  SelLength = Text1.SelLength

(Erreur sur la position du 'h' dans SelLength, mais vous avez du le voir...)

;-)

oliviervillemain · Answer

Salut,

Cette solution du "Enabled = False" n'est malheureusement pas fiable &#224; 100%.
R&#233;alisez une rafale de clic droits et vous verrez votre menu perso appara&#238;tre mais &#233;galement de temps en temps le maudit menu standard de microsoft.

LA solution, car il en existe bien une, est nettement plus dangereuse.
Il est utilis&#233; le hooking (API windows) qui intercepte le clic droit de l'utilisateur avant m&#234;me que le textbox ne le re&#231;oive.

Si j'ai dit "dangereuse", c'est que si vous arr&#234;tezl'ex&#233;cution de votre projet par le carr&#233; Stop de VB (autrement dit sans passer par l'&#233;v&#233;nement Unload), vous aurez un violent message d'erreur et la fermeture imm&#233;diate de votre projet (si vous n'aviez pas sauvegarder c'est dommage...)

L'adresse de LA solution propre : http://www.vbfrance.com/forum.v2.aspx?id=57656
Merci &#224; rivierem qui apporte une solution fiable &#224; 100 % et le code complet d'un exemple.

Menu contextuel sur un textbox

7 réponses

Discussions similaires