3. Mouse Move事件 窗体的Mouse Move事件过程的形式如下:
. h* m" g% U* T0 v7 x v Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
% Z. l9 O1 \! q7 F, o0 ` End Sub
" ^) \8 M B* T6 a8 @, J1 ? MouseMove事件过程中参数的含义及其用法与MouseDown事件过程中的相应参数完全相同。这里给出一个探测鼠标位置的实例。: N( C" Y7 o v: t' C5 Y( G3 [* Z
实例4.2探测鼠标的位置1 {& ~# c% ?8 N! [/ }2 ^
在该程序中,当用户在窗体上移动鼠标时,则在窗体上的文本框中会显示出当前鼠标的位置。
, v& b5 @2 z# _$ R 在窗体的左上角放置一个文本框,如图4.4所示。窗体与控件的属性设置如表4.6所示。
* Y6 d, z+ j: M) r+ ?4 T
$ x* d" v1 V: u2 O6 d
# }2 P; v! P8 t* C, E d: L0 s @; f% X8 L/ ?0 ^0 f# x, O0 c- g
) ]3 z+ t7 t. \/ J/ |
打开窗体的【代码】窗口,将下列代码添加到Form_MouseMove事件过程中:; o) x: ^( ?9 ]
Private Sub From_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)! u9 ]* h5 g5 d% E+ w
Texts1.Twxt="X '& X &"Y=" & Y
2 T2 N: h5 L, ^' r; q+ N) A End sub4 c4 i- {4 V7 l, [
由于在移动鼠标时,MouseMove事件不断被触发,其中的代码也就不断地执行。因此,在移动鼠标时,文本框中的内容会不断被更新。
& M8 r9 f' `% S0 X, Y8 I7 T 运行该程序,在窗体中移动鼠标,则文本框中动态显示出鼠标的位置,如图4.5所示。
* x. d' b, z; ^4 T+ y' \/ }8 H8 K x; A2 D& ^7 [. G
' }" w' d- M+ }
键盘事件有共3种,分别是KeyDown(按下键)、KeyUp(释放键)与KeyClick(敲击键).) v* y( }; n) X, {
注意:只有当窗体为当前活动窗体时,按键才能触发窗体的键盘事件。另外,如果窗体上有能获得焦点的控件,则按键触发的将是控件的键盘事件。如果希望按键后,总是能触发窗体的键盘事件,应该将窗体的KeyPreview属性设置为Ture. |