From 5bcae3416fbb7b9dd1e967cfe7b1a73fa905c38d Mon Sep 17 00:00:00 2001 From: OlgunR Date: Tue, 7 Oct 2025 09:05:20 +0200 Subject: [PATCH 1/2] Support-Link wird aus der Datenbank geholt - frmConfig_Basic --- app/DD_Clipboard_Searcher/frmConfig_Basic.vb | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb index e8ce007..607f4ee 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb @@ -129,8 +129,20 @@ Public Class frmConfig_Basic End Sub Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked - LinkLabel1.LinkVisited = True - Process.Start("http://www.didalog.de/Support") + Try + Me.LinkLabel1.LinkVisited = True + + Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'" + Dim oSupportLink As String = MyDB_DDECM.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 Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click From 29a9977b5b4efaa94dbbe2035b432452b123d4d1 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Tue, 7 Oct 2025 12:49:31 +0200 Subject: [PATCH 2/2] Assembly und Splashscreen aktualisiert --- app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb index e6145a7..de9dc87 100644 --- a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb +++ b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb @@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - +