OVH Cloud OVH Cloud

ContextMenu

2 réponses
Avatar
Emcy
Bonjours,

J'ai fait un contextMenu. comment faire pour l'afficher ?

=E7a doit =EAtre un truc du genre :

Private Sub MainFormMouseDown(sender As System.Object, e=20
As System.Windows.Forms.MouseEventArgs)
=09
Dim p As Point
=09
set p =3D point(e.x,e.y)
Me.contextMenu1.show(me,p)
=09
End Sub

2 réponses

Avatar
Emcy
C'est bon j'ai trouvé

Dim p as Point
p = New Point(e.X, e.Y)

If e.Button = MouseButtons.Right Then
ContextMenu1.Show(Me, p)
End If


-----Message d'origine-----
Bonjours,

J'ai fait un contextMenu. comment faire pour l'afficher ?

ça doit être un truc du genre :

Private Sub MainFormMouseDown(sender As System.Object, e
As System.Windows.Forms.MouseEventArgs)

Dim p As Point

set p = point(e.x,e.y)
Me.contextMenu1.show(me,p)

End Sub
.



Avatar
Letchideslandes
Emcy a écrit :
C'est bon j'ai trouvé

Dim p as Point
p = New Point(e.X, e.Y)

If e.Button = MouseButtons.Right Then
ContextMenu1.Show(Me, p)
End If



-----Message d'origine-----
Bonjours,

J'ai fait un contextMenu. comment faire pour l'afficher ?

ça doit être un truc du genre :

Private Sub MainFormMouseDown(sender As System.Object, e
As System.Windows.Forms.MouseEventArgs)

Dim p As Point

set p = point(e.x,e.y)
Me.contextMenu1.show(me,p)

End Sub
.








en fait tu déposes un control contextMenu sur ta form, chaque control
posséde une propriété contextMenu que tu associes à ton contextmenu et
tu gères l'evenement contextmenu.popup.


--
http://perso.wanadoo.fr/letchideslandes