Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/Archiv_20220220/frmLizenzsuche.vb

@@ -0,0 +1,73 @@
+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