' VB.NET Games Source Code
Public Class Form1
Private Sub Btn_LoadSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_LoadSettings.Click
Dim nFile As Integer
Dim nNum1 As Integer
Dim nNum2 As Integer
nFile = FreeFile()
FileOpen(nFile, "C:\Settings.SET", OpenMode.Input, OpenAccess.Read)
Input(nFile, nNum1)
Input(nFile, nNum2)
FileClose(nFile)
Me.Text = " Load Settings File = " & nNum1 & " " & nNum2
MsgBox(" Load Settings File Completed ", MsgBoxStyle.OkOnly, " Load Settings File In Games With VB.NET ")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
Me.Text = " Load Settings File In Games With VB.NET "
Me.BackColor = Color.Violet
Btn_LoadSettings.Text = " Load Settins File "
Btn_LoadSettings.BackColor = Color.Wheat
End Sub
End Class
' Design VB.NET Source Code Games By Fernando Firaht
ไม่มีความคิดเห็น:
แสดงความคิดเห็น