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

MS12.11_2

Browse Source
This commit is contained in:
SchreiberM
2015-11-12 15:33:51 +01:00
parent 4b3c9b3aa5
commit 16a53fb312
6 changed files with 113 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD-Record-Organiser/frmAbout.vb
View File

@@ -8,28 +8,24 @@
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Me.Text = String.Format("Info {0}", ApplicationTitle)
' Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird.
' TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die
' Projekteigenschaften (im Menü "Projekt") anpassen.
Me.lblProductname.Text = My.Application.Info.ProductName
Me.Text = String.Format("Information zu: {0}", ApplicationTitle)
'Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird.
'TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die
'Projekteigenschaften (im Menü "Projekt") anpassen.
lblProduktname.Text = My.Application.Info.ProductName
Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
'Me.LabelCopyright.Text = My.Application.Info.Copyright
Me.lblCompanyName.Text = My.Application.Info.CompanyName
Me.txtDescription.Text = My.Application.Info.Description
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Me.Close()
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("www.didalog.de")
System.Diagnostics.Process.Start("http://www.didalog.de")
LinkLabel1.LinkVisited = True
End Sub
Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
System.Diagnostics.Process.Start("www.didalog.de/support")
LinkLabel3.LinkVisited = True
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
System.Diagnostics.Process.Start("http://www.didalog.de/support")
LinkLabel2.LinkVisited = True
End Sub
End Class