You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.8 KiB
77 lines
2.8 KiB
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 |