Treeview clic droit
Résolu/Fermé
JSCH19
Messages postés
129
Date d'inscription
mercredi 30 octobre 2019
Statut
Membre
Dernière intervention
22 juin 2023
-
Modifié le 10 mai 2021 à 20:24
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 12 mai 2021 à 20:31
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 12 mai 2021 à 20:31
A voir également:
- Treeview clic droit
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Clic droit sans souris ✓ - Forum souris / Touchpad
- Image libre de droit gratuite google - Guide
- Slash droit - Forum Excel
- Atout clic - Télécharger - Éducatifs
1 réponse
JSCH19
Messages postés
129
Date d'inscription
mercredi 30 octobre 2019
Statut
Membre
Dernière intervention
22 juin 2023
Modifié le 12 mai 2021 à 20:57
Modifié le 12 mai 2021 à 20:57
j'ai trouve la solutionl alors pour ceux qui auraient a rencontrer le meme probleme que moi,voici la solution:
Private Sub TreeView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If Button = emouse.rightclick Then
'MsgBox "You rightclicked"
Dim nodX As Node
Set nodX = TreeView1.HitTest(x*15, y*15)
If nodX Is Nothing Then
'user clicked empty space
MsgBox "Empty space"
'Call RightClickEmptySpace
Else
'user clicked a node
MsgBox nodX.Text
End If
End If
End Sub