AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:45159b9ffc829b85634bf379b67b660efc5d9e9c
Branches Tags
AppStd:master
...
compare: AppStd:master
Branches Tags
AppStd:master

2 Commits
45159b9ffc ... master

Author SHA1 Message Date
OlgunR
29a9977b5b Assembly und Splashscreen aktualisiert 2025-10-07 12:49:31 +02:00
OlgunR
5bcae3416f Support-Link wird aus der Datenbank geholt - frmConfig_Basic 2025-10-07 09:05:20 +02:00
2 changed files with 16 additions and 4 deletions
Expand all files Collapse all files

4
app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("easyFLOW")> <Assembly: AssemblyProduct("easyFLOW")>
<Assembly: AssemblyCopyright("Copyright © 2023")> <Assembly: AssemblyCopyright("Copyright © 2025")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.5.0")> <Assembly: AssemblyVersion("2.7.6.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

16
app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@@ -129,8 +129,20 @@ Public Class frmConfig_Basic
End Sub End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True Try
Process.Start("http://www.didalog.de/Support") 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 End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click