Letztes mal Treevier Überschrift

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Letztes mal Treevier Überschrift

    Hi,

    meine letzte Frage zu Treeview...

    in unten genannte Code macht er mir folgende Aufstellung...

    VB.NET-Quellcode

    1. *--HauptReeNode
    2. | |
    3. | *--- SubTreeNode
    4. *--HauptReeNode
    5. | |
    6. | *--- SubTreeNode
    7. usw



    bestehe die Möglichkeit das ich das mit einer Überschrift ausstatten kann...

    Wie könnte ich es schaffen, daß er mit eine Überschrift macht!??

    so:

    VB.NET-Quellcode

    1. Kategorien
    2. |
    3. *--HauptReeNode
    4. | |
    5. | *--- SubTreeNode
    6. *--HauptReeNode
    7. | |
    8. | *--- SubTreeNode
    9. usw



    Danke-- weis ich nerv langsam damit :)

    LG


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub FillTreeView(ByVal dt As DataTable)
    2. Me.TreeView1.BeginUpdate()
    3. Dim Tn As TreeNode
    4. For Each r As DataRow In dt.Rows
    5. Tn = New TreeNode((r("Kat_Tag").ToString))
    6. Tn.Tag = (r("ID").ToString)
    7. Tn.ImageIndex = 0
    8. Tn.SelectedImageIndex = 1
    9. If Convert.ToInt32(r("Kat_ParentID")) = 0 Then
    10. Me.TreeView1.Nodes.Add(Tn)
    11. End If
    12. FillTreeNode_Sub(Tn, dt, Convert.ToInt32(r("ID")))
    13. Next
    14. Me.TreeView1.EndUpdate()
    16. End Sub
    18. Public Sub FillTreeNode_Sub(ByRef tn As TreeNode, ByRef dt As DataTable, ByVal ID As Integer)
    19. Dim foundRows() As DataRow = dt.Select("Kat_ParentID = " + ID.ToString, "ID")
    20. Dim Tn_Sub As TreeNode
    21. For Each _r As DataRow In foundRows
    22. Tn_Sub = New TreeNode((_r("Kat_Tag").ToString))
    23. Tn_Sub.Tag = (_r("ID").ToString)
    24. Tn_Sub.ImageIndex = 0
    25. Tn_Sub.SelectedImageIndex = 1
    26. tn.Nodes.Add(Tn_Sub)
    27. FillTreeNode_Sub(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
    28. Next
    30. End Sub

    hab mir jetzt zwar nicht deinen ganzen code durchgelesen (:D) aber ich denke du meinst das:

    VB.NET-Quellcode

    1. TreeView1.Nodes.Add("Kategorien")
    2. TreeView1.Nodes(0).Nodes.Add("Haupttreenode").Nodes.Add("Subtreenode")
    3. TreeView1.Nodes(0).Nodes.Add("Haupttreenode2").Nodes.Add("Subtreenode2")


    Gruß, Gugi :thumbup:

    jepp... Gugi warum verstehst du mich immer am besten ? :')

    und wie bringe ich nun meine "Auflistung" gem. ungen genannten Code unterhalb von TreeView1.Nodes.Add("Kategorien")
    noch rein ?

    VB.NET-Quellcode

    1. Private Sub Kat_Laden()
    2. Dim dt As DataTable = New DataTable("TreeView")
    3. Me.FillDataTable(dt)
    4. Me.FillTreeView(dt)
    5. Me.TreeView1.ExpandAll()
    6. TreeView1.CollapseAll()
    7. End Sub
    9. Public Sub FillDataTable(ByRef dt As DataTable)
    10. Try
    11. Dim sCN As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Datenbankpfad & "\" & Datenbankname & ".mdb"
    12. Dim sql As String = "SELECT * FROM " & TableName08 & " ORDER BY ID"
    13. Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCN)
    14. Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, cn)
    15. Dim cmd As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da)
    16. da.Fill(dt)
    17. Catch ex As OleDb.OleDbException
    18. MsgBox(ex.Message)
    19. End Try
    21. End Sub
    23. Public Sub FillTreeView(ByVal dt As DataTable)
    24. Me.TreeView1.BeginUpdate()
    25. TreeView1.Nodes.Add("Kategorien")
    26. Dim Tn As TreeNode
    27. For Each r As DataRow In dt.Rows
    28. Tn = New TreeNode((r("Kat_Tag").ToString))
    29. Tn.Tag = (r("ID").ToString)
    30. Tn.ImageIndex = 0
    31. Tn.SelectedImageIndex = 1
    32. If Convert.ToInt32(r("Kat_ParentID")) = 0 Then
    33. Me.TreeView1.Nodes.Add(Tn)
    34. End If
    35. FillTreeNode_Sub(Tn, dt, Convert.ToInt32(r("ID")))
    36. Next
    37. Me.TreeView1.EndUpdate()
    39. End Sub
    41. Public Sub FillTreeNode_Sub(ByRef tn As TreeNode, ByRef dt As DataTable, ByVal ID As Integer)
    42. Dim foundRows() As DataRow = dt.Select("Kat_ParentID = " + ID.ToString, "ID")
    43. Dim Tn_Sub As TreeNode
    44. For Each _r As DataRow In foundRows
    45. Tn_Sub = New TreeNode((_r("Kat_Tag").ToString))
    46. Tn_Sub.Tag = (_r("ID").ToString)
    47. Tn_Sub.ImageIndex = 0
    48. Tn_Sub.SelectedImageIndex = 1
    49. tn.Nodes.Add(Tn_Sub)
    50. FillTreeNode_Sub(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
    51. Next
    53. End Sub


    jepp... Gugi warum verstehst du mich immer am besten ? :')

    das hab ich wegen den grafiken:

    Quellcode

    1. *--HauptReeNode
    2. | |
    3. | *--- SubTreeNode
    4. *--HauptReeNode
    5. | |
    6. | *--- SubTreeNode
    7. usw

    Quellcode

    1. Kategorien
    2. |
    3. *--HauptReeNode
    4. | |
    5. | *--- SubTreeNode
    6. *--HauptReeNode
    7. | |
    8. | *--- SubTreeNode
    9. usw




    und wie bringe ich nun meine "Auflistung" gem. ungen genannten Code unterhalb von TreeView1.Nodes.Add("Kategorien")
    noch rein ?

    dann musst du bei

    VB.NET-Quellcode

    1. TreeView1.Nodes(0).Nodes.Add("Haupttreenode").Nodes.Add("Subtreenode")

    statt der 0 die "position" eingeben(der 1. = 0, der 2. = 1 usw. )

    Gruß, Gugi :thumbup:

    sorry, verstehe ich nicht... kanns überhaupt nicht nachvollziehen...

    @Gugi - kannst ma des vielleicht bisserl genauer an meinem Code erklären?
    bekomme derzeit nur "Kategorie" mit aufgelistet... meine Auflistung aus der DB wird nach wie vor nicht unterhalb gelistet...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „lris08“ ()

    ok soweit habe ich es jetzt verstanden... Bilder sagen dann doch mal mehr als 1000 Worte :)


    Nun nur noch abschließende Frage: Wie mache ich es, praktisch eine Übergeordnete Kategorie die dann also von Hand vorgegeben wurde...

    TreeView1.Nodes.Add("Kategorien")

    und als Sub's dann auflisten lassen aus der DB?

    Verstehen und glaube ich doch nicht so richtig... :)

    Also unten gezeigtes Bild...

    Das Kategorie habe ich selbst angelegt, mit: TreeView1.Nodes.Add("Kategorien")

    und unter diesem Eintrag "Kategorie" sollen jetzt alle Kategorien aufgelistet werden - aus meiner Datenbank...
    dafür verwende ich derzeit diesem CodE:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub FillTreeView(ByVal dt As DataTable)
    2. TreeView1.Nodes.Add("Kategorien")
    4. Dim Tn As TreeNode
    5. For Each r As DataRow In dt.Rows
    6. Tn = New TreeNode((r("Kat_Tag").ToString))
    7. Tn.Tag = (r("ID").ToString)
    8. Tn.ImageIndex = 0
    9. Tn.SelectedImageIndex = 1
    10. If Convert.ToInt32(r("Kat_ParentID")) = 0 Then
    11. Me.TreeView1.Nodes.Add(Tn)
    12. End If
    13. FillTreeNode_Sub(Tn, dt, Convert.ToInt32(r("ID")))
    14. Next
    15. Me.TreeView1.EndUpdate()
    17. End Sub
    19. Public Sub FillTreeNode_Sub(ByRef tn As TreeNode, ByRef dt As DataTable, ByVal ID As Integer)
    20. Dim foundRows() As DataRow = dt.Select("Kat_ParentID = " + ID.ToString, "ID")
    21. Dim Tn_Sub As TreeNode
    22. For Each _r As DataRow In foundRows
    23. Tn_Sub = New TreeNode((_r("Kat_Tag").ToString))
    24. Tn_Sub.Tag = (_r("ID").ToString)
    25. Tn_Sub.ImageIndex = 0
    26. Tn_Sub.SelectedImageIndex = 1
    27. tn.Nodes.Add(Tn_Sub)
    28. FillTreeNode_Sub(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
    29. Next
    31. End Sub


    Und dieser Code soll mir alles das was in der Datenbank (MDB) drinnen ist unterhalb von "Kategorie" auflisten..

    So meinte ich das :)

    LG




    EDIT:

    Jetzt hab ich's hinbekommen...

    Danke Gugi... Hab mir das nochmal durch den Kopf gehen lassen...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub FillTreeView(ByVal dt As DataTable)
    2. Dim Tn As TreeNode
    3. Tn = New TreeNode("Kategorie")
    4. Tn.ImageIndex = 0
    5. Tn.SelectedImageIndex = 1
    6. Tn.NodeFont = New Font(TreeView1.Font, FontStyle.Bold)
    7. Me.TreeView1.Nodes.Add(Tn)
    8. FillTreeNode_Sub(Tn, dt, Convert.ToInt32("0"))
    9. Me.TreeView1.EndUpdate()
    11. End Sub
    Bilder

    • Image6.png

      23,31 kB, 298×275, 105 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „lris08“ ()

Facebook