Public Class frmLizenzsuche

    Public Treeviewdata_Lizenz_Suche As New TKB.VV.Lizenz.clsLizenzTree
    Public activenodetag As Integer

    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.BeendenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub frmLizenzsuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Treeviewdata_Lizenz_Suche.Load_Tree(Me.Treelizenzen, False, "", , , , , )

    End Sub

    Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuche.Click
        Me.Treelizenzen.Nodes.Clear()
        Treeviewdata_Lizenz_Suche.Load_Tree(Me.Treelizenzen, False, Me.txtSuche.Text, , , , )
    End Sub

    Private Sub txtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then btnSuche_Click(sender, e)
    End Sub

    Dim aktivnode As TreeNode
    Private Sub Treelizenzen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Treelizenzen.DoubleClick
        Dim i As Integer
        Try
            Dim s As String
            s = Treelizenzen.SelectedNode.Tag
            s = s.Replace("*", "0")
            s = s.Replace(" ", "0")
            Me.activenodetag = s
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Treelizenzen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Treelizenzen.AfterSelect
        Dim AktivNode As TreeNode = Me.Treelizenzen.SelectedNode
        Try
            Dim s As String
            s = Treelizenzen.SelectedNode.Tag
            s = s.Replace("*", "0")
            s = s.Replace(" ", "0")
            Me.activenodetag = s
        Catch ex As Exception
        End Try
    End Sub

    Friend selectPoint As New System.Drawing.Point()


    Private Sub TreeLizenzen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Treelizenzen.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.GetNodeAt(selectPoint)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

End Class