Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/frmLizenzbeziehung_Aendern.vb

@@ -4,6 +4,7 @@
     Dim Bezeichnung As String
     Dim Selectednode As Integer
     Dim liztree As TKB.VV.Lizenz.clsLizenzTree
+    Dim sHyperlink As String
     Sub New()
 
         ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
@@ -13,11 +14,12 @@
 
     End Sub
 
-    Sub New(ByRef lizenztree As TKB.VV.Lizenz.clsLizenzTree, ByVal bez As String, ByVal selnode As Integer)
+    Sub New(ByRef lizenztree As TKB.VV.Lizenz.clsLizenzTree, ByVal bez As String, ByVal selnode As Integer, ByVal Hyperlink As String)
         InitializeComponent()
         Me.liztree = lizenztree
         Me.Bezeichnung = bez
         Me.Selectednode = selnode
+        Me.sHyperlink = Hyperlink
     End Sub
 
 
@@ -30,7 +32,12 @@
         Catch ex As Exception
             Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
         End Try
+        Try
+            Me.txtHyperlink.Text = sHyperlink
 
+        Catch ex As Exception
+            Me.txtHyperlink.Text = ""
+        End Try
     End Sub
 
     Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
@@ -46,4 +53,18 @@
         liztree.Load_Tree(Me.TreeLizenzen, True)
         Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
     End Sub
+
+    Private Sub txtHyperlink_TextChanged(sender As Object, e As EventArgs) Handles txtHyperlink.TextChanged
+
+    End Sub
+
+    Private Sub txtHyperlink_Leave(sender As Object, e As EventArgs) Handles txtHyperlink.Leave
+        Dim clsv As New clsValidator
+        If clsv.VerifyString(Me.txtHyperlink.Text) = False Then
+            Me.txtHyperlink.Select()
+            MsgBox(clsv.Resultmessage, vbExclamation)
+
+        End If
+        clsv = Nothing
+    End Sub
 End Class