码农手册 响应鼠标和键盘事件

《码农手册 响应鼠标和键盘事件》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、12.1.1鼠标事件过程MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下：SubObject_MouseMove（ButtonAsInteger，ShiftAsInteger，_XAsSingle，YAsSingle）SubObject_MouseDown（ButtonAsInteger，ShiftAsInteger，_XAsSingle，YAsSingle）SubObject_MouseUp（ButtonAsInteger，ShiftAsInteger，_XAsSingle，YAsSingle）其中：◆Object是可选的一个对象表达式，可

2、以是窗体对象和大多数可视控件。◆Button参数是表示按下或松开鼠标哪个按钮。图12-1表示了参数Button的值。图12-1参数Button值参数Button的值对应的功能如表12-1所示。表12-1参数Button的说明参数（Button）值说明　vbLeftButton1左按钮被按下　vbRightButton2右按钮被按下　vbMiddleButton4中间按钮被按下◆通过Shift参数表示在Button参数指定的按钮被按下或者被松开的情况下键盘的Shift、Ctrl和Alt键的状态，图12-2表示了Shift参数的值，Ctrl、Shift、Alt三键组合使用情况如表

3、12-2所示。图12-2Shift参数的值表12-2Shift参数的值二进制值十进制值系统常数意义0000未按下任何键0113vbShiftMask+vbCtrlMask同时按下Shift和Ctrl键1015vbShiftMask+vbAltlMask同时按下Shift和Alt键1106vbCtrlMask+vbAltMask同时按下Ctrl和Alt键1117vbCtrlMask+vbAltMask+vbShiftMask同时按下Ctrl、Alt和Shift键◆参数X、YX，Y鼠标指针的位置，通过X和Y参数返回一个指定鼠标指针当前位置的数，X和Y的值是使用该对象的坐标系统表示

4、鼠标指针当前位置。注意：鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件，在按下鼠标按钮并释放时，Click事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的SHIFT、CTRL、ALT键的状态。【例】使用MouseDown和MouseMove事件，编写一个在窗体上用鼠标绘图的简单程序（随着鼠标的移动，画线越来越宽）。OptionExplicitDimsngDrawWidthAsSingle'模块级变量，保存线条宽度PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAs

5、Single,YAsSingle)IfButton=1Then'如果按下左键CurrentX=X:CurrentY=Y'设置画线起点sngDrawWidth=1'设置线条初始宽度DrawWidth=sngDrawWidthEndIfEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimlngDrawColorAsLongIfButton=1Then'使用不同颜色IfShift=1ThenlngDrawColor=RGB(255,0,0)ElseIfShift=

6、2ThenlngDrawColor=vbGreenElseIfShift=4ThenlngDrawColor=&HFF0000EndIfsngDrawWidth=sngDrawWidth+0.1'加宽线条DrawWidth=sngDrawWidthLine-(X,Y),lngDrawColor'画线EndIfEndSub12.1.2拖放在运行时拖动控件，通常情况下并不能自动改变控件位置，这就必须使用VisualBasic的拖放功能，通过编程，才能实现在运行时拖动控件并改变其位置。把按下鼠标按钮并移动控件的操作称为拖动，把释放按钮的操作称为放下。一、DragMode属性功能：返

7、回或设置一个值，确定在拖放操作中所用的是手动还是自动拖动方式。格式：object.DragMode[=number]其中：object：为支持DragMode属性的一个对象。Number：取0时，启动人工拖放模式；取1时，启动自动拖放模式。注意：当DragMode属性设置为1（自动方式）时，控件不能正常响应鼠标事件。当拖动控件时，该控件不能识别用户发出的其它鼠标或键盘事件（KeyDown、KeyPress或KeyUp，MouseDown、MouseMove或MouseUp）。二、DragIcon属性功能