Merge pull request #33 from kimmknight/issue27

Issue27
This commit is contained in:
Mr. Brian Gale 2020-08-21 09:42:40 -06:00 committed by GitHub
commit 36610eda69
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 26 additions and 20 deletions

View File

@ -31,6 +31,7 @@ Partial Class RemoteAppAboutWindow
Me.IconLibLabel = New System.Windows.Forms.Label() Me.IconLibLabel = New System.Windows.Forms.Label()
Me.IconLibLinkLabel = New System.Windows.Forms.LinkLabel() Me.IconLibLinkLabel = New System.Windows.Forms.LinkLabel()
Me.IconLibLicenceTextLabel = New System.Windows.Forms.Label() Me.IconLibLicenceTextLabel = New System.Windows.Forms.Label()
Me.RemoteAppToolLicenceTextLabel = New System.Windows.Forms.Label()
Me.SuspendLayout() Me.SuspendLayout()
' '
'TitleLabel 'TitleLabel
@ -61,24 +62,24 @@ Partial Class RemoteAppAboutWindow
Me.CopyrightLabel.Name = "CopyrightLabel" Me.CopyrightLabel.Name = "CopyrightLabel"
Me.CopyrightLabel.Size = New System.Drawing.Size(263, 30) Me.CopyrightLabel.Size = New System.Drawing.Size(263, 30)
Me.CopyrightLabel.TabIndex = 0 Me.CopyrightLabel.TabIndex = 0
Me.CopyrightLabel.Text = "Created by Kim Knight" Me.CopyrightLabel.Text = "Kim Knight, Brian Gale"
Me.CopyrightLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.CopyrightLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'SiteLinkLabel 'SiteLinkLabel
' '
Me.SiteLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.SiteLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.SiteLinkLabel.Location = New System.Drawing.Point(17, 99) Me.SiteLinkLabel.Location = New System.Drawing.Point(15, 129)
Me.SiteLinkLabel.Name = "SiteLinkLabel" Me.SiteLinkLabel.Name = "SiteLinkLabel"
Me.SiteLinkLabel.Size = New System.Drawing.Size(263, 30) Me.SiteLinkLabel.Size = New System.Drawing.Size(271, 30)
Me.SiteLinkLabel.TabIndex = 1 Me.SiteLinkLabel.TabIndex = 1
Me.SiteLinkLabel.TabStop = True Me.SiteLinkLabel.TabStop = True
Me.SiteLinkLabel.Text = "www.kimknight.net/remoteapptool" Me.SiteLinkLabel.Text = "https://github.com/kimmknight/remoteapptool"
Me.SiteLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.SiteLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'IconLibCreatedByLabel 'IconLibCreatedByLabel
' '
Me.IconLibCreatedByLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.IconLibCreatedByLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.IconLibCreatedByLabel.Location = New System.Drawing.Point(17, 159) Me.IconLibCreatedByLabel.Location = New System.Drawing.Point(17, 189)
Me.IconLibCreatedByLabel.Name = "IconLibCreatedByLabel" Me.IconLibCreatedByLabel.Name = "IconLibCreatedByLabel"
Me.IconLibCreatedByLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibCreatedByLabel.Size = New System.Drawing.Size(263, 30)
Me.IconLibCreatedByLabel.TabIndex = 4 Me.IconLibCreatedByLabel.TabIndex = 4
@ -89,7 +90,7 @@ Partial Class RemoteAppAboutWindow
' '
Me.IconLibLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.IconLibLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.IconLibLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.IconLibLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.IconLibLabel.Location = New System.Drawing.Point(17, 129) Me.IconLibLabel.Location = New System.Drawing.Point(17, 159)
Me.IconLibLabel.Name = "IconLibLabel" Me.IconLibLabel.Name = "IconLibLabel"
Me.IconLibLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLabel.Size = New System.Drawing.Size(263, 30)
Me.IconLibLabel.TabIndex = 5 Me.IconLibLabel.TabIndex = 5
@ -99,30 +100,41 @@ Partial Class RemoteAppAboutWindow
'IconLibLinkLabel 'IconLibLinkLabel
' '
Me.IconLibLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.IconLibLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.IconLibLinkLabel.Location = New System.Drawing.Point(17, 219) Me.IconLibLinkLabel.Location = New System.Drawing.Point(12, 249)
Me.IconLibLinkLabel.Name = "IconLibLinkLabel" Me.IconLibLinkLabel.Name = "IconLibLinkLabel"
Me.IconLibLinkLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLinkLabel.Size = New System.Drawing.Size(274, 30)
Me.IconLibLinkLabel.TabIndex = 1 Me.IconLibLinkLabel.TabIndex = 1
Me.IconLibLinkLabel.TabStop = True Me.IconLibLinkLabel.TabStop = True
Me.IconLibLinkLabel.Text = "http://creativecommons.org/licenses/by-sa/3.0/" Me.IconLibLinkLabel.Text = "https://creativecommons.org/licenses/by-sa/3.0/"
Me.IconLibLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.IconLibLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'IconLibLicenceTextLabel 'IconLibLicenceTextLabel
' '
Me.IconLibLicenceTextLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.IconLibLicenceTextLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.IconLibLicenceTextLabel.Location = New System.Drawing.Point(17, 189) Me.IconLibLicenceTextLabel.Location = New System.Drawing.Point(17, 219)
Me.IconLibLicenceTextLabel.Name = "IconLibLicenceTextLabel" Me.IconLibLicenceTextLabel.Name = "IconLibLicenceTextLabel"
Me.IconLibLicenceTextLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLicenceTextLabel.Size = New System.Drawing.Size(263, 30)
Me.IconLibLicenceTextLabel.TabIndex = 4 Me.IconLibLicenceTextLabel.TabIndex = 4
Me.IconLibLicenceTextLabel.Text = "Licensed under a Creative Commons" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attribution-Share Alike 3.0 Unported License" Me.IconLibLicenceTextLabel.Text = "Licensed under a Creative Commons" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attribution-Share Alike 3.0 Unported License"
Me.IconLibLicenceTextLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.IconLibLicenceTextLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'RemoteAppToolLicenceTextLabel
'
Me.RemoteAppToolLicenceTextLabel.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.RemoteAppToolLicenceTextLabel.Location = New System.Drawing.Point(17, 99)
Me.RemoteAppToolLicenceTextLabel.Name = "RemoteAppToolLicenceTextLabel"
Me.RemoteAppToolLicenceTextLabel.Size = New System.Drawing.Size(263, 30)
Me.RemoteAppToolLicenceTextLabel.TabIndex = 6
Me.RemoteAppToolLicenceTextLabel.Text = "Licensed under The MIT License"
Me.RemoteAppToolLicenceTextLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'RemoteAppAboutWindow 'RemoteAppAboutWindow
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(298, 267) Me.ClientSize = New System.Drawing.Size(298, 296)
Me.Controls.Add(Me.RemoteAppToolLicenceTextLabel)
Me.Controls.Add(Me.IconLibLicenceTextLabel) Me.Controls.Add(Me.IconLibLicenceTextLabel)
Me.Controls.Add(Me.IconLibCreatedByLabel) Me.Controls.Add(Me.IconLibCreatedByLabel)
Me.Controls.Add(Me.IconLibLabel) Me.Controls.Add(Me.IconLibLabel)
@ -149,4 +161,5 @@ Partial Class RemoteAppAboutWindow
Friend WithEvents IconLibLabel As System.Windows.Forms.Label Friend WithEvents IconLibLabel As System.Windows.Forms.Label
Friend WithEvents IconLibLinkLabel As System.Windows.Forms.LinkLabel Friend WithEvents IconLibLinkLabel As System.Windows.Forms.LinkLabel
Friend WithEvents IconLibLicenceTextLabel As System.Windows.Forms.Label Friend WithEvents IconLibLicenceTextLabel As System.Windows.Forms.Label
Friend WithEvents RemoteAppToolLicenceTextLabel As Label
End Class End Class

View File

@ -10,18 +10,11 @@ Public Class RemoteAppAboutWindow
End Sub End Sub
Private Sub SiteLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles SiteLinkLabel.LinkClicked Private Sub SiteLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles SiteLinkLabel.LinkClicked
System.Diagnostics.Process.Start("http://www.kimknight.net/remoteapptool") System.Diagnostics.Process.Start(SiteLinkLabel.Text)
End Sub End Sub
Private Sub IconLibLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IconLibLinkLabel.LinkClicked Private Sub IconLibLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IconLibLinkLabel.LinkClicked
System.Diagnostics.Process.Start("http://creativecommons.org/licenses/by-sa/3.0/") System.Diagnostics.Process.Start(IconLibLinkLabel.Text)
End Sub End Sub
Private Sub ralibLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
System.Diagnostics.Process.Start("http://www.kimknight.net/")
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
System.Diagnostics.Process.Start("http://www.kimknight.net/")
End Sub
End Class End Class