Support-Link wird aus der Datenbank geholt - frmConfig_Basic
This commit is contained in:
parent
45159b9ffc
commit
5bcae3416f
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user