diff --git a/Leitungslaengenberechnung.sln b/Leitungslaengenberechnung.sln index 7c86520..7324d7b 100644 --- a/Leitungslaengenberechnung.sln +++ b/Leitungslaengenberechnung.sln @@ -1,22 +1,22 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 2013 -VisualStudioVersion = 12.0.31101.0 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Leitungslaengenberechnung", "Leitungslaengenberechnung\Leitungslaengenberechnung.vbproj", "{AA6CFF3E-0565-4A31-BBE1-20988A610746}" -EndProject -Global - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - Release|Any CPU = Release|Any CPU - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.Build.0 = Debug|Any CPU - {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.ActiveCfg = Release|Any CPU - {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.Build.0 = Release|Any CPU - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection -EndGlobal + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.31101.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Leitungslaengenberechnung", "Leitungslaengenberechnung\Leitungslaengenberechnung.vbproj", "{AA6CFF3E-0565-4A31-BBE1-20988A610746}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.Build.0 = Debug|Any CPU + {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.ActiveCfg = Release|Any CPU + {AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Leitungslaengenberechnung/App.config b/Leitungslaengenberechnung/App.config index 49c50e0..bc3672d 100644 --- a/Leitungslaengenberechnung/App.config +++ b/Leitungslaengenberechnung/App.config @@ -1,6 +1,6 @@ - - - - - + + + + + \ No newline at end of file diff --git a/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj b/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj index e03c929..4ec02ba 100644 --- a/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj +++ b/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj @@ -13,7 +13,7 @@ WindowsForms v4.5 true - Z:\Leitungslaengenberechnung\ + Z:\tools\Leitungslaengenberechnung\ true Web true @@ -25,12 +25,12 @@ true http://tools.dominicreich.com/Leitungslaengenberechnung/ http://tools.dominicreich.com/Leitungslaengenberechnung/ - http://klamm.io + https://github.com/freefallcid/leitungslaengenberechnung https://github.com/freefallcid/leitungslaengenberechnung/issues Leitungslängenberechnung Dominic Reich false - 2 + 3 1.0.0.%2a false true @@ -76,10 +76,11 @@ cable.ico - 528486DB0FBE19A685C8460B46BA67E50BDFB669 + 7333803A93B717E3FFCB65C8CB363B334722D217 - Leitungslaengenberechnung_TemporaryKey.pfx + + true diff --git a/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user b/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user index d203c18..9370928 100644 --- a/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user +++ b/Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user @@ -1,9 +1,9 @@  - Z:\Leitungslaengenberechnung\|publish\ + Z:\tools\Leitungslaengenberechnung\|Z:\Leitungslaengenberechnung\|publish\ http://tools.dominicreich.com/Leitungslaengenberechnung/ - http://tmsn.at/%3ftools&leitungslaengenberechnung + http://klamm.io|http://tmsn.at/%3ftools&leitungslaengenberechnung http://tools.dominicreich.com/Leitungslaengenberechnung/ https://github.com/freefallcid/leitungslaengenberechnung/issues diff --git a/Leitungslaengenberechnung/My Project/Application.Designer.vb b/Leitungslaengenberechnung/My Project/Application.Designer.vb index 018d2d3..fb200a8 100644 --- a/Leitungslaengenberechnung/My Project/Application.Designer.vb +++ b/Leitungslaengenberechnung/My Project/Application.Designer.vb @@ -1,38 +1,38 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten, - ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. - ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im - ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. - ' - Partial Friend Class MyApplication - - _ - Public Sub New() - MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = false - Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.Leitungslaengenberechnung.frm_Main - End Sub - End Class -End Namespace +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten, + ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = false + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Leitungslaengenberechnung.frm_Main + End Sub + End Class +End Namespace diff --git a/Leitungslaengenberechnung/My Project/Application.myapp b/Leitungslaengenberechnung/My Project/Application.myapp index 951b646..2248583 100644 --- a/Leitungslaengenberechnung/My Project/Application.myapp +++ b/Leitungslaengenberechnung/My Project/Application.myapp @@ -1,10 +1,10 @@ - - - true - frm_Main - false - 0 - true - 0 - false + + + true + frm_Main + false + 0 + true + 0 + false \ No newline at end of file diff --git a/Leitungslaengenberechnung/My Project/Resources.Designer.vb b/Leitungslaengenberechnung/My Project/Resources.Designer.vb index 957e5e7..f4ad9ff 100644 --- a/Leitungslaengenberechnung/My Project/Resources.Designer.vb +++ b/Leitungslaengenberechnung/My Project/Resources.Designer.vb @@ -1,62 +1,62 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.36241 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Leitungslaengenberechnung.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) - resourceCulture = value - End Set - End Property - End Module -End Namespace +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.36241 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Leitungslaengenberechnung.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/Leitungslaengenberechnung/My Project/Resources.resx b/Leitungslaengenberechnung/My Project/Resources.resx index ffecec8..af7dbeb 100644 --- a/Leitungslaengenberechnung/My Project/Resources.resx +++ b/Leitungslaengenberechnung/My Project/Resources.resx @@ -1,117 +1,117 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/Leitungslaengenberechnung/My Project/Settings.Designer.vb b/Leitungslaengenberechnung/My Project/Settings.Designer.vb index 53eee09..d86be61 100644 --- a/Leitungslaengenberechnung/My Project/Settings.Designer.vb +++ b/Leitungslaengenberechnung/My Project/Settings.Designer.vb @@ -1,73 +1,73 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.36241 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.Leitungslaengenberechnung.My.MySettings - Get - Return Global.Leitungslaengenberechnung.My.MySettings.Default - End Get - End Property - End Module -End Namespace +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.36241 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Leitungslaengenberechnung.My.MySettings + Get + Return Global.Leitungslaengenberechnung.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Leitungslaengenberechnung/My Project/Settings.settings b/Leitungslaengenberechnung/My Project/Settings.settings index 377f56d..85b890b 100644 --- a/Leitungslaengenberechnung/My Project/Settings.settings +++ b/Leitungslaengenberechnung/My Project/Settings.settings @@ -1,7 +1,7 @@ - - - - - - - + + + + + + + diff --git a/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.config b/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.config index 49c50e0..bc3672d 100644 --- a/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.config +++ b/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.config @@ -1,6 +1,6 @@ - - - - - + + + + + \ No newline at end of file diff --git a/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.manifest b/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.manifest index f96b1d6..061c9ca 100644 --- a/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.manifest +++ b/Leitungslaengenberechnung/bin/Debug/Leitungslaengenberechnung.vshost.exe.manifest @@ -1,11 +1,11 @@ - - - - - - - - - - - + + + + + + + + + + + diff --git a/Leitungslaengenberechnung/bin/Release/Leitungslaengenberechnung.vshost.exe.config b/Leitungslaengenberechnung/bin/Release/Leitungslaengenberechnung.vshost.exe.config index 49c50e0..bc3672d 100644 --- a/Leitungslaengenberechnung/bin/Release/Leitungslaengenberechnung.vshost.exe.config +++ b/Leitungslaengenberechnung/bin/Release/Leitungslaengenberechnung.vshost.exe.config @@ -1,6 +1,6 @@ - - - - - + + + + + \ No newline at end of file diff --git a/Leitungslaengenberechnung/frm_Main.Designer.vb b/Leitungslaengenberechnung/frm_Main.Designer.vb index 42e7802..22aaed4 100644 --- a/Leitungslaengenberechnung/frm_Main.Designer.vb +++ b/Leitungslaengenberechnung/frm_Main.Designer.vb @@ -83,7 +83,11 @@ Partial Class frm_Main Me.iAus_schleife = New System.Windows.Forms.TextBox() Me.Label20 = New System.Windows.Forms.Label() Me.tabPageAbout = New System.Windows.Forms.TabPage() - Me.Label24 = New System.Windows.Forms.Label() + Me.lblAboutName = New System.Windows.Forms.Label() + Me.lblAboutTirol = New System.Windows.Forms.Label() + Me.linkAboutEmail = New System.Windows.Forms.LinkLabel() + Me.linkAboutWebsite = New System.Windows.Forms.LinkLabel() + Me.linkAboutGithub = New System.Windows.Forms.LinkLabel() Me.tabAbout.SuspendLayout() Me.tab_page1.SuspendLayout() Me.tab_page2.SuspendLayout() @@ -695,7 +699,11 @@ Partial Class frm_Main ' 'tabPageAbout ' - Me.tabPageAbout.Controls.Add(Me.Label24) + Me.tabPageAbout.Controls.Add(Me.linkAboutGithub) + Me.tabPageAbout.Controls.Add(Me.linkAboutWebsite) + Me.tabPageAbout.Controls.Add(Me.linkAboutEmail) + Me.tabPageAbout.Controls.Add(Me.lblAboutTirol) + Me.tabPageAbout.Controls.Add(Me.lblAboutName) Me.tabPageAbout.Location = New System.Drawing.Point(4, 22) Me.tabPageAbout.Name = "tabPageAbout" Me.tabPageAbout.Padding = New System.Windows.Forms.Padding(3) @@ -704,13 +712,53 @@ Partial Class frm_Main Me.tabPageAbout.Text = "About" Me.tabPageAbout.UseVisualStyleBackColor = True ' - 'Label24 - ' - Me.Label24.Location = New System.Drawing.Point(21, 27) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(205, 44) - Me.Label24.TabIndex = 0 - Me.Label24.Text = "Label24" + 'lblAboutName + ' + Me.lblAboutName.AutoSize = True + Me.lblAboutName.Location = New System.Drawing.Point(25, 30) + Me.lblAboutName.Name = "lblAboutName" + Me.lblAboutName.Size = New System.Drawing.Size(76, 13) + Me.lblAboutName.TabIndex = 0 + Me.lblAboutName.Text = "Dominic Reich" + ' + 'lblAboutTirol + ' + Me.lblAboutTirol.AutoSize = True + Me.lblAboutTirol.Location = New System.Drawing.Point(25, 45) + Me.lblAboutTirol.Name = "lblAboutTirol" + Me.lblAboutTirol.Size = New System.Drawing.Size(68, 13) + Me.lblAboutTirol.TabIndex = 1 + Me.lblAboutTirol.Text = "Tirol - Austria" + ' + 'linkAboutEmail + ' + Me.linkAboutEmail.AutoSize = True + Me.linkAboutEmail.Location = New System.Drawing.Point(25, 60) + Me.linkAboutEmail.Name = "linkAboutEmail" + Me.linkAboutEmail.Size = New System.Drawing.Size(117, 13) + Me.linkAboutEmail.TabIndex = 2 + Me.linkAboutEmail.TabStop = True + Me.linkAboutEmail.Text = "info@dominicreich.com" + ' + 'linkAboutWebsite + ' + Me.linkAboutWebsite.AutoSize = True + Me.linkAboutWebsite.Location = New System.Drawing.Point(25, 75) + Me.linkAboutWebsite.Name = "linkAboutWebsite" + Me.linkAboutWebsite.Size = New System.Drawing.Size(125, 13) + Me.linkAboutWebsite.TabIndex = 3 + Me.linkAboutWebsite.TabStop = True + Me.linkAboutWebsite.Text = "https://dominicreich.com" + ' + 'linkAboutGithub + ' + Me.linkAboutGithub.AutoSize = True + Me.linkAboutGithub.Location = New System.Drawing.Point(25, 90) + Me.linkAboutGithub.Name = "linkAboutGithub" + Me.linkAboutGithub.Size = New System.Drawing.Size(127, 13) + Me.linkAboutGithub.TabIndex = 4 + Me.linkAboutGithub.TabStop = True + Me.linkAboutGithub.Text = "Dieses Projekt auf Github" ' 'frm_Main ' @@ -731,6 +779,7 @@ Partial Class frm_Main Me.tab3.ResumeLayout(False) Me.tab3.PerformLayout() Me.tabPageAbout.ResumeLayout(False) + Me.tabPageAbout.PerformLayout() Me.ResumeLayout(False) End Sub @@ -794,5 +843,9 @@ Partial Class frm_Main Friend WithEvents oAus_ausschaltstrom As System.Windows.Forms.TextBox Friend WithEvents oAus_rechnung As System.Windows.Forms.Label Friend WithEvents tabPageAbout As TabPage - Friend WithEvents Label24 As Label + Friend WithEvents lblAboutName As Label + Friend WithEvents linkAboutWebsite As LinkLabel + Friend WithEvents linkAboutEmail As LinkLabel + Friend WithEvents lblAboutTirol As Label + Friend WithEvents linkAboutGithub As LinkLabel End Class diff --git a/Leitungslaengenberechnung/frm_Main.vb b/Leitungslaengenberechnung/frm_Main.vb index c5f9e45..9981252 100644 --- a/Leitungslaengenberechnung/frm_Main.vb +++ b/Leitungslaengenberechnung/frm_Main.vb @@ -59,7 +59,7 @@ iAus_type.SelectedIndex = 0 ' tabAbout - set multiline text to label - Label24.Text = "Dominic Reich" & Chr(13) & "dr@klamm.io" & Chr(13) & "visit me at http://klamm.io" + 'Label24.Text = "Dominic Reich" & Chr(13) & "Email: " & Chr(13) & Chr(13) & "visit me at https://dominicreich.com" End Sub @@ -73,4 +73,16 @@ End If oAus_rechnung.Text = Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text), 2) & " * " & Math.Round(CDec(oAus_ausschaltstrom.Text), 2) & Chr(13) & Chr(10) & Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text) * CDec(oAus_ausschaltstrom.Text), 2) End Sub + + Private Sub linkAboutEmail_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutEmail.LinkClicked + Process.Start("mailto:Dominic Reich ?subject=[Leitungslängenberechnung]%20Kommentar&body=Hallo%20Dominic,%20%0A%0A--%20%0AEmail%20über%20das%20Programm%20'Leitungslängenberechnung'%20erstellt") + End Sub + + Private Sub linkAboutWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutWebsite.LinkClicked + Process.Start("https://dominicreich.com/projekte/") + End Sub + + Private Sub linkAboutGithub_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutGithub.LinkClicked + Process.Start("https://github.com/freefallcid/leitungslaengenberechnung") + End Sub End Class diff --git a/Leitungslaengenberechnung/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/Leitungslaengenberechnung/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache index 6f8b07a..45bbc29 100644 Binary files a/Leitungslaengenberechnung/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and b/Leitungslaengenberechnung/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ