Treeview VB2010

Question

Bonjour,

J'ai un treeview sur leqiuel j'affiche des données, je faire un truc simple mais qui me parait dificil vu que je suis debutant!!

je veux expand(ettendre) un noeud donné , verifier son child est selectionner exemple:

Verifier si le child 1 du parent 5 du noeud 3 est selectionné

quelque chose du genre :

Treeview.Nodes(3).Nodes(5).Nodes(1).expand()

Treeview.Nodes(3).Nodes(5).Nodes(1).isselected=true

j'ai essayé mais ça marche pas!!

Merci pour votre aide

Answer 1

Bonjour Doudine06,

Pas sûr de comprendre, mais je crois que pour afficher le Nodes(1) du 3ème niveau il faut que les niveaux précédent le soit. Tu peux essayer ceci :

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim cNode As TreeNode
        Dim i As Integer, j As Integer, k As Integer

        With Me.TreeView1
            .HideSelection = False
            For i = 0 To 6
                .Nodes.Add("Node" & i + 1)
            Next i
            For i = 0 To 6
                cNode = .Nodes(i)
                For j = 0 To 5
                    cNode.Nodes.Add("Node" & i + 1 & Chr(65 + j))
                Next j
            Next i
            For i = 0 To 6
                For j = 0 To 5
                    cNode = .Nodes(i).Nodes(j)
                    For k = 0 To 4
                        cNode.Nodes.Add("Node" & i + 1 & Chr(65 + j) & Chr(97 + k))
                    Next k
                Next j
            Next i
        End With

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        With Me.TreeView1
            .Nodes(3).Expand()
            .Nodes(3).Nodes(5).Expand()
            If .Nodes(3).Nodes(5).Nodes(1).IsSelected Then
                .SelectedNode = Nothing
            Else
                .SelectedNode = Me.TreeView1.Nodes(3).Nodes(5).Nodes(1)
            End If
            .Focus()
        End With
    End Sub
End Class

---

Cordialement, Jacques

Answer 2

Bonjour

Avez-vous des nouvelles pour nous?

Merci

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 3

Bonjour,

Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.