Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/Archiv_20220220/frmStrukturauswahl.vb

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