Remplacer Click droit par un autre menu [Résolu]

Signaler
Messages postés
191
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour,

Voila j'ai cré un nouveau menu contextuel que j'affecte au click droit dans un textbox.
Le soucis est qu'avant d'afficher mon menu, il m'ouvre le click droit de Windows d'origine, or j'aimerai le desactiver pour ne voir que le mien.

Merci

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
deux solutions:

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        Text1.Enabled = False
        Text1.Enabled = True
        PopupMenu PopMenu1, vbPopupMenuRightButton
    End If
End Sub


ou, avec APIs:

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        ReleaseCapture
        PopupMenu PopMenu1, vbPopupMenuRightButton
    End If
End Sub


Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
cette deuxièeme version nécessite du coup la déclaration:

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long



Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
191
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
1
Merci et désolé pour le double post.
A savoir que dans mon cas la deuxième version est mieux car lorsque on fait click droit sur un texte en surbrillance, il reste en surbrillance, et non dans le premier cas.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
je préfère également cette version-ci.

Renfield - Admin CodeS-SourceS - MVP Visual Basic