Cú bao giờ bạn tự hỏi: "Làm sao để tạo riờng cho mỡnh một cỏi Form (của chớnh mỡnh) và add nú vào Menu của VB để khi cần cho lệnh Add Form là cú thể chốn vào ứng dụng của mỡnh ngay lập tức ?". Giống như cỏc mẫu cú sẵn của Vb vậy đú.
Bạn thấy khụng ? About Dialog, Dialog, Splash Screen, Tip of the Day ... cỏc thứ này bạn đều cú thể tại riờng cho mỡnh để chương trỡnh mang một sắc thỏi riờng, độc đỏo, và bất ngờ.
Hóy tạo ra những Form thật ưng ý bằng cỏch: - Thay đổi cỏc Properties
- Thờm một số Control cần thiết - và cỏi gỡ bạn thớch hoặc hay dựng - Gừ cả Source Code nếu cần.
Save Form vào thư mục Template\Forms của thư mục chứa chương trỡnh VB (nhớ là chỉ cần Form thụi nhộ, khụng cần tới Project đõu).
Vớ dụ như: C:\soft\Microsoft Visual Studio\VB98\Template\Forms Sau đú bạn hóy vào mục Add Form xem
Lưu ý:
• Tờn File chớnh là tờn sẽ xuất hiện trong danh sỏch này. Vớ dụ hỡnh bờn dưới là file "Day la mau Form cua tui.frm"
• Nếu bạn "dị ứng" với cỏi mẫu Form nào cú sẵn của VB bạn cú thể cho nú mất tớch bằng cỏch Delete (hoặc Move đi nơi khỏc) tập tin tương ứng với tờn là xong.
Đỏng ghột ở chỗ là nú luụn cho Form của chỳng ta vừa tạo vào cuối danh sỏch, dẫu bạn đặt tờn cú cả trăm chữ "a" đi nữa thỡ cũng "đội sổ" như thường. Thụi kệ, cú cũng dzui rồi, đứng đõu cũng được miễn lợi hại hơn là OK hà (à khụng, Open mới chớnh xỏc).
NHỮNG CÂU HỎI VỀ VB 1. Cắt bớt cỏc khoảng trống trong chuỗi 1. Cắt bớt cỏc khoảng trống trong chuỗi
Khi gừ văn bản hoặc nhập liệu, khụng phải người dựng nào cũng "tốt lành" mà gừ chớnh xỏc từng cõu chữ, và đặc biệt là cỏc khoảng trống (space). Cú khi trong 1 chương trỡnh, nếu thừa một khoảng trống sẽ dẫn đến lỗi nghiờm trọng khiếng chương trỡnh treo ... "tũng teng". Để trỏnh rắc rối đú, ta cần viết một Module cú nhiệm vụ rà soỏt trong chuỗi, hễ thNong chuỗi, hễ thN thừa khoảng trống thỡ bỏ ngay, sau đú mới đưa chuỗi đó xử lý xong cho chương trỡnh thực hiện cụng việc chớnh. Cú thế chương trỡnh hoạt động mới trơn tru. Hàm sau đõy sẽ làm nhiệm vụ:
- Thay thế nơi nào cú nhiều khoảng trống trong chuỗi thành 1 khoảng trống duy nhất.
- Xoỏ bỏ luụn cỏc khoảng trống ở đầu hoặc cuối chuỗi.
Private Function PreventDuplicateSpaces(Word)
Dim i, WordLength, Character, LastCharacter, NewWord On Error GoTo ErrorHandler
WordLength = Len(Word) For i = 1 To WordLength
Character = Mid(Word, i, 1)
If LastCharacter = " " And Character = " " Then Else
NewWord = NewWord & Character LastCharacter = Character End If Next i PreventDuplicateSpaces = Trim(NewWord) Exit Function ErrorHandler:
' Chốn code cần xử lý khi xuất hiện lỗi.
End Function
Lưu ý:
Đõy chỉ là 1 cỏch để minh hoạ (mức độ hiệu quả trung bỡnh), bạn cú thể tự viết hàm cho riờng mỡnh, hoặc mở rộng hàm trờn làm thờm 1 số chức năng khỏc.