none
Treeview VB2010 RRS feed

  • 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

    mercredi 22 mai 2013 14:12

Réponses

  • 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

    • Marqué comme réponse Aurel Bera lundi 27 mai 2013 08:12
    mercredi 22 mai 2013 16:05

Toutes les réponses