Là một lớp cửa sổ windows đã định nghĩa sẵn. Hộp thơng báo được để trình bày các thơng điệp nhắc nhở người dùng từ chuơng trình hoặc yêu cầu người dùng xác nhận
một điều gì đó. Hộp thơng báo thực chất là một form với các thành phần sau:
• Nội dung thơng báo
• Icon bên trái dùng mơ tả tính chất loại thơng báo
• Nút bấm để trả lời, gồm các loại OK, Cancel, Yes, No, Abort, Retry, Ignore Dạng hàm
MsgBox(<Thơng báo>,<Các nút>,<Tiêu đề>)
Trong đó:
<Thơng báo>
Chuỗi ký tự thơng báo. Thơng báo có chiều dài tối đa 1024 ký tự. Muốn thơng báo
hiện trên nhiều dịng, sử dụng ký tự chr(13)
<Các nút>
Qui định loại nút bấm và icon được sử dụng trong hộp thông báo, gồm các hằng sau:
Hằng Giá trị
Ý nghĩa
vbOKOnly 0 Chỉ có nút OK vbOKCancel 1 Nút OK và Cancel
vbAbortRetryIgnore 2 Nút Abort, Retry và Ignore vbYesNoCancel 3 Nút Yes, No, Cancel vbYesNo 4 Nút Yes, No
Button
vbRetryCancel 5 Nút Retry và Cancel vbCritical 16 Icon
vbExclamation 48 Icon vbInformation 64 Icon
vbDefaultButton1 0 Nút đầu tiên mặc định có focus
vbDefaultButton2 256 Nút thứ hai mặc định có focus
Foc
u
s
vbDefaultButton3 512 Nút thứ ba mặc định có focus vbApplicationModal 0 Người dùng phải trả lời rồi mới có
thể tiếp tục sử dụng chương trình, có thể chuyển sang các chương trình khác
Modal vbSystemModal 4096 Người dùng phải trả lời rồi mới có
thể tiếp tục sử dụng chương trình, khơng thể chuyển sang các chương trình khác
Tham số <các button> được lấy giá trị bằng tổng các hằng trong mỗi nhóm trên. Ví dụ
Giá trị vbYesNo+vbQuestion+vbDefaultButton1 làm cho hộp thơng báo có 2 nút
Yes-No, Icon hiển thị là Question, nút đầu tiên có focus. Nếu bỏ qua tham số này, hộp thông báo chỉ có nút OK
<Tiêu đề>
Qui định tiêu đề hộp thơng báo, nếu khơng có tham số này, tiêu đề sẽ là tên của
chương trình.
• Khi muốn sử dụng MsgBox với mục đích thơng báo, thường chỉ cần ghi tham số thứ nhất. Ví dụ:
If Not IsNumeric(Text1.Text) then
MsgBox “Dữ liệu nhập không hợp lệ” End if
• Khi chương trình muốn người sử dụng xác nhận một điều gì đó thì phải sử dụng MsgBox dưới dạng hàm. Hàm MsgBox khi đó sẽ trả về giá trị tùy theo nút mà người sử dụng bấm, các giá trị trả về có thể là: Hằng Giá trị Nút đã bấm vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore VbYes 6 Yes VbNo 7 No Ví dụ:
Ans = MsgBox(“Do you want to save ?”, _
if Ans = vbYes then
SaveDocument elseif Ans = vbNo then Quit else
Continue End if
Chương 4 Các cấu trúc điều khiển
I. LỆNH ĐIỀU KIỆN IF
Dạng 1:
If <Điều kiện> then <lệnh>
Chỉ có một <Lệnh> viết sau then Ví dụ:
Max = a
If Max < b then max = b
Dạng 2:
If <Điều kiện> then <lệnh>
end if
Dạng này được sử dụng thay cho dạng 1 khi có nhiều lệnh sau then Dạng 3:
If <Điều kiện 1> then <lệnh 1>
elseif <Điều kiện 2 > then <lệnh 2>
...
elseif <Điều kiện n > then <lệnh n> else <lệnh n+1> end if Ví dụ: If a > b then Max = a Else Max = b End if