lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009
-
18 mars 2008 à 15:44
jadpa01
Messages postés2Date d'inscriptionmercredi 12 décembre 2007StatutMembreDernière intervention17 mars 2010
-
16 avril 2008 à 14:26
Bonjour à tous,
Dans le cadre d'un developpement je cherche à faire :
Tester si un enfant existe quand un doucle clic est effectué sur un noeud
s'il existe déployer
sinon récupérer le contenu de la selection
Je m'explique : Au niveau de mon treeview c'est une serie de commande et sous commandes qui sont chargé. Quand on clique sur la commande terminale alors on lance celle-ci.
Merci pour vos réponse.
SLB
pseudoOM
Messages postés173Date d'inscriptionjeudi 3 février 2005StatutMembreDernière intervention30 janvier 20091 18 mars 2008 à 16:25
Voilà :
Dim Parent As TreeNode
Dim strNom as String
Dim strTexte as String
Dim strTag as String
Parent = Treeview1.SelectedNode.NextVisibleNode.Parent
If Parent.Name = trwMenu.SelectedNode.Name Then
Treeview1.SelectedNode.Expand()
Else
' Tu récupères la sélection
strNom = Treeview1.SelectedNode.Name
strTexte = Treeview1.SelectedNode.Text
strTag = Treeview1.SelectedNode.Tag
End If
J'espère que c'est ce que tu attendais...
pseudoOM
Le partage est une force alors n'hésitez pas à cliquer sur réponse acceptée pour partager les solutions trouvées !
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 19 mars 2008 à 07:57
Bonjour,
Merci de ta réponse. Cependant j'ai encore des soucis... :)
dans la déclaration :
Dim Parent As TreeNode --> le type TreeNode n'est pas reconnu.
J'ai aussi une erreur sur cette déclaration :
Parent = Treeview1.SelectedNode.NextVisibleNode.Parent
le selectnode n'existe pas...
J'ai pas précisé mais je développe sous VB6
Merci encore de cette aide
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 19 mars 2008 à 08:17
Bonjour,
J'ai résolu mon problème de cette façon :
Private Sub TreeView1_DblClick()
Dim strTemp As String
On Error Resume Next
'-- Test pour savoir si un enfant existe
If TreeView1.SelectedItem.Child Is Nothing Then
'-- Il n'existe pas alors on récupere la valeur
strTemp = TreeView1.SelectedItem.Text
MsgBox strTemp
Else
'-- Il existe donc on déploie
TreeView1.SelectedItem.Expanded = True
End If
End Sub
En tout cas merci pour ta réponse elle m'a aidé à trouver la solution. :)
SLB
jadpa01
Messages postés2Date d'inscriptionmercredi 12 décembre 2007StatutMembreDernière intervention17 mars 2010 14 avril 2008 à 22:01
Bonsoir,
Inspiré par vos développements, j'ai essayé un treeview en MS Access. Un arbre s'affiche dans un formulaire mais je ne parviens pas à déclencher un événement lorsque je clique sur un élément de cet arbre.
Plusieurs des commandes que vous utilisez semblent absentes. Le Treeview (MSComctlLib.TreeCtrl.2) que j'utilise en MS Access (VBA) serait-il moins puissant que celui disponible en VB ?
Que dois-je utiliser en plus de HotTracking ?
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?