Public Class Form1
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim var5 As Object
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\acila7\ACENG.csv", OpenMode.Append)
Var1 = TextBox1.Text
Var2 = TextBox2.Text
Var3 = TextBox3.Text
Var4 = TextBox4.Text
var5 = TextBox5.Text
ListBox1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
WriteLine(1, Var1, Var2, Var3, Var4, var5)
FileClose(1)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
On Error Resume Next
Dim var5 As Object
Dim var4 As Object
Dim var3 As Object
Dim var2 As Object
Dim var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\acila7\ACENG.csv", OpenMode.Input)
Do While Not EOF(noFile)
Input(1, var1)
Input(1, var2)
Input(1, var3)
Input(1, var4)
Input(1, var5)
ListBox1.Items.Add(var1 & "-----" & var2 & "-----" & var3 & "----" & var4 & "-----" & var5)
Loop
FileClose(noFile)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
CONTOH DI MICROSOFT EXCEL
