TreeView Parent&Child

[tierens]

Hoi

Ik heb volgende code gemaakt om een textbestand uit te lezen en in een TreeView te zetten:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Const path = "D:\Leerplan.txt"
        Dim fs As System.IO.FileStream = New System.IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
        Dim s As System.IO.StreamReader = New System.IO.StreamReader(fs)
        Dim n As Integer
        Dim lijn As String

        For a = 1 To 300
            lijn = s.ReadLine
            TreeView1.Nodes.Add(a, lijn)
        Next

    End Sub

Nu wil ik telkens als hij een lege lijn leest, een nieuwe parent maken en al de volgende childs.
Maar ik kom er niet uit hoe ik dat kan doen...

Alvast dank! :thumb:

 

[MatthiWare]

Met deze code werkt het bij mij

Let op bij deze code ga je er wel vanuit dat lijn 1 leeg is omdat hij dan de eerste parent toevoegt.

        Const path = "D:\Leerplan.txt"
        Dim fs As System.IO.FileStream = New System.IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
        Dim s As System.IO.StreamReader = New System.IO.StreamReader(fs)
        Dim n As Integer 'dit is ook nooit gebruikt of wel?
        Dim lijn As String = String.Empty
        Dim dezenode As TreeNode

        For a = 1 To 300
            lijn = fs.ReadLine()
            If (lijn = String.Empty) Then
                lijn = "Lijn" & a.ToString()
                dezenode = New TreeNode(lijn)
                TreeView1.Nodes.Add(dezenode)
            Else
                lijn = "Lijn" & a.ToString()
                dezenode.Nodes.Add(a, lijn)
            End If
        Next

 

[tierens]

Thanks!! :thumb:

Zaten nog wat foutjes in, maar ik heb er dit van gemaakt:

        Const path = "D:\Leerplan.txt"
        Dim fs As System.IO.FileStream = New System.IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
        Dim s As System.IO.StreamReader = New System.IO.StreamReader(fs)
        Dim lijn As String = String.Empty
        Dim dezenode As TreeNode

        For a = 1 To 300
            lijn = s.ReadLine
            If (lijn = String.Empty) Then
                lijn = s.ReadLine
                dezenode = New TreeNode(lijn)
                TreeView1.Nodes.Add(dezenode)
            Else
                dezenode.Nodes.Add(a, lijn)
            End If
        Next