Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/Archiv_20220220/frmLizenzbeziehung_Aendern.vb

@@ -0,0 +1,49 @@
+Public Class frmLizenzbeziehung_Aendern
+
+    Dim Treelizenzelement As New TreeView
+    Dim Bezeichnung As String
+    Dim Selectednode As Integer
+    Dim liztree As TKB.VV.Lizenz.clsLizenzTree
+    Sub New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(ByRef lizenztree As TKB.VV.Lizenz.clsLizenzTree, ByVal bez As String, ByVal selnode As Integer)
+        InitializeComponent()
+        Me.liztree = lizenztree
+        Me.Bezeichnung = bez
+        Me.Selectednode = selnode
+    End Sub
+
+
+    Private Sub frmLizenzbeziehung_Aendern_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.txtBemerkung.Text = Me.Bezeichnung
+        Me.TreeLizenzen.Nodes.Clear()
+        liztree.Load_Treeview(Me.TreeLizenzen)
+        Try
+            Me.TreeLizenzen.SelectedNode = liztree.FindNode(Me.TreeLizenzen.Nodes, Me.Selectednode, "")
+        Catch ex As Exception
+            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
+        End Try
+
+    End Sub
+
+    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        liztree.Load_Tree(Me.TreeLizenzen, True)
+        Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
+    End Sub
+End Class