- None: Textbox khụng cú thanh cuộn.
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 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 ?
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).