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 ?
Nếu bạn cần loại bỏ một số ký tự khi người dựng gừ văn bản vào trong một Textbox, thường là cỏc ký tự đặc biệt như: "!@#$%^&*()_+-=" . Sau đõy là một giải phỏp. Bằng cỏch dựng liờn tục hàm InStr mỗi khi cú phớm gừ (Sự kiện KeyPress)
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!@#$%^&*()_+-="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End If
End Sub
4. Xúa cỏc mục chọn (Item) trong Combo/List Box
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 ?
Để xúa cỏc Item trong Combo box hay List box, bạn cần phải duyệt
ngược, tức là từ (ListCout-1) đến 0. Sau đõy là một thớ dụ minh họa. Bằng cỏch dựng vũng lặp For, kốm theo Step -1 để duyệt ngược.
Sub cmdDeleteItems_Click ()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then
List1.RemoveItem i End If
Next i
End Sub