VB Tips & Tricks

Ðổi Enter key ra Tab key

Khi user điền các dữ kiện vào một Form (Data Entry), thường thường user rời mỗi TextBox bằng cách bấm nút Tab. Có khi user 'prefer' (chuộng hơn) dùng Enter key thay vì Tab key. Bạn có thể dùng Event Keypress của TextBox để đổi Enter ra Tab.  Thí dụ:

   Private Sub TxtName_KeyPress(KeyAscii As Integer)

      If KeyAscii = vbCr then

         KeyAscii = 0  ' Nuốt trọn Enter key để không bị side effect

                      ' Emulate (làm giống như) bấm nút Tab bằng cách dùng SendKeys

              Sendkeys "{TAB}"

      End if

   End Sub

    Event Keypress của TextBox được dùng như trên rất tốt.  Nhưng nếu Form có rất nhiều TextBox ta có thể tránh lập lại việc dùng KeyPress Event của từng TextBox bằng cách dùng Sub Form_Keypress, như:

   Private Sub Form_KeyPress(KeyAscii As Integer)

      If KeyAscii = vbCr then

         KeyAscii = 0  ' Nuốt trọn Enter key để không bị side effect

               Sendkeys "{TAB}"

      End if

   End Sub

Ðể nhắc Form chụp lấy Keystroke trước TextBoxes, ta phải set Form Property 'KeyPreview' ra True, nếu không Sub Form_Keypress không bao giờ được gọi.

Ðổi dạng MousePointer ra đồng hồ cát

Khi program sắp làm chuyện gì hơi lâu, bạn muốn cho user biết là program đang làm việc chớ không phải chết đứng (hang) như khi mình gặp người đẹp lần đầu, dùng:

Screen.MousePointer = vbHourglass  ' Biến MousePointer ra hình đồng hồ cát

  ' Bỏ  Codes vô đây . . .

Screen.MousePointer = vbDefault   '   Biến MousePointer trở lại dạng bình thường  

Kiếm Help cho các Functions

Trong khi đang viết program, thí dụ bạn muốn đọc về cách dùng 'Select'. Ðánh chữ 'Select' đoạn 'highlight' nó rồi bấm nút F1. Nhớ là bạn có thể 'highlight' một chữ bằng cách để con trỏ (mousepointer) lên trên chữ đó đoạn 'doubleClick'.

Nếu bạn không biết chắc một tên Function đánh vần như thế nào, thí dụ bạn không nhớ rằng Function 'Sendkeys' có chữ 's' ở cuối không. Thử đánh 'Sendk' rồi bấm 'Ctrl+Space' (nhấn nút 'Ctrl' trong khi bấm Space bar), VBIDE (Visual Basic Integrated Development Environment) sẽ đánh nhừng chừ còn lại của chừ 'SendKeys'.  Nếu bạn chưa đánh gì hết mà bấm 'Ctrl+Space', VBIDE sẽ 'pop-up' danh sách của tất cả Functions có thể dùng được lúc nầy, của VB và của chính bạn đang viết.  Do đó bạn có thể đặt tên Constant hay Function, Sub của mình bắt đầu bằng nhừng 'characters' dễ nhớ, và dùng tên dài cho dễ đọc. Thí dụ bạn dùng 'my' làm hai characters bắt đầu:

  Const myTableSize = 20

  Sub mySortRoutineForHTML

Sau đó chỉ cần đánh 'mySo' Ctrl+Space sẽ ra trọn chữ mySortRoutineForHTML.

Dùng Docket Dot Matrix Printer

Nếu bạn dùng Docket Dot Matrix Printer thì không thể xài một Windows Printer Driver bình thường được, vì nó in hình ảnh của cả một trang trong khi ta muốn in từ dòng.
Ta phải vô Start | Settings | Printers để Add một Generic / Text Only printer driver.
Kế đó nếu cần bạn cho vào những Control Command Strings để in BOLD, ITALIC, v.v. lấy từ Cẩm nang của printer.
Thí dụ số 28 để mở BOLD, 29 để tắt BOLD. Nếu Docket Printer có thể in màu đỏ và bạn không cần dùng ITALIC, bạn có thể cho Control Command Strings của mở tắt màu đỏ vào chỗ mở tắt ITALIC. Sau đó khi trong code bạn mở ITALIC thì thật ra driver gởi Control Command String cho mở màu đỏ.
Thí du:
Printer.FontItalic = True ' mở màu đỏ
Printer.Print " ** SUPER DISCOUNT STORE **"
Printer.FontItalic = False ' tắt màu đỏ
Printer.Print "1 T Shirt $24.50"
Printer.FontIBold = True ' mở chữ đậm
Printer.Print " Total: $24.50"
Printer.FontIBold = True ' tắt chữ đậm
Printer.Print "Thank you"
Printer.EndDoc
Nếu Docket Printer không xuống hàng đàng hoàng, bạn gởi trọn 40 characters ra cho mỗi hàng, (40 characters là chiều rộng của Docket) Muốn gởi trọn 40 characters bạn phải ghép thêm blank spaces cho mỗi dòng dài đủ 40 characters. Thí dụ:
strLine = Space(40) ' Initialise 40 blank spaces
Mid(strLine,15,9) = "Thank you" ' Nhét hai chữ Thank you vào, bắt đầu từ cột 15
Printer.Print strLine

Cho Application một Icon

Bạn có thể cho mỗi Form một icon bằng cách dùng Property Icon trong Properties Window của Form để chọn một icon file. Mỗi khi một Form được Minimised ta sẽ thấy Icon của nó trên Desktop. Bây giờ muốn dùng icon của một Form làm icon của Application (nhu liệu), bạn dùng menu command Project | Project? Properties. Khi Dialog hiện ra chọn Tab 'Make' và click Icon combo box để chọn Form bạn muốn chỉ định.

VB shorcut Keys

Find Ctrl+F
Replace Ctrl+H
Find Next F3
Copy Ctrl+C
Cut Ctrl+X
Paste Ctrl+V
Undo Ctrl+Z
Delete Current Line Ctrl+Y
Delete to End of Word Ctrl+Delete
View Code Window F7
View Definition of Sub/Function Shift+F2
Go to last position Ctrl+Shift+F2
Debug Step Into F8
Debug Step Over Sub/Function Shift+F8
View Object Browser F2
View Prperties Window F4

Comment (biến câu code thành câu chú thích) / Indent (cho xít vô) một số dòng code
Nếu không thấy Edit Toolbar thì dùng menu command View | Toolbars | Edit để làm Edit Toolbar hiện ra. Chọn một số dòng code bạn muốn làm việc đoạn dùng Comment/Uncomment, Indent/Unindent buttons để xử lý.