' VB.NET Games Source Code
Public Class VB.NET_frm
Private Sub Btn_NewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_NewGame.Click
MsgBox(Btn_NewGame.Text & " Completed ", MsgBoxStyle.OkOnly, " Create Main Menu In Game With VBDotne ")
End Sub
Private Sub VB.NET_frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Text = " Create Main Menu In Game With VBDotne "
Me.BackColor = Color.Black
Me.Height = 284
Me.Width = 551
LabelMainMenu.Text = " Main Menu "
LabelMainMenu.BackColor = Color.Black
LabelMainMenu.ForeColor = Color.Red
Btn_NewGame.Text = " New Game "
Btn_NewGame.BackColor = Color.Yellow
Btn_Option.Text = " Option "
Btn_Option.BackColor = Color.Yellow
Btn_Credit.Text = " Credit "
Btn_Credit.BackColor = Color.Yellow
Btn_Exit.Text = " Exit "
Btn_Exit.BackColor = Color.Yellow
End Sub
Private Sub Btn_Option_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Option.Click
MsgBox(Btn_Option.Text & " Completed ", MsgBoxStyle.OkOnly, " Create Main Menu In Game With VBDotne ")
End Sub
Private Sub Btn_Credit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Credit.Click
MsgBox(Btn_Credit.Text & " Completed ", MsgBoxStyle.OkOnly, " Create Main Menu In Game With VBDotne ")
End Sub
Private Sub Btn_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Exit.Click
MsgBox(Btn_Exit.Text & " Completed ", MsgBoxStyle.OkOnly, " Create Main Menu In Game With VBDotne ")
End Sub
End Class
' Design VB.NET Source Code Games By Fernando Firaht
ไม่มีความคิดเห็น:
แสดงความคิดเห็น