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
Christophe
Blaster a écrit :
Bonjour,
Je voudrai sélectionner un Noeud d'un treeView un l'aide d'un bouton, quelle commande dois-je utiliser ?
Merci d'avance,
Blaster.
Salut,
C'est très simple, tu parse tes nodes et tu test si c'est bon, je t'ai fait un copier/coller d'un de mes codes perso : tu appelles SelectItem(un_Tag) qui te renvoie si ca été trouvé et sélectionné. Je passe mes ID de chaque nodes dans la propriété tag, mais tu peux adapter le code très facilement.
Private Function SelectItem(ByVal Item_ID As String) As Boolean If IsNothing(Tree.Nodes) = True Then Return False
Dim i As Integer = 0 Dim Trouver As Boolean = False
Do While Tree.Nodes.Count - 1 >= i And Not Trouver If Tree.Nodes.Item(i).Tag = Item_ID Then Trouver = True Tree.SelectedNode = Tree.Nodes.Item(i) Tree.SelectedNode.Expand() Return Trouver Else Trouver = SelectItem(Item_ID, Tree.Nodes.Item(i).Nodes) End If i += 1 Loop
Return Trouver End Function
Private Function SelectItem(ByVal Item_ID As String, ByVal Noeuds As TreeNodeCollection) As Boolean Dim i As Integer = 0 Dim Trouver As Boolean = False
Do While Noeuds.Count - 1 >= i And Not Trouver If Noeuds.Item(i).Tag = Item_ID Then Trouver = True Tree.SelectedNode = Noeuds.Item(i) Tree.SelectedNode.Expand() Return Trouver Else Trouver = SelectItem(Item_ID, Noeuds.Item(i).Nodes) End If i += 1 Loop
Return Trouver End Function
Blaster a écrit :
Bonjour,
Je voudrai sélectionner un Noeud d'un treeView un l'aide d'un bouton, quelle
commande dois-je utiliser ?
Merci d'avance,
Blaster.
Salut,
C'est très simple, tu parse tes nodes et tu test si c'est bon, je t'ai
fait un copier/coller d'un de mes codes perso : tu appelles
SelectItem(un_Tag) qui te renvoie si ca été trouvé et sélectionné.
Je passe mes ID de chaque nodes dans la propriété tag, mais tu peux
adapter le code très facilement.
Private Function SelectItem(ByVal Item_ID As String) As Boolean
If IsNothing(Tree.Nodes) = True Then Return False
Dim i As Integer = 0
Dim Trouver As Boolean = False
Do While Tree.Nodes.Count - 1 >= i And Not Trouver
If Tree.Nodes.Item(i).Tag = Item_ID Then
Trouver = True
Tree.SelectedNode = Tree.Nodes.Item(i)
Tree.SelectedNode.Expand()
Return Trouver
Else
Trouver = SelectItem(Item_ID, Tree.Nodes.Item(i).Nodes)
End If
i += 1
Loop
Return Trouver
End Function
Private Function SelectItem(ByVal Item_ID As String, ByVal Noeuds
As TreeNodeCollection) As Boolean
Dim i As Integer = 0
Dim Trouver As Boolean = False
Do While Noeuds.Count - 1 >= i And Not Trouver
If Noeuds.Item(i).Tag = Item_ID Then
Trouver = True
Tree.SelectedNode = Noeuds.Item(i)
Tree.SelectedNode.Expand()
Return Trouver
Else
Trouver = SelectItem(Item_ID, Noeuds.Item(i).Nodes)
End If
i += 1
Loop
Je voudrai sélectionner un Noeud d'un treeView un l'aide d'un bouton, quelle commande dois-je utiliser ?
Merci d'avance,
Blaster.
Salut,
C'est très simple, tu parse tes nodes et tu test si c'est bon, je t'ai fait un copier/coller d'un de mes codes perso : tu appelles SelectItem(un_Tag) qui te renvoie si ca été trouvé et sélectionné. Je passe mes ID de chaque nodes dans la propriété tag, mais tu peux adapter le code très facilement.
Private Function SelectItem(ByVal Item_ID As String) As Boolean If IsNothing(Tree.Nodes) = True Then Return False
Dim i As Integer = 0 Dim Trouver As Boolean = False
Do While Tree.Nodes.Count - 1 >= i And Not Trouver If Tree.Nodes.Item(i).Tag = Item_ID Then Trouver = True Tree.SelectedNode = Tree.Nodes.Item(i) Tree.SelectedNode.Expand() Return Trouver Else Trouver = SelectItem(Item_ID, Tree.Nodes.Item(i).Nodes) End If i += 1 Loop
Return Trouver End Function
Private Function SelectItem(ByVal Item_ID As String, ByVal Noeuds As TreeNodeCollection) As Boolean Dim i As Integer = 0 Dim Trouver As Boolean = False
Do While Noeuds.Count - 1 >= i And Not Trouver If Noeuds.Item(i).Tag = Item_ID Then Trouver = True Tree.SelectedNode = Noeuds.Item(i) Tree.SelectedNode.Expand() Return Trouver Else Trouver = SelectItem(Item_ID, Noeuds.Item(i).Nodes) End If i += 1 Loop