Remplacer Click droit par un autre menuRésolu

Question

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

Renfield · Accepted Answer

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

Renfield · Answer

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

Lokomass · Answer

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.

Renfield · Answer

je préfère également cette version-ci.

Renfield - Admin CodeS-SourceS - MVP Visual Basic

Remplacer Click droit par un autre menu

4 réponses

Votre réponse

Discussions similaires