Giáo trình Visual Basic 7

Giáo trình Visual Basic

Input/output data <Tiếp theo>

Trong VB ngoài lớp stream đã nói ở trên, nó còn cho chúng ta sử dụng module FileSystem , module này cung cấp các thủ tục cho phép làm việc với đĩa, thư mục ,file rất tiện lời có thể tìm hiểu module này qua My.Computer.FileSystem Object

2- Hàm lấy thư mục hiện thời CurDir()

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dongtext As String

dongtext = My.Computer.FileSystem.ReadAllText("C:\vidu.txt")

MsgBox( dongtext )

End Sub

Vidụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dong As String = "aaabbnnnmccddeee"

My.Computer.FileSystem.WriteAllText("C:\vidu1.txt", dong, True) End Sub

append=true

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim dong As String = "aaabbnnnmccddeee"

My.Computer.FileSystem.WriteAllText("C:\vidu1.txt", dong, True)

End Sub

Đây là cách đọc dữ liệu dạng binary

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dong(100) As Byte

Dim i As Int16

dong = My.Computer.FileSystem.ReadAllBytes("C:\vidu1.txt")

For i = 0 To 10

MsgBox(Convert.ToChar(dong(i)))

Next i

End Sub

7- Ghi các byte vào file nhờ phương pháp writeallBytes

Đây là cách ghi dữ liệu dạng binary, cách này cho chế độ ghi chèn (append) nếu file đã tồn tại

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim dong() As Byte = {1, 2, 3, 4, 5, 6}

My.Computer.FileSystem.WriteAllBytes("C:\vidu3.01", dong, True)

End Sub

8- Hàm InputBox

Đây là hàm rất tiện lợi trong VB dùng để vào dữ liệu hoặc trao đổi với chương trình trong quá trình chạy

Dạng hàm

InputBox(prompt, title, DefaultResponse,x,y) – hàm trả lại string đã gõ

Prompt – dấu nhắc , kiểu dữ liệu string

Title- Tiêu đề trên hộp thoại- kiểu string

DefaultResponse – để rỗng “”

X,Y – Tọa độ góc trên bên trái của hộp thoại

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

InputBox("nhập vào mã HD", "phần kế toan", "", 100, 100)

End Sub

9- Lớp các hộp thoại

Để tiện cho người lập trình trong VB cung cấp một số loại hộp thoại, giúp cho người sử dụng có thể có các lựa chọn tùy ý như chọn màu, chọn font, chọn file…

9.1- Hộp thoại chọn màu ColorDialog

+ Phương pháp : ShowDialog dùng để hiện hộp thoại

+ Các tính chất :

- ColorDialog.AllowFullOpen =true/False; cho phép chọn đặt các bảng màu

- ColorDialog.Anycolor=True/False ; Cho phép chọn màu bất kỳ trong bảng màu cơ bản (mặc định)

- ColorDialog.Color – trả lại màu đã chọn

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then Label1.BackColor = ColorDialog1.Color

End If

End Sub

9.2- Hộp thoại chọn file OpenFileDialog

+ Phương pháp : ShowDialog

+ Tính chất Filter- để lọc các định dạng file

+ Tính chất FilterIndex cho chỉ số của thành phần trong trong Filter

+ Tính chất filename trả lại tên file được chọn để mở

Ví dụ 1

OpenFileDialog.filter(“file txt(*.txt)| *.text| all file (*.*)|*.*”)

OpenFileDialog.filter(“ Word Documents|*.doc|Excel Worksheets|*.xls| PowerPoint Presentations|*.ppt|Office Files|*.doc;*.xls;*.ppt|All Files|*.*”)

Ngữ pháp viết dòng lọc : đó là một dọng gồm các thành dạng :

Dong_tbao(*.mỏrộng1; *.mỏrộng2;… )

Ví dụ 2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim openFileDialog1 As New OpenFileDialog

Dim ten_file As String

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

If (openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then

ten_file = openFileDialog1.FileName

MsgBox(ten_file)

End If

End Sub

9.3- Hộp thoại ghi file SaveFileDialog

Các tính chất tương tự như OpenFileDialog

Ví dụ:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SaveFileDialog1 As New SaveFileDialog

Dim ten_file As String

Dim dong As String = "123456789"

SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

If (SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then

ten_file = SaveFileDialog1.FileName

My.Computer.FileSystem.WriteAllText(ten_file, dong, True)

End If

End Sub

9.4- Hộp thoại chọn font fontDialog

+ Phương pháp ShowDialog dùng để hiện hộp thoại và danh sách font

+ Tính chất font chứa tên loại font đã chọn

+ Tính chất color cho màu chữ

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim fontDialog1 As New FontDialog

fontDialog1.ShowColor = True

fontDialog1.Font = textBox1.Font

fontDialog1.Color = textBox1.ForeColor

If fontDialog1.ShowDialog() <> DialogResult.Cancel Then

textBox1.Font = fontDialog1.Font

textBox1.ForeColor = fontDialog1.Color

End If

End Sub

10- Phương pháp tách dòng Split

Phương pháp này cho phép tách nhanh một dòng thành các dòng con , được sử dụng rất hiệu quả khi kết hợp với file dạng txt

Ngữ pháp

Dim mang() as string

Mang=dong_tach.split( new char (){“,”,”;”,” “})

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim mang() As String

Dim i As Integer

Dim dong_tach As String = "2;3; 4; a;b"

mang = dong_tach.Split(New Char() {";"})

For i = 0 To mang.Length - 1

MsgBox(mang(i))

Next i

End Sub