mirror of
https://github.com/Gamer2020/PokemonGameEditor.git
synced 2026-05-27 19:08:05 -05:00
adc0696c32
Finally got around to uploading the source code. There are still things to be done. Once a couple of things are fixed a released will be made. In the mean time people that know how to compile the program can do so but make sure to adhere to the license.
27 lines
1.3 KiB
VB.net
27 lines
1.3 KiB
VB.net
Public NotInheritable Class AboutBox1
|
|
|
|
Private Sub AboutBox1_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.Copyright
|
|
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
|
|
Me.TextBoxDescription.Text = My.Application.Info.Description
|
|
End Sub
|
|
|
|
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
End Class
|