updates emails and urls

master
Dominic Reich 9 years ago
parent e52ba66982
commit 339af62239

@ -487,7 +487,7 @@
<value>7</value> <value>7</value>
</data> </data>
<data name="link_Email.Text" xml:space="preserve"> <data name="link_Email.Text" xml:space="preserve">
<value>dominic@tmsn.at</value> <value>Email</value>
</data> </data>
<data name="link_Email.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="link_Email.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleCenter</value> <value>MiddleCenter</value>
@ -514,7 +514,7 @@
<value>8</value> <value>8</value>
</data> </data>
<data name="link_Website.Text" xml:space="preserve"> <data name="link_Website.Text" xml:space="preserve">
<value>http://tmsn.at/?tools&amp;&amp;rcon-chat</value> <value>Website</value>
</data> </data>
<data name="link_Website.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="link_Website.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleCenter</value> <value>MiddleCenter</value>

@ -56,7 +56,7 @@ Public Class frmMain
Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked
On Error GoTo showerr On Error GoTo showerr
link_Email.LinkVisited = True link_Email.LinkVisited = True
System.Diagnostics.Process.Start("mailto:Dominic Reich <dominic@tmsn.at>") System.Diagnostics.Process.Start("mailto:Dominic Reich <dr@klamm.io>")
Exit Sub Exit Sub
showerr: showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
@ -65,7 +65,7 @@ showerr:
Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked
On Error GoTo showerr On Error GoTo showerr
link_Website.LinkVisited = True link_Website.LinkVisited = True
System.Diagnostics.Process.Start("http://tmsn.at/?tools&rcon-chat") System.Diagnostics.Process.Start("http://klamm.io")
Exit Sub Exit Sub
showerr: showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)

Loading…
Cancel
Save