vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Treeview befüllen 
Autor: Manfred X
Datum: 16.08.20 21:25

Hallo!

Unter der Annahme, die Gliederungspunkte seien hierarchisch sortiert ....
Windoews.Forms-Formular
Public Class frmTreeNode
 
    Dim trv As New TreeView With {.Parent = Me}
 
    Private Sub frmTreeNode_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Dim nodenames() As String = {"1.1.1", "1.2", "1.2.1", "1.3.1", 
            "2.3", "2.3.4",
            "7.2", "7.2.8", "7.2.8.1", "7.2.8.2"}
 
        For i As Integer = 0 To nodenames.Length - 1
            Dim tn As TreeNode = GetTreeNode(trv, nodenames(i))
 
            'Rückgabe prüfen
            Dim path As String = nodenames(i).Replace(".", "\")
            If tn.FullPath <> path Then Stop
        Next i
 
    End Sub
 
 
 
    Private Function GetTreeNode(trv As TreeView, 
                         NodeName As String) As TreeNode
 
        Dim nodenames() As String = NodeName.Split("."c)
        If nodenames Is Nothing Then Return Nothing
 
        Dim basenode As TreeNode, tn As TreeNode()
 
        tn = trv.Nodes.Find(nodenames(0), False)
        If tn.Length = 0 Then
            basenode = trv.Nodes.Add(nodenames(0), nodenames(0))
        Else
            basenode = tn(0)
        End If
 
        Dim node As TreeNode = basenode
        For i As Integer = 1 To nodenames.Length - 1
            tn = node.Nodes.Find(nodenames(i), True)
            If tn.Length = 0 Then
                node = node.Nodes.Add(nodenames(i), nodenames(i))
            Else
                node = tn(0)
            End If
        Next i
        Return node
    End Function
 
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Treeview befüllen475manuelhasi16.08.20 10:47
Re: Treeview befüllen420Manfred X16.08.20 21:25
Re: Treeview befüllen216manuelhasi18.08.20 23:18

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel