0.6 Tập tin  (Page 4/6)

' Lay the tap tin

Dim intFile As Integer

intFile = FreeFile()

' Viet len tap tin

Open App.Path&"\yeucau.txt" For Output As #intFile

Print #1, "ho: "&cacyeucau.ho

Print #1, "ten: "&cacyeucau.ten

Print #1, "manv: "&cacyeucau.manv

Print #1, "sodt: "&cacyeucau.sodt

Print #1, "socmnd: "&cacyeucau.socmnd

Print #1, "tinhtranghn: "&cacyeucau.tinhtranghn

Close #intFile

MsgBox "Yeu cau cua ban da duoc goi di", vbOKOnly + vbInformation, _

"Goi yeu cau"

End

Exit Sub

Guiloi:

MsgBox Err.Description, vbOKOnly + vbExclamation, "Goi yeu cau"

Exit Sub

End Sub

Bước 13: Lưu và thực thi chương trình.

Bài tập 3-3

CHƯƠNG TRÌNH XỬ LÝ VĂN BẢN ĐƠN GIẢN

GIAO DIỆN ĐA TÀI LIỆU

Bước 1: Tạo một dự án lưu trong thư mục Basic\Bt3-3.

Giao diện đa tài liệu (MDI Form) gồm một cửa sổ cha chứa nhiều cửa sổ con (chẳng hạn như các chương trình Microsoft Word, Excel được tổ chức theo dạng này). Để thêm vào dự án, ta chọn mục Project\Add MDI Form từ menu của VB.

Bước 2: Ta cho Form1 trở thành một cửa sổ con của MDI Form bằng cách chọn thuộc tính MDIChild = True.

HÀM MAIN (SUB MAIN)

Bước 3: Trong chương trình ta cần điều khiển mọi thứ kể từ khi các cửa sổ con của MDI Form xuất hiện, do đó ta cần phải bắt đầu thực thi chương trình của ta từ hàm Main (Sub Main). Ta chọn mục Project\ Add Module để thêm một Modul vào dự án của mình, sau đó ta chọn Tools\Add Procedure để thêm hàm Main vào (Public Sub Main); hàm này ta dùng để bắt đầu gọi thực thi chương trình của mình. Để chọn thực thi chương trình từ hàm Main, chọn Project\Properties; chọn Start up Object là Sub Main.

Bước 4: Thêm dòng lệnh sau vào hàm Main:

MDIForm1.Show

Bước 5: Chương trình cần có một hệ thống menu để gọi thực thi. Do đó, chọn MDI Form, sau đó chọn Tools\Menu Editor để tạo menu sau:

Menu NameMenu Caption

mnuFile&File

mnuFileNew&New

mnuFileOpen&Open…

muFileSave&Save

mnuFileBar-

mnuFileExitE&xit

Bước 6: Ta xử lý sự kiện mnuFileExit_Click nhờ đoạn mã sau:

Private Sub mnuFileExit_Click()

Dim f As Form

' Thoat cac cua so con

For Each f In Forms

If TypeOf f Is Form1 Then

Unload f

Set f = Nothing

End If

Next

' Thoat cua so cha

Unload Me

End Sub

Bước 7: Để tạo ra một tài liệu trắng cho chương trình xử lý văn bản, ta cần phải có một TextBox trong Form1. Người sử dụng đánh nội dung vào TextBox, do đó ta thêm một TextBox vào Form1 với các thuộc tính sau:

MultiLine: True

ScrollBars: 2-Vertical

Ta xử lý sự kiện Form_Resize của Form1 như sau:

Private Sub Form_Resize()

Text1.Height = Me.ScaleHeight

Text1.Width = Me.ScaleWidth

Text1.Left = 0

Text1.Top = 0

End Sub

Bước 8: Mỗi lần chọn mục New trên cửa sổ chương trình ứng dụng, một khung cửa sổ trắng hiện ra để ta nhập văn bản vào. Do đó, thêm đoạn mã sau trong thủ tục xử lý sự kiện mnuFileNew_Click:

Private Sub mnuFileNew_Click()

Dim f As Form1

Static n As Integer

Set f = New Form1

f.Text1.Text = ""

n = n + 1

f.Caption = "Document "&Format(n)

f.Show

End Sub

Thao tác trên tập tin

Bước 9: Ta cần phải có hộp thoại nhằm chọn tập tin để lưu (hay mở tập tin) trong chương trình xử lý văn bản. Do đó ta cần thêm một Dialog Control vào chương trình. Đánh dấu vào mục chọn Microsoft Common Dialog Control 6.0 (SP3). Sau đó ta thêm Dialog Control từ ToolBox vào MDIForm1. Ta xử lý sự kiện mnuFileSave_Click nhờ đoạn mã sau: