47 lines
1.9 KiB
VB.net
47 lines
1.9 KiB
VB.net
|
Public NotInheritable Class FrmAboutBox
|
|||
|
|
|
|||
|
|
Private Sub FrmAboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
' Set the title of the form.
|
|||
|
|
'Dim ApplicationTitle As String
|
|||
|
|
|
|||
|
|
'If My.Application.Info.Title <> "" Then
|
|||
|
|
' ApplicationTitle = My.Application.Info.Title
|
|||
|
|
'Else
|
|||
|
|
' ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
'Me.Text = String.Format("About {0}", ApplicationTitle)
|
|||
|
|
' Initialize all of the text displayed on the About Box.
|
|||
|
|
' TODO: Customize the application's assembly information in the "Application" pane of the project
|
|||
|
|
' properties dialog (under the "Project" menu).
|
|||
|
|
|
|||
|
|
'Me.LabelProductName.Text = My.Application.Info.ProductName
|
|||
|
|
'Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
|||
|
|
|
|||
|
|
'Me.LabelCopyright.Text = My.Application.Info.Version.ToString & " <20> Copyright 1997-2015"
|
|||
|
|
|
|||
|
|
'Me.LabelCompanyName.Text = My.Application.Info.CompanyName
|
|||
|
|
|
|||
|
|
'Me.TextBoxDescription.Text = My.Application.Info.Description
|
|||
|
|
|
|||
|
|
TextBoxDescription.Text = "Tel<EFBFBD>fonos de contacto Ciudad de M<>xico " & vbCrLf &
|
|||
|
|
"(+52) (55) 56113961, (+52) (55) 56113971"
|
|||
|
|
|
|||
|
|
|
|||
|
|
LabelCopyright.Text &= Date.Now.Year
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub LabelCompanyName_Click(sender As System.Object, e As System.EventArgs) Handles LabelCompanyName.Click
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
|||
|
|
System.Diagnostics.Process.Start("IExplore", "http://www.condorbs.net/")
|
|||
|
|
End Sub
|
|||
|
|
End Class
|