Tham khảo tài liệu 'visual basic 6 vovisoft part 5', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | o MouseDown MouseUp mỗi khi User bấm một mouse button là có một MouseDown Event khi User buông nó ra thì có một MouseUp Event. Ta thường dùng MouseDown Event để Popup context sensitive menu hay bắt đầu một diễn biến Drag. Thí dụ Private Sub Foods_MouseDown Button As Integer Shift As Integer X As Single Y As Single If Button vbRightButton Then if Right button was pressed PopupMenu mnuActions popup a menu End If End Sub Private Sub DrinkList_MouseDown Button As Integer Shift As Integer X As Single Y As Single Displaying a drag icon to start the drag process End Sub Để ý là Click không cho chúng ta thêm chi tiết gì về sự cố trong khi MouseDown MouseUp cho ta biết vị trí của cursor button nào của Mouse được bấm và lúc ấy User có bấm nút Shift Ctrl hay Alt không. Mỗi Click là đi đôi với một cặp MouseDown MouseUp. Nếu bạn muốn xử lý vừa Click lẫn MouseDown thì phải cẩn thận. Thí dụ bạn muốn vừa handle Click event vừa handle Mouse Drag thì phải làm sao phân biệt hai trường hợp. Nếu không User chỉ muốn thấy kết quả của Click mà lại thấy control bắt đầu display một Drag icon thì sẽ bực mình. o KeyPress xãy ra khi user Press một key. Ta thường dùng nó cho TextBox để loại ra filter out các keystrokes ta không chấp nhận. KeyPress cho ta ASCII value một con số có giá trị từ 1 đến 255 của key. Trong thí dụ dưới đây một Enter key sẽ được coi như một TAB key Private Sub Text1_KeyPress KeyAscii As Integer If KeyAscii 13 Then KeyAscii 0 Swallow the character to avoid side effect SendKeys TAB Emulate entering a TAB End If o o o End Sub KeyDown KeyUp mỗi KeyPress event là cho ta một cặp KeyDown KeyUp event. KeyDown KeyUp cho ta KeyCode và Shift value. Để detect Function key ta cần dùng KeyDown event. Trong thí dụ dưới đây ta display Function key User bấm Private Sub Text3_KeyDown KeyCode As Integer Shift As Integer If KeyCode 112 And KeyCode 123 Then MsgBox You pressed the Function key F Trim Str KeyCode - 111 End If End Sub GotFocus Control trở nên active khi nó nhận .
