Support Link wird dynamisch aus der DB geholt. - frmAbout

Global_Indexer/frmAbout.vb

@@ -1,4 +1,6 @@
-Public NotInheritable Class frmAbout
+Imports DigitalData.Modules.Base
+
+Public NotInheritable Class frmAbout
 
     Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         ' Legen Sie den Titel des Formulars fest.
@@ -26,10 +28,21 @@
     End Sub
 
 
-    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        ' Specify that the link was visited.
-        Me.LinkLabel1.LinkVisited = True
-        ' Navigate to a URL.
-        System.Diagnostics.Process.Start("https://digitaldata.works")
+    Private Sub LinkLabel_SupportPortal_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel_SupportPortal.LinkClicked
+        Try
+            Me.LinkLabel_SupportPortal.LinkVisited = True
+
+            Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
+            Dim oSupportLink As String = DATABASE_ECM.GetScalarValue(oSql)?.ToString()
+
+            If Not String.IsNullOrEmpty(oSupportLink) Then
+                Process.Start(oSupportLink)
+            Else
+                MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
+            End If
+
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 End Class