' VB.NET File Source Code
Option Explicit On
Option Strict On
Public Class Form1
Dim nFileNum As Integer
Dim Str_Filename As String
Dim KeepNum As Integer
Private Sub Btn_WriteTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_WriteTextFile.Click
If IsNumeric(TextBox1.Text) = False Then
MsgBox(" Please Input The Number ", MsgBoxStyle.Question Or MsgBoxStyle.OkOnly, " Write And Read Text File In VB.NET ")
TextBox1.Focus()
TextBox1.Text = ""
Exit Sub
ElseIf IsNumeric(TextBox1.Text) = True Then
WriteTextFile(Str_Filename, CInt(TextBox1.Text))
MsgBox(" Write Text File Completed = " & CInt(TextBox1.Text), MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, " Write And Read Text File In VB.NET ")
End If
End Sub
Private Sub WriteTextFile(ByVal sFilename As String, ByVal nNum As Integer)
nFileNum = FreeFile()
FileOpen(nFileNum, sFilename, OpenMode.Output, OpenAccess.Write)
Write(nFileNum, nNum)
FileClose(nFileNum)
End Sub
Private Function ReadTextFile(ByVal sFilename As String) As Integer
Dim nNum As Integer
nFileNum = FreeFile()
FileOpen(nFileNum, sFilename, OpenMode.Input, OpenAccess.Read)
Input(nFileNum, nNum)
FileClose(nFileNum)
ReadTextFile = nNum
End Function
Private Sub Btn_ReadTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ReadTextFile.Click
KeepNum = ReadTextFile(Str_Filename)
Me.Text = " Read Text File " & KeepNum.ToString
MsgBox(" Read Text File Completed = " & KeepNum, MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, " Write And Read Text File In VB.NET ")
TextBox1.Focus()
TextBox1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Str_Filename = "C:\txt01.txt"
Me.Text = " Write And Read Text File In VB.NET "
Me.BackColor = Color.Aquamarine
TextBox1.Text = ""
TextBox1.BackColor = Color.Yellow
TextBox1.ForeColor = Color.Blue
Btn_WriteTextFile.Text = " Write Text File "
Btn_WriteTextFile.BackColor = Color.Black
Btn_WriteTextFile.ForeColor = Color.White
Btn_ReadTextFile.Text = " Read Text File "
Btn_ReadTextFile.BackColor = Color.Black
Btn_ReadTextFile.ForeColor = Color.White
End Sub
End Class
' Design VB.NET Source Code Games By Fernando Firaht
ไม่มีความคิดเห็น:
แสดงความคิดเห็น