I E= T*R
Dùng thuộc tính KeyPreview
Thường 1 form giao diện (hộp thoại) chứa nhiềuđiều khiển bên trong nó⇒Khi thao tác phím trên 1 điều khiển trong form thì sựkiện sẽgởi chođiều khiển hay form ? Để qui định cụ thể điều này, VB cung cấp thuộc tính KeyPreview cho form, ta có thểxem/hiệu chỉnh giá trịcủa nó nhờlệnh gán :
FormName.KeyPreview [= boolean_expr]
trongđó :
FormNamelà tên của form liên quan.
boolean_exprlà biểu thức luận lý có giá trịTrue/False.
Khi ta gán trịluận lý vào thuộc tính của form thì nếu :
trị= True thì form sẽnhận và xửlý biến cốtrước rồi mới tớiđiều khiển. trị= False thìđiều khiển nhận và xửlý biến cố, còn form thì không.
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 267
10.3 Giao tiếp với chuột thông qua các đối tượng giao diện
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).
Chương 10: Tương tác giữa người dùng & chương trình
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 268
Thủtục xửlý sựkiện MouseDown & MouseUp
Thủtục có dạng sau :
Private Sub ControlName_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
vàPrivate Sub ControlName_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
trongđó :
ControlNamelà 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.
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Slide 269 Thủtục xử lý sự kiện MouseMove Thủtục có dạng sau :
Private Sub ControlName_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
trongđó :
ControlNamelà 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.
Chương 10: Tương tác giữa người dùng & chương trình
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 270