Treeview durchsuchbar ? Geht sowas?

  • VB.NET

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

    Treeview durchsuchbar ? Geht sowas?

    Hi,

    habe ein bestehendes Treeview, was ich mit Daten aus einer Datenbank fülle...
    Darstellung als Baumstruktur...
    HauptTreeNode und SubTreenode

    Besteht die Möglichkeit, daß ich dieses Treeview durche?

    Also, TextboxX , Button, Klick --- durchsucht das Treeview und markiert die passenden Stellen...

    Geht sowas überhaupt?

    LG
    lris08

    Nach einem Begriff oder einem ganzen Wort...

    In Treeview steht:
    Hauptkategorie, Nebenkategorie

    Suche starten: Betriff: %Haut%

    markiert sollen alle einträge werden die Haupt haben

    oder

    der Begriff %Kate%
    und schon sollen alle markiert werden die Kate enthalten


    EDIT: möchte nur den Tag durchsuchen -

    diese werbseite kann nicht angezeigt werden kommt da bei mir...

    ok , aber wenn Multiselect nicht geht, muß ich es anders gestallten...
    sprich nur mit den DB Einträgen das Treeview füllen lassen, die diesem kriterium entsprechen...

    würde das gehen ?

    Aber könnte mir vorstellen, daß die auch problematisch ist... wenn z.B. ein SubTreenode den gesuchten Begriff enthält aber der HauptTreenNode nicht...

    Gugi schrieb:

    meinst du sowas? :

    VB.NET-Quellcode

    1. For Each tvnode As TreeNode In TreeView1.Nodes
    2. If tvnode.Text.Contains("suchtext") Then
    3. 'was weis ich was passieren soll wenn er es enthält^^
    4. End If
    5. Next





    Ja könnte schon sein :)

    jetzt müßt ich ihn nur noch dazu bringen, daß er mit auch Position markiert...

    Es muß ja auch keine Multiselect sein - vielleicht könnte mann es so lösen.

    suche starten, markiere den ersten gefundenen Ausdruck, oder weiter, suche nächsten und markiere

    Also habe noch mal bisserl rumgeschaut google & co

    also wäre schon total zufrieden, wenn ich nach einem Suichbegriff suchen könnte und er mir dann immer den ersten den er findet markiert, bzg. button weitersuchen bis zum nächsten Eintrag...

    Das sollte aber funktionieren odeR?


    EDIT - mein Code bisher:
    Spoiler anzeigen

    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()
    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. 'Dim ParentId As Integer
    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. If Convert.ToInt32(r("Kat_ParentID")) = 0 Then
    31. Me.TreeView1.Nodes.Add(Tn)
    32. End If
    33. FillTreeNode_Sub(Tn, dt, Convert.ToInt32(r("ID")))
    34. Next
    35. Me.TreeView1.EndUpdate()
    37. End Sub
    39. Public Sub FillTreeNode_Sub(ByRef tn As TreeNode, ByRef dt As DataTable, ByVal ID As Integer)
    40. Dim foundRows() As DataRow = dt.Select("Kat_ParentID = " + ID.ToString, "ID")
    41. Dim Tn_Sub As TreeNode
    42. For Each _r As DataRow In foundRows
    43. Tn_Sub = New TreeNode((_r("Kat_Tag").ToString))
    44. Tn_Sub.Tag = (_r("ID").ToString)
    45. tn.Nodes.Add(Tn_Sub)
    46. FillTreeNode_Sub(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
    47. Next
    49. End Sub


    EDIT2 - Hab nun schon mal eine Möglichkeit gefunden zu suchen - Tolle Lösung, klappt aber noch nicht ganz ...

    Den Text den ich in Textbox4 eingebe, wird sofort Zeitgleich gesucht - funktioniert schon mal - er makierung im treeview selbst fehlt noch... aber er findet schon was.... weil es über Treeview anscheinend unselectes markiert wird und in anderen Textboxen ausgegeben wird.

    Dann fehlt mir noch die möglichkeit nach einer Option - suche weiter...
    und das er Groß- und kleinschreibung übergehen soll...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
    2. Dim tnFound As TreeNode
    3. For Each tnCurr As TreeNode In tncoll
    4. If tnCurr.Text.Contains(strText) Then
    5. Return tnCurr
    6. End If
    7. tnFound = FindNode(tnCurr.Nodes, strText)
    8. If tnFound IsNot Nothing Then
    9. Return tnFound
    10. End If
    11. Next
    12. Return Nothing
    13. End Function
    15. Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
    16. TreeView1.SelectedNode = FindNode(TreeView1.Nodes, TextBox4.Text)
    17. TreeView1.Focus()
    18. TextBox4.Focus()
    20. End Sub
    23. Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    24. TextBox2.Text = e.Node.Tag
    25. Dim con As New OleDb.OleDbConnection
    26. Dim cmd As New OleDb.OleDbCommand
    27. Dim reader As OleDb.OleDbDataReader
    29. ' Die derzeit ausgewählte Datenbank erfassen
    30. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Datenbankpfad & "\" & Datenbankname & ".mdb"
    31. cmd.Connection = con
    32. cmd.CommandText = "SELECT * FROM " & TableName08 & " WHERE ID=" & e.Node.Tag
    33. Try
    34. con.Open()
    35. reader = cmd.ExecuteReader()
    36. Do While reader.Read()
    37. TextBox3.Text = reader("Kat_Tag").ToString()
    38. Treeview_Untekategorie = reader("Kat_Text").ToString()
    39. Loop
    40. Catch ex As Exception
    41. MsgBox(ex.Message)
    42. Return
    43. Finally
    44. 'reader.Close()
    45. con.Close()
    46. End Try
    47. End Sub
    Bilder

    • Image4.png

      36,8 kB, 687×578, 422 mal angesehen

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

Facebook
Telefonspende