OVH Cloud OVH Cloud

click droit

1 réponse
Avatar
Jonny
Hello tlm,

J'ai un picture box que je cree dynamiquement et je veux
lui mettre un contextmenu, mais j'ai des problemes pour
voir que c'est un click droit.

Voila un petit bout de code, quand j'arrive au select case
mon obj1,ModifiersKEys vaut toujours none et pourtant je
click sur le boutons droit ?

Merci de vos reponses

A+
Private Sub ImgBox_Click(ByVal obj As Object, ByVal evt
As EventArgs)

Dim obj1 As PictureBox
k = ImgBox.ModifierKeys
obj1 = CType(obj, PictureBox)
Select Case obj1.MouseButtons
Case MouseButtons.Right

1 réponse

Avatar
Pyroa
Dans la plupart des controles il y a une propriété "contextmenu" qu'il
suffit de d'initialiser avec ce qui va bien :)

Donc pas besoin de capter le clickdroit ( qui se fait par l'évènement click
et la variable "e" de cet évènement )
ca se fait tout seul !

"Jonny" a écrit dans le message de
news: 058a01c4b788$65c08e90$

Hello tlm,

J'ai un picture box que je cree dynamiquement et je veux
lui mettre un contextmenu, mais j'ai des problemes pour
voir que c'est un click droit.

Voila un petit bout de code, quand j'arrive au select case
mon obj1,ModifiersKEys vaut toujours none et pourtant je
click sur le boutons droit ?

Merci de vos reponses

A+
Private Sub ImgBox_Click(ByVal obj As Object, ByVal evt
As EventArgs)

Dim obj1 As PictureBox
k = ImgBox.ModifierKeys
obj1 = CType(obj, PictureBox)
Select Case obj1.MouseButtons
Case MouseButtons.Right