Empêcher affichage popup menu standard avec clic droitRésolu

Question

Bonjour à tous !

Je veux afficher mon propre menu contextuel avec un clic droit sur une textbox (n_un). Pas de problème pour l'afficher. Sauf que le menu contextuel (popup menu) par défaut de VB6 s'affiche avant que le mien ne soit appelé. Ce qui affiche le menu Copier/Coller/Sélectionner etc. Je dois alors cliquer sur ce menu pour qu'il disparaisse et laisse la place au mien.


Code utilisé :

Private Sub n_un_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If no_player.Visible = True Then Exit Sub
n_un.FontBold = True
If Button = 2 Then
    Set forme = Form1
    Set zone = n_un
    Call rayer_MouseUp(forme, zone, Button, Shift, X, Y)
End If
n_un_Click

End Sub
'
Sub rayer_MouseUp(forme As Form, zone As Control, Button As Integer, Shift As Integer, X As Single, Y As Single)
'
zone.FontBold = True
If Button = vbRightButton Then
    If zone.Tag = "OK" Then
        zone.FontBold = True
        forme.PopupMenu Form1.mnu_déjà1
        Exit Sub
    End If
    'MsgBox zone.Tag
    zone.Enabled = True
    zone.Tag = "OK"
    forme.PopupMenu Form1.mnu_rayer1
    zone.Text = "X
.....
End IF"

Comment faire pour que ce menu par défaut ne s'affiche pas et que je n'aie que le mien ?

Merci d'avance

Notpa

Whismeril · Answer

Bonjour
https://www.developerfusion.com/thread/2385/how-to-disable-text-box/

Notpa · Answer

Bonjour et merci.

L'anglais n'est pas un problème pour moi.

Ne semble pas si simple mais je vais creuser ça.

A+
Notpa

Notpa · Answer

Re,

J'ai créé un petit projet pour tester le code du lien que tu as donné. C'est parfait ! Un clic droit n'affiche que le menu de mon choix.

Il ne me reste plus qu'à incorporer ce code dans mon gros projet.

Merci encore de ta réponse. Ça faisait pas mal de temps que je me creusais la tête là-dessus.

Sujet résolu.

Au plaisir

Notpa

Whismeril · Answer

De rien

Empêcher affichage popup menu standard avec clic droit

4 réponses

Votre réponse

Discussions similaires