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

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

ID:45492315

大小:92.00 KB

页数:11页

时间:2019-11-13

码农手册 响应鼠标和键盘事件_第1页
码农手册 响应鼠标和键盘事件_第2页
码农手册 响应鼠标和键盘事件_第3页
码农手册 响应鼠标和键盘事件_第4页
码农手册 响应鼠标和键盘事件_第5页
资源描述:

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

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属性功能

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。