I E= T*R
10.4Giao tiếp với chuột thông qua các đối tượng giao diện
GIAO TIẾP VỚI THIẾT BỊ NHẬP/XUẤT (I/O) 10.1 Tổng quát về tương tác giữa người dùng & chương trình
10.4Giao tiếp với chuột thông qua các đối tượng giao diện
q Tương tự như bàn phím, khi người dùng thao tác chuột, VB sẽ tạo ra 1 trong 5 biến cố sau đây và gởi về cho phần tử được 'focus' hiện hành :
§ MouseMove : sự kiện xảy ra khi người sử dụng di chuyển chuột.
§ MouseDown : sự kiện xảy ra khi người sử dụng ấn bất kỳ nút nào trên chuột (tùy loại chuột mà nó có 1/2/3 nút).
§ MouseUp : sự kiện xảy ra khi người sử dụng thả nút vừa ấn ra. § Click : sự kiện xảy ra khi người sử dụng ấn và thả chuột.
§ DblClick : sự kiện xảy ra khi người sử dụng 'Click' chuột liên tục hai lần trong 1 thời gian đủ nhỏ (do người dùng qui định chung cho môi trường Windows).
Thủ tục xử lý sự kiện MouseDown & MouseUp
q Thủ tục có dạng sau :
Private Sub ControlName_MouseDown (Button As Integer, Shift As Integer, x As Single, y As
Single)
và
http://www.foxitsoftware.com For evaluation only.
Private Sub ControlName_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
trong đó :
§ ControlName là tên của điều khiển nhận sự kiện MouseDown/MouseUp.
§ Button là giá trị miêu tả trạng thái các nút của chuột được ấn/thả (là một dãy các bit với bit 0 cho nút trái, bit 1 cho nút phải và bit 2 cho nút giữa).
§ Shift là giá trị miêu tả trạng thái ấn giữ các phím điều khiển (là một dãy bit với bit 0 cho phím SHIFT, bit 1 cho phím CTRL, bit 2 cho phím ALT).
§ x, y miêu tả tọa độ (x,y) của vị trí chuột được ấn/thả trên màn hình.
Thủ tục xử lý sự kiện MouseMove
q Thủ tục có dạng sau :
Private Sub ControlName_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
trong đó :
§ ControlName là tên của điều khiển nhận sự kiện MouseDown/MouseUp.
§ Button là giá trị miêu tả trạng thái các nút của chuột được ấn/thả (là một dãy các bit với bit 0 cho nút trái, bit 1 cho nút phải và bit 2 cho nút giữa).
§ Shift là giá trị miêu tả trạng thái ấn giữ các phím điều khiển (là một dãy bit với bit 0 cho phím SHIFT, bit 1 cho phím CTRL, bit 2 cho phím ALT).
§ x, y miêu tả tọa độ (x,y) của vị trí chuột hiện hành trên màn hình.
Thủ tục xử lý sự kiện Click & DblClick
q Thủ tục có dạng sau :
Private Sub ControlName_Click ()
và Private Sub ControlName_DblClick ()
trong đó :
§ ControlName là tên của điều khiển nhận sự kiện Click/DblClick. (adsbygoogle = window.adsbygoogle || []).push({});
§ Thủ tục xử lý sự kiện Click và DblClick không có tham số để xác định vị trí ấn chuột hay nút chuột nào đã được ấn. Trong trường hợp cần các thông tin phụ này để xử lý chi li hơn, bạn nên dùng thủ tục xử lý sự kiện MouseDown hay MouseUp.
Generated by Foxit PDF Creator © Foxit Software
http://www.foxitsoftware.com For evaluation only.
Thí dụ thủ tục xử lý các sự kiện chuột
' biến qui định trạng thái vẽ/không vẽ Dim PaintNow As Boolean
'Khởi động thông số vẽ Private Sub Form_Load ()
DrawWidth = 10 ' Use wider brush.
ForeColor = RGB(0, 0, 255) ' Set drawing color. End Sub
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintNow = True ' Enable painting. End Sub
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) PaintNow = False ' Disable painting.
End Sub
Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) If PaintNow Then
PSet (X, Y) ' Draw a point. End If
End Sub