Imports System.Windows.Forms

Public Class Form
    Dim d As New edokadb.clsMyDokumentart
    Dim dbconn As New DB_Connection
    Dim db As New DB

    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, "", False, 0)
        Dim tn As New TreeNode
        Try
            tn = FindNode(Me.TreeDokVorlagen.Nodes, 0, "Einzeldokumente")
            TreeDokVorlagen.Nodes.Remove(tn)
        Catch ex As Exception
        End Try
        Me.TreeDokVorlagen.ExpandAll()
        Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
        Me.TreeDokVorlagen.SelectedNode.EnsureVisible()
    End Sub

    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
        Dim tmpNode As TreeNode
        For Each _child As TreeNode In _nodeCollection
            If _child.Text = SearchString Then

                Return _child
            End If
            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
            ' Return _child
            ' End If
            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
            If Not tmpNode Is Nothing Then
                Return tmpNode
            End If
        Next
        Return Nothing
    End Function

    Private Function TagValue(ByVal tag As String) As String
        Dim Keyvalue As String
        Keyvalue = tag
        Return Keyvalue.Substring(3, Len(Keyvalue) - 3)
    End Function

    Private Sub TreeDokVorlagen_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeDokVorlagen.AfterSelect
        Me.C1DokumenttypFunktionen.DataSource = Nothing
        db.Get_Dokumenttyp_Funktionsgruppe(TagValue(Me.TreeDokVorlagen.SelectedNode.Tag))
        Me.C1DokumenttypFunktionen.DataSource = db.dsdaten1.Tables(0)
        Me.C1DokumenttypFunktionen.DataMember = db.dsdaten1.Tables(0).TableName

    End Sub

    Private Sub btnsuche_Click(sender As Object, e As EventArgs) Handles btnsuche.Click
        dokumentvorlage_suchen()
    End Sub

    Private Sub txtSuchbegriff_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSuchbegriff.KeyDown
        If e.KeyCode = Keys.KeyCode.Return Then
            dokumentvorlage_suchen()
        End If
    End Sub

    Private Sub dokumentvorlage_suchen()
        Me.TreeDokVorlagen.BeginUpdate()
        Dim d As New edokadb.clsMyDokumentart()
        d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, Me.txtSuchbegriff.Text, False, 0)
        d.Dispose()
        Me.TreeDokVorlagen.ExpandAll()
        'Me.txtSuchbegriff.Text = ""
        Me.TreeDokVorlagen.EndUpdate()
        Try
            Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
        Catch
        End Try
    End Sub

End Class