Input Boxes
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (72.04 KB, 2 trang )
Input Boxes
Với Message Boxes, user chỉ có thể click lên một button. Đôi khi ta muốn user đánh vào thêm
một ít dữ kiện, trong trường hợp ấy ta có thể dùng Input Boxes.
Input Boxes giống giống Message Box, nhưng nó chuyên nhận input data từ user và không
hiển thị một icon. Thí dụ:
Private Sub CmdGreeting_Click()
Dim strReply As String
strReply = InputBox$("Please enter your name", "What 's your name?", "John", 2000,
1000)
MsgBox "Hi " & strReply & ", it 's great to meet you!", vbOKOnly, "Hello"
End Sub
Để ý các parameters của Function InputBox$. Parameter thứ nhất là Text message, parameter
thứ hai là Title của Dialog, parameter thứ ba là Default Input Value. Đây là value được hiển thị
sẵn trong Input Box khi nó xuất hiện, nếu đó là input user thường đánh vào thì user chỉ cần
click nút OK là đủ. Hai parameters cuối cùng là Optional (nhiệm ý, có cũng được, không có
cũng không sao). Nó là X,Y coordinates của Input Box trong đơn vị twips. Hệ thống tọa độ lấy
góc trên bên trái làm chuẩn với X=0, Y=0.
Input Box có hai dạng Functions:
• InputBox$ - returns một String đàng hoàng
• InputBox - returns một String nằm trong Variant variable
Nếu bạn click nút Cancel thì returned Value là empty string, bạn có thể test empty string để
nhận diện trường hợp nầy.
Dưới đây là một thí dụ dùng Function InputBox:
Private Sub CmdFortuneTeller_Click()
Dim varValue As Variant
Dim intAge As Integer
varValue = InputBox("Please enter your age", "How old are you?", "18")
If IsNumeric(varValue) Then
intAge = Val(varValue)
If intAge < 20 Then
MsgBox "You are a young and ambitious person", vbOKOnly, "Observation"
Else
MsgBox "You are a matured and wise person", vbOKOnly, "Observation"
End If
Else
MsgBox "Oh oh! - please type your age!", vbCritical + vbOKOnly, "Input Error"
End If
End Sub
Khi nào nên dùng Input Boxes
Mặc dầu Input Boxes rất dễ dùng, trên thực tế rất ít khi ta dùng nó vì những lý do sau đây:
• Ta không thể làm gì được trong lúc user input data, phải đợi sau khi user click OK thì
mới bắt đầu xử lý input textstring. Ngược lại nếu ta dùng một Textbox trong một Form
thông thường, ta có thể code trong các Event handlers của Events KeyPress hay
Change để kiểm soát các keystrokes của user.
• Input Boxes chỉ cho ta đánh vào một text string duy nhất. Nhiều khi ta muốn user đánh
vào nhiều thứ nên cần phải có một form riêng.
• Sau cùng, Input Boxes xem không đẹp mắt. Program dùng Input Boxes có vẻ như
không chuyên nghiệp, do đó ta cần phải dùng Custom Dialogs.
