2. Chuyển đổi ký tự trong các đối tượng có khả năng hiệu chỉnh (Editbox) thành chữ hoa
3. Bỏ qua một số ký tự khi gõ văn bản trong TextBox 4. Xóa các mục chọn (Item) trong Combo/List Box 5. Làm sao để tắt tính năng Wordwrap của Rich TextBox 6. Thêm một dòng mới vào cuối TextBox đang chứa văn bản 7. Làm sao để Shut down hay Reboot lại Windows ?
8. Làm cho TEXTBOX trở thành read only hoặc cấm người dùng thay đổi nội dung
9. Mở file với chương trình liên kết (associated program) 10. Làm sao để play các file: MID, WAV, AVI ?
1. Kiểm tra việc nhập liệu vào TextBo
1. Kiểm tra việc nhập liệu vào TextBox
2. Chuyển đổi ký tự trong các đối tượng có khả năng hiệu chỉnh (Editbox) thành chữ hoa 3. Bỏ qua một số ký tự khi gõ văn bản trong TextBox
5. Làm sao để tắt tính năng Wordwrap của Rich TextBox 6. Thêm một dòng mới vào cuối TextBox đang chứa văn bản 7. Làm sao để Shut down hay Reboot lại Windows ?
8. Làm cho TEXTBOX trở thành read only hoặc cấm người dùng thay đổi nội dung 9. Mở file với chương trình liên kết (associated program)
10. Làm sao để play các file: MID, WAV ?
Trong chương trình nếu bạn có yêu cầu bắt người dùng phải nhập liệu vào mọi TextBox đang hiện hữu trên một form để thực hiện một việc nào đó, song không phải ai cũng "vâng lời". bạn cần kiểm tra xem người dùng có nhập đầy đủ thông tin vào các TextBox chưa. Để đỡ nhọc công phải kiểm tra từng cái một (thường kiểm tra khi có sự kiện LostFocus), với hàm này bạn chỉ việc chuyển cho nó một tham số là Form chứa các TextBox cần kiểm tra, nó có nhiệm vụ truy tìm những TextBox còn trống và phơi bày ra màn hình bằng bằng một biểu hiện khác thường nào đó.
Hàm này nhận vào một đối số duy nhất là Form (thường là form hiện hành "Me"), sau đó nó sẽ tìm đến tất cả các Textbox có trên form bằng cách sử dụng câu lệnh "For Each Control" nếu có Textbox còn trống thì đổi màu nền BackColor (màu hồng), đồng thời trả về một giá trị kiểu Boolean là True. Không những là TextBox, nếu là ComboBox vẫn bị vòng lặp này chiếu cố.
Để thử hàm này bạn hãy tạo một form, tạo vài chục cái TextBox (tên chi cũng được) và một CommandButton (name: cmdTextEmpty). Gõ vào đoạn Code sau:
Private Sub cmdTestEmpty_Click()
If IsEmpty(Me) Then
MsgBox "Some textboxes are still empty" End If
End Sub
Function IsEmpty(Frm As Form) As Boolean
Dim tmpControl As Control On Error Resume Next
IsEmpty = False
For Each tmpControl In Frm.Controls If Trim(tmpControl.Text) = "" Then If Err.Number = 0 Then
IsEmpty = True
tmpControl.BackColor = &HFFC0FF 'Màu hồng End If
Err.Clear Else
If tmpControl.BackColor = &HFFC0FF Then tmpControl.BackColor = QBColor(15)'Màu trắng
End If End If
Next tmpControl
End Function
Nhấn F5 để chạy chương trình. Bây giờ bạn hãy làm cho một TextBox trống (vài cái cũng được), sau đó click vào CommandButton, bạn sẽ thấy các TextBox trống bị đổi màu thành màu hồng. Hãy gõ văn bản vào các TextBox màu hồng đó, sau đó click lên CommandButton lần nữa, bây giờ thì êm rồi, các TextBox đã trở lại bình thường (nền trắng).