39 lines
1.7 KiB
VB.net
39 lines
1.7 KiB
VB.net
Public Class MainMenu
|
|
Private Sub btnQuitGame_Click(sender As Object, e As EventArgs) Handles btnQuitGame.Click
|
|
SplashScreen.Close()
|
|
End Sub
|
|
|
|
Private Sub btnNewGame_Click(sender As Object, e As EventArgs) Handles btnNewGame.Click
|
|
CharacterCreation.Show()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MainMenu_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
picCoatofArms.Width = Screen.PrimaryScreen.Bounds.Height
|
|
|
|
pnlMenu.Height = Screen.PrimaryScreen.Bounds.Height
|
|
pnlMenu.Width = (Screen.PrimaryScreen.Bounds.Width - picCoatofArms.Width)
|
|
pnlMenu.Location = New Point(picCoatofArms.Width, pnlMenu.Location.Y)
|
|
|
|
btnNewGame.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20)
|
|
btnNewGame.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 44)
|
|
|
|
btnLoadGame.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20)
|
|
btnLoadGame.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 58)
|
|
|
|
btnQuitGame.Width = btnNewGame.Width / 2
|
|
btnQuitGame.Location = New Point(btnNewGame.Location.X + (btnNewGame.Width / 4), (pnlMenu.Height / 100) * 86)
|
|
|
|
picRoyaltySimulatorLogo.Width = btnNewGame.Width
|
|
picRoyaltySimulatorLogo.Height = (pnlMenu.Height / 100) * 30
|
|
picRoyaltySimulatorLogo.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 10)
|
|
End Sub
|
|
|
|
Private Sub btnLoadGame_Click(sender As Object, e As EventArgs) Handles btnLoadGame.Click
|
|
MsgBox("Saving and loading coming soon")
|
|
End Sub
|
|
|
|
Private Sub MainMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
MusicPlayer.PlayRuleBritannia()
|
|
End Sub
|
|
End Class
|