LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
38 lines
1.7 KiB
VB.net
38 lines
1.7 KiB
VB.net
Public NotInheritable Class frmSplash
|
|
|
|
'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab
|
|
' of the Project Designer ("Properties" under the "Project" menu).
|
|
|
|
|
|
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
'Set up the dialog text at runtime according to the application's assembly information.
|
|
|
|
'TODO: Customize the application's assembly information in the "Application" pane of the project
|
|
' properties dialog (under the "Project" menu).
|
|
|
|
'Application title
|
|
ApplicationTitle.Text = "rylCoder"
|
|
|
|
|
|
'Format the version information using the text set into the Version control at design time as the
|
|
' formatting string. This allows for effective localization if desired.
|
|
' Build and revision information could be included by using the following code and changing the
|
|
' Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar. See
|
|
' String.Format() in Help for more information.
|
|
'
|
|
' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
|
|
|
|
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
|
|
|
|
'Copyright info
|
|
Copyright.Text = My.Application.Info.Copyright
|
|
|
|
Me.tmrClose.Start()
|
|
End Sub
|
|
|
|
Private Sub tmrClose_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrClose.Tick
|
|
Me.tmrClose.Stop()
|
|
Me.Close()
|
|
End Sub
|
|
End Class
|