client/FrmAboutBox.vb

47 lines
1.9 KiB
VB.net
Raw Normal View History

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