《鼠标、键盘和OLE》PPT课件

《《鼠标、键盘和OLE》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章鼠标、键盘和OLE控件鼠标键盘事件拖放使用OLE控件9.1鼠标9.1.1鼠标事件在程序运行时，有时需要对鼠标指针的位置和状态变化作出响应，因此除了常用的Click和DblClick事件之外，还需要使用鼠标事件，鼠标事件包括MouseUp、MouseDown和MouseMove。1.鼠标事件的格式鼠标事件包括MouseUp、MouseDown和MouseMove，分别是当释放鼠标、按下鼠标和移动鼠标时触发的。MouseUp、MouseDown和MouseMove鼠标事件的语法格式是统一的。语法：PrivateSub对象_鼠标事件（ButtonAsInteger,ShiftAsInte

2、ger,XAsSingle,YAsSingle）9.1.1鼠标事件说明：（1）Button表示是哪个鼠标键被按下或释放。用0、1、2三个位表示鼠标的左、右、中键，每位用0、1表示被按下或释放，三个位的二进制转换成十进制就是Button的值，如图9.1所示，表9.1列出了按钮与常数值的对应关系。十进制二进制常数按下按钮0000无1001vbLeftButton左按键2010vbRightButton右按键3011vbMiddleButton中按键4100VbLeftButton+vbRightButton左、右按键5101VbLeftButton+vbMiddleButton左、中按键61

3、10VbRightButton+vbMiddleButton右、中按键7111VbLeftButton+vbRightButton+vbMiddleButton左、中、右按键表9.1Button常数值图9.1Button键9.1.1鼠标事件（2）Shift表示当鼠标键被按下或被释放时，Shift、Ctrl、Alt键的按下或释放状态。用0、1、2三个位表示鼠标的Shift、Ctrl、Alt键，三个位的二进制转换成十进制数就是Shift的值。Shift、Ctrl、Alt键切换常数如表9.2所示。常数值描述vbShiftMask1SHIFT键被按下。vbCtrlMask2CTRL键被按下。vb

4、AltMask4ALT键被按下。表9.2Shift的常数值9.1.1鼠标事件（3）X、Y表示鼠标指针的坐标位置。如果鼠标指针在窗体或图片框中，用该对象内部的坐标系，其他控件则用控件对象所在容器的坐标系。关于鼠标键事件有几点说明：移动鼠标连续触发MouseMove事件。按下鼠标键，触发MouseDown事件。释放鼠标键，触发MouseUp事件。MouseUp事件之后，触发Click事件。鼠标事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键，并可识别和响应各种鼠标状态。Click和DblClick事件不能识别鼠标的左、右、中键与Shift、Ctrl、Alt键。鼠标事件是由鼠标指

5、针所在的窗体或控件来识别的。如果按下鼠标不放，则对象将继续识别所有鼠标事件（即使指针已离开对象仍继续识别），直到用户释放鼠标为止。9.1.1鼠标事件2.MouseDown和MouseUp事件MouseDown和MouseUp事件分别当鼠标按下和释放时触发，通常可以用来在运行时调整控件的位置，或实现某些图形效果。MouseDown事件更常用些。【例9-1】在窗体中制作一个画线和画方块的程序。界面设计：放置一个图片框Picture1用来绘图，三个按钮Command1～Command3，其中Command1和Command2分别为“直线”和“方块”。功能要求：单击Command1或Comman

6、d2按钮后，在图片框中单击鼠标当鼠标按下时确定一个端点，当鼠标释放时确定另一个端点来画直线或画方块。Command3在图片框中清除图形。运行界面如图9.2所示。图9.2运行界面9.1.1鼠标事件程序代码如下：DimC1AsIntegerDimX1AsInteger,Y1AsIntegerPrivateSubCommand1_Click()'单击直线按钮C1=1EndSubPrivateSubCommand3_Click()'单击方块按钮C1=2EndSubPrivateSubForm_Load()'装载窗体C1=0EndSub9.1.1鼠标事件在图片框中按下鼠标键时确定一个端点。Priv

7、ateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'在图片框中按下鼠标键IfButton=1ThenX1=XY1=YEndIfEndSub9.1.1鼠标事件在图片框中释放鼠标键则确定另一个端点，根据单击的按钮，在图片框中由两端点画直线和画方块。PrivateSubPicture1_MouseUp(ButtonAsInteger,Sh