Public Class frmStrukturauswahl
#Region "Deklarationen"
    Dim Treeviewdata As New TKB.VV.Lizenz.clsLizenzTree
    Public SelectedValue As Integer = -1
#End Region

    Private Sub frmStrukturauswahl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
        Try
            Me.SelectedValue = Me.TreeLizenzen.SelectedNode.Tag
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        Catch ex As Exception

        End Try
    End Sub
    Private Sub frmStrukturauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Treeviewdata.Load_Tree(Me.TreeLizenzen, False, "", True)
        Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub TSBtnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSelect.Click
        frmStrukturauswahl_DoubleClick(sender, e)
    End Sub

    Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnSuche.Click
        Dim i As Integer
        Suchen()
    End Sub
    Sub suchen()
        Try
            Treeviewdata.Load_Tree(Me.TreeLizenzen, False, Me.TSTxtSuche.Text, True)
            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
        Catch
        End Try
    End Sub


    Private Sub TSTxtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TSTxtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then suchen()
    End Sub
End Class