diff --git a/Global_Indexer/frmAbout.Designer.vb b/Global_Indexer/frmAbout.Designer.vb index 049dc42..f8fc19b 100644 --- a/Global_Indexer/frmAbout.Designer.vb +++ b/Global_Indexer/frmAbout.Designer.vb @@ -30,7 +30,7 @@ Partial Class frmAbout Me.lblVersion = New System.Windows.Forms.Label() Me.lblCompanyName = New System.Windows.Forms.Label() Me.txtDescription = New System.Windows.Forms.TextBox() - Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel_SupportPortal = New System.Windows.Forms.LinkLabel() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -91,36 +91,36 @@ Partial Class frmAbout Me.txtDescription.Size = New System.Drawing.Size(260, 103) Me.txtDescription.TabIndex = 5 ' - 'LinkLabel1 + 'LinkLabel_SupportPortal ' - Me.LinkLabel1.AutoSize = True - Me.LinkLabel1.Location = New System.Drawing.Point(281, 200) - Me.LinkLabel1.Name = "LinkLabel1" - Me.LinkLabel1.Size = New System.Drawing.Size(127, 13) - Me.LinkLabel1.TabIndex = 6 - Me.LinkLabel1.TabStop = True - Me.LinkLabel1.Text = "www.digitaldata.works" + Me.LinkLabel_SupportPortal.AutoSize = True + Me.LinkLabel_SupportPortal.Location = New System.Drawing.Point(281, 200) + Me.LinkLabel_SupportPortal.Name = "LinkLabel_SupportPortal" + Me.LinkLabel_SupportPortal.Size = New System.Drawing.Size(127, 13) + Me.LinkLabel_SupportPortal.TabIndex = 6 + Me.LinkLabel_SupportPortal.TabStop = True + Me.LinkLabel_SupportPortal.Text = "www.digitaldata.works" ' - 'AboutBox1 + 'frmAbout ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.CancelButton = Me.OKButton Me.ClientSize = New System.Drawing.Size(544, 268) - Me.Controls.Add(Me.LinkLabel1) + Me.Controls.Add(Me.LinkLabel_SupportPortal) Me.Controls.Add(Me.txtDescription) Me.Controls.Add(Me.lblCompanyName) Me.Controls.Add(Me.lblVersion) Me.Controls.Add(Me.lblProduktname) Me.Controls.Add(Me.OKButton) Me.Controls.Add(Me.PictureBox1) - Me.DoubleBuffered = true - Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.DoubleBuffered = True + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog - Me.MaximizeBox = false - Me.MinimizeBox = false - Me.Name = "AboutBox1" + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmAbout" Me.Padding = New System.Windows.Forms.Padding(9) Me.ShowInTaskbar = false Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent @@ -135,6 +135,6 @@ End Sub Friend WithEvents lblVersion As System.Windows.Forms.Label Friend WithEvents lblCompanyName As System.Windows.Forms.Label Friend WithEvents txtDescription As System.Windows.Forms.TextBox - Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel_SupportPortal As System.Windows.Forms.LinkLabel End Class diff --git a/Global_Indexer/frmAbout.vb b/Global_Indexer/frmAbout.vb index e53a075..8a541f2 100644 --- a/Global_Indexer/frmAbout.vb +++ b/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 diff --git a/Global_Indexer/frmIndex.resx b/Global_Indexer/frmIndex.resx index 620db59..feac12e 100644 --- a/Global_Indexer/frmIndex.resx +++ b/Global_Indexer/frmIndex.resx @@ -293,13 +293,13 @@ TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA - AAAAAAA8AQAAAAYKAAAALjxiPlfDpGhsZW4sIHVtIERhdGVpdm9yc2NoYXUgenUgYWt0aXZpZXJlbjwv - Yj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVy - aQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAA - E1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25t - ZW50AgAAAAgIAgAAAAYLAAAAAAX0////E1N5c3RlbS5EcmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdo - dAAACAgHAAAAAAAAAAAAAAAF8////yZEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVu - dAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAs= + AAAAAAA8AQAAAAYKAAAAMTxiPlplaWd0IGVpbmUgVm9yc2NoYXUgZGVyIGFrdHVlbGxlbiBEYXRlaSBh + bjwvYj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFn + ZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEE + BAAAE1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdlQWxp + Z25tZW50AgAAAAgIAgAAAAYLAAAAAAX0////E1N5c3RlbS5EcmF3aW5nLlNpemUCAAAABXdpZHRoBmhl + aWdodAAACAgHAAAAAAAAAAAAAAAF8////yZEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdu + bWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAs= @@ -634,6 +634,32 @@ Segoe UI, 8.25pt, style=Bold + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBQAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wBAAABAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAABCCVEZXZFeHByZXNz + LlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAABxEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVt + AgAAAAIAAAAF/P///x9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAQAAAAd2YWx1ZV9fAAgD + AAAAAgAAAAABAAAABfv///8lRGV2RXhwcmVzcy5VdGlscy5TdXBlclRvb2xUaXBJdGVtVHlwZQEAAAAH + dmFsdWVfXwAIAgAAAAAAAAAJBgAAAAwHAAAAUVN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAs + IEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYQUGAAAAHERldkV4 + cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0HAAAADUFsbG93SHRtbFRleHQESWNvbgxJbWFnZU9wdGlvbnMK + TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz + cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA + AAAAAAA8AQAAAAYKAAAALjxiPkluZGV4aWVydCBhdXNnZXfDpGhsdGUgRGF0ZWkoZW4pIC0gKEY1KTwv + Yj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVy + aQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAA + E1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25t + ZW50AgAAAAgIAgAAAAYLAAAAAAX0////E1N5c3RlbS5EcmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdo + dAAACAgHAAAAAAAAAAAAAAAF8////yZEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVu + dAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAs= + + BarButtonItem3