Một số kiến thức sơ cấp về chuột

Một số kiến thức sơ cấp về chuột

09/01/12 Design: Nguyễn Hiền Du1Một số sự kiện cao cấp về chuộtMột số sự kiện cao cấp về chuột Nội dung chính:Nội dung chính: Các thủ tục sự kiện cơ bản (Các thủ tục sự kiện cơ bản (MouseDownMouseDown,, MouseUpMouseUp, , MouseMove, MouseMove )MouseMove, MouseMove ) Các Hằng số của các nút chuột, Bàn phímCác Hằng số của các nút chuột, Bàn phím Kết hợp giư a bàn phím và chuộtKết hợp giư a bàn phím và chuột Một số ví dụ về điều khiển chuộtMột số ví dụ về điều khiển chuột 09/01/12 Design: Nguyễn Hiền Du2I. Các thủ tục sự kiệnI. Các thủ tục sự kiệnA. Cỏc th tc s kin c bnTên thủ tục ý nghĩaMouseDown Người dùng nhắp một trong các nút chuộtMouseUp Ngi dựng nh mt nỳt chutMouseMoveNgười dùng dời trỏ chuột đến điều khiển hoặc đến một vùng trắng của biểu mẫu- iều khiển chỉ nhận ra sự kiện chuột khi trỏ chuột nằm trong điều khiển, còn lại biểu mẫu cơ sở nhận ra sự kiện chuột Cú 3 th tc s kin c bn v chut nh sau: 09/01/12 Design: Nguyễn Hiền Du3Các thủ tục sự kiện chuột có cùng dạng và cùng tham số như sau:ObjName_MouseEvent (Button As Integer, ObjName_MouseEvent (Button As Integer, Shift As Integer, X As Single, Y As Single)Shift As Integer, X As Single, Y As Single)Trong ú:ObjName: ObjName: tờn i tng cn thao tỏcMouseEvent: MouseEvent: tờn th tc s kinButton:Button: Nỳt chut no c nhnShift: Shift: Phỏt hin xem cú dựng t hp phớm hay khụngX,Y: X,Y: To ca tr chut 09/01/12 Design: NguyÔn HiÒn Du4Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)CurrentX = XCurrentY = YPrint “Help Me”End SubB.B. Để hiểu rõ hơn ta xét các ví dụ dưới đây: Để hiểu rõ hơn ta xét các ví dụ dưới đây:Trong ví dụ trên mỗi lần ta nhấn chuột màn hình sẽ in ra câu “Help Me” tại toạ độ dòng X, cột Y. 09/01/12 Design: NguyÔn HiÒn Du5Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)RandomizeX = Int(2000 * Rnd)Y = Int(2000 * Rnd)CurrentX = XCurrentY = YPrint “Help me"End SubVí dụ dưới đây in ra màn hình dòng “Help me” tại toạ độ X, Y thuộc khoản [0,2000] mỗi khi ta thả nút chuột ra. 09/01/12 Design: NguyÔn HiÒn Du6Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim A, B A = CurrentX B = CurrentY CurrentX = X CurrentY = Y Line (A, B)-(X, Y) End SubVí dụ trên vẽ ra màn hình mỗi khi ta di chuyển chuột 09/01/12 Design: NguyÔn HiÒn Du7Lưu ý: nếu đối tượng là thành phần của một mảng điều khiển thì Index là tham số tuỳ chọn đầu tiên như sau:ObjControlArray_MouseEvent(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 09/01/12 Design: NguyÔn HiÒn Du8C. Các tham số Button của chuộtNút Hằng Giá trị sốTrái vbLeftButton 1Phải vbRightButton 2Giữa vbMidleButton 4Giả sử ta muốn vẽ một đường thẳng từ toạ độ hiện tại đến ví trí trỏ chuột khi ta kích chuột phải còn khi kích các nút chuột khác sẽ không thực hiên. để thực hiện được điều này ta phải điều khiển được các nút chuộtBảng tham số nút chuột 09/01/12 Design: NguyÔn HiÒn Du9Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim A, B As Integer A = CurrentX B = CurrentYIf Button = 1 Then CurrentX = X CurrentY = Y Line (A, B)-(X, Y)End IfEnd SubVí dụVí dụ 09/01/12 Design: Nguyễn Hiền Du10II. T hp phớm v chut có thể phát hiện xem người dùng đã nhấn một trong các phím SHIFT, CTRL, ALT . trong khi ấn hoặc nhấn chuột. Mu n phát hiện hành động này ta sử dụng tham số Shift trong thủ tục sự kiện MouseUp hay MouseDown. Dưới đây là b ng nêu các giá trị hằng của tham số Shift cho phép ta phát hiện các phím đặc biệt: [...]... )  C¸c Hằng số của các nút chuột, Bàn phím Các Hằng số của các nút chuột, Bàn phím Kết hợp giư a bàn phím và chuột Kết hợp giư a bàn phím và chuột Một số ví dụ về điều khiển cht Mét sè vÝ dơ vỊ ®iỊu khiĨn cht 09/01/12 Design: Ngun HiỊn Du 13 III. Một số sự kiện khác a. Kéo thả các điều khiển Ĩ dêi mét ®iỊu khiĨn khi ®ang thiÕt kÕ, ta nhÊn ®Ì nót Đ tr¸i cht, råi dời trỏ chuột đến nơi muốn... As Integer) 09/01/12 Design: Ngun HiỊn Du 10 II. Tổ hợp phím và chuột có thể phát hiện xem người dùng đà nhấn một trong các phím SHIFT, CTRL, ALT trong khi ấn hoặc nhấn chuột. Mu n phát hiện hành động này ta sư dơng tham sè Shift trong thđ tơc sù kiƯn MouseUp hay MouseDown. Dưới đây là b ng nêu các giá trị hằng của tham số Shift cho phép ta phát hiện các phím đặc biệt: 09/01/12 Design:...09/01/12 Design: Ngun HiỊn Du 7 Lưu ý: nếu đối tượng là thành phần của một mảng điều khiển thì Index là tham số tuỳ chọn đầu tiên như sau: ObjControlArray_MouseEvent(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 09/01/12 Design: Ngun HiỊn Du 19 Private... Du 3 C¸c thđ tơc sù kiƯn cht có cùng dạng và cùng tham số như sau: ObjName_MouseEvent (Button As Integer, ObjName_MouseEvent (Button As Integer, Shift As Integer, X As Single, Y As Single) Shift As Integer, X As Single, Y As Single) Trong đó: ObjName: ObjName: tên đối tượng cần thao tác MouseEvent: MouseEvent: tên thủ tục sự kiện Button: Button: Nút chuột nào được nhấn Shift: Shift: Phát hiện xem... tên đối tượng cần thao tác MouseEvent: MouseEvent: tên thủ tục sự kiện Button: Button: Nút chuột nào được nhấn Shift: Shift: Phát hiện xem có dùng tổ hợp phím hay khơng X,Y: X,Y: Toạ độ của trỏ chuột . 09/01/12 Design: Nguyễn Hiền Du 1Một số sự kiện cao cấp về chuộtMột số sự kiện cao cấp về chuột Nội dung chính:Nội dung chính: Các thủ tục. Hằng số của các nút chuột, Bàn phímCác Hằng số của các nút chuột, Bàn phím Kết hợp giư a bàn phím và chuộtKết hợp giư a bàn phím và chuột Một số ví dụ về