Empêcher clic sur node père qui a des fils [Résolu]

Signaler
Messages postés
25
Date d'inscription
dimanche 29 août 2004
Statut
Membre
Dernière intervention
14 février 2009
-
Messages postés
25
Date d'inscription
dimanche 29 août 2004
Statut
Membre
Dernière intervention
14 février 2009
-
Bonjour,

Tout est dit dans le titre du message
mais je vais détaillé !!

J'ai un TreeView avec des nodes dont certains ont des fils.
Je voudrais empêcher le clic sur les nodes qui ont des fils et bien sur autoriser le clic sur ceux qui n'en on pas !

Tout ceci est en VB6

Merci de votre aide

8 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Children Then
Node.Child.Selected = True
End If
End Sub

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
quel comportement souhaites tu si l'on clique sur un node papa ?

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

If Node.Children = 0 Then

MsgBox "Ce node n'a pas de fils"

' fait ce que tu veux ici.

Else

MsgBox "Ce Node a des fils"

' Ne rien mettre ici

End If

End Sub




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Messages postés
25
Date d'inscription
dimanche 29 août 2004
Statut
Membre
Dernière intervention
14 février 2009

Je voudrais que le clic soit impossible (pas de sélection en surbrillance) et que la sélection se déporte automatiquement sur le premier node fils
Vala.
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
4
Salut

Alternative à la solution de Renfield

/auteurdetail.aspx?ID=2359 Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Children > 0 Then
Node.Selected = False
End If
End Sub
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
le comportement n'est alors plus celui demandé, à savoir :
séléction du premier child ...

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
4
Autant pour moi, j'ai lu trop vite
Messages postés
25
Date d'inscription
dimanche 29 août 2004
Statut
Membre
Dernière intervention
14 février 2009

Merci beaucoup