bonsoir tout le monde,je voudrais affiché un menu contextuel sur un controle
treeview,sachant que j'ai plusieurs noeuds sur le treeview.(un menu
contextuel pour chaque noeud)
merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincent Guichard
nasseadil a écrit :
bonsoir tout le monde,je voudrais affiché un menu contextuel sur un controle treeview,sachant que j'ai plusieurs noeuds sur le treeview.(un menu contextuel pour chaque noeud) merci d'avance.
Bonsoir,
Tu peux te baser sur l'exemple ci-dessous. Ici j'affiche le menu mnu1 si l'utilisateur fait un clic-droit sur un noeud de niveau 1, et le menu mnu2 s'il fait un clic-droit sur un noeud de niveau supérieur.
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Dim n As Node Set n = TreeView1.HitTest(x, y) If n Is Nothing Then Exit Sub If n.Parent Is Nothing Then PopupMenu mnu1 Else PopupMenu mnu2 End If Set n = Nothing End If End Sub
nasseadil a écrit :
bonsoir tout le monde,je voudrais affiché un menu contextuel sur un controle
treeview,sachant que j'ai plusieurs noeuds sur le treeview.(un menu
contextuel pour chaque noeud)
merci d'avance.
Bonsoir,
Tu peux te baser sur l'exemple ci-dessous. Ici j'affiche le menu mnu1 si
l'utilisateur fait un clic-droit sur un noeud de niveau 1, et le menu
mnu2 s'il fait un clic-droit sur un noeud de niveau supérieur.
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x
As Single, y As Single)
If Button = vbRightButton Then
Dim n As Node
Set n = TreeView1.HitTest(x, y)
If n Is Nothing Then Exit Sub
If n.Parent Is Nothing Then
PopupMenu mnu1
Else
PopupMenu mnu2
End If
Set n = Nothing
End If
End Sub
bonsoir tout le monde,je voudrais affiché un menu contextuel sur un controle treeview,sachant que j'ai plusieurs noeuds sur le treeview.(un menu contextuel pour chaque noeud) merci d'avance.
Bonsoir,
Tu peux te baser sur l'exemple ci-dessous. Ici j'affiche le menu mnu1 si l'utilisateur fait un clic-droit sur un noeud de niveau 1, et le menu mnu2 s'il fait un clic-droit sur un noeud de niveau supérieur.
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Dim n As Node Set n = TreeView1.HitTest(x, y) If n Is Nothing Then Exit Sub If n.Parent Is Nothing Then PopupMenu mnu1 Else PopupMenu mnu2 End If Set n = Nothing End If End Sub
