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 )

Dim dong As String = "aaabbnnnmccddeee"

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

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)

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

Prompt – dấu nhắc , kiểu dữ liệu stringTitle- Tiêu đề trên hộp thoại- kiểu stringDefaultResponse – để rỗng “”

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

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ọnVí 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

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;… )

ten_file = openFileDialog1.FileName MsgBox(ten_file)

End If End Sub

9.3- Hộp thoại ghi file SaveFileDialogCác tính chất tương tự như OpenFileDialogVí 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ữ

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