第九章 事件过程（Event Procedure）教学课件.ppt

第九章事件过程第九章事件过程第九章事件过程第九章事件过程（EventProcedure)返回目录9.1鼠标事件过程9.4键盘事件过程9.2鼠标光标的形状9.3拖放本章要求本章要求：理解事件过程的概念；掌握常用的鼠标事件；掌握常用的键盘事件。返回章首下一页第九章事件过程（EventProcedure)9.1鼠标事件过程9.1.1简单鼠标事件1.Click事件【格式】PrivateSubObject_Click()其中Object为接收事件的对象名。2.DblClick事件【格式】PrivateSubObject_DblClick() 上一页返回章首下一页【格式】： SubObject_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SubObject_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) SubObject_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)9.1.2MouseDown、MouseUp、MouseMove事件上一页返回章首下一页1）.Button参数1表示按下，0表示释放中右左001Button值与鼠标个键的状态表二进制十进制常数鼠标键状态0011vbLeftButton按下左键0102vbRightButton按下右键1004vbMiddleButton按下中键0113vbLeftButton+vbRightButton按下左键+右键1015vbMiddleButton+vbLeftButton按下中键+左键1106vbMiddleButton+vbRightButton按下中键+右键1117vbMiddleButton+vbLeftButton+vbRightButton同时按下三键上一页返回章首下一页2)Shift参数 AltCtrlShift二进制十进制常数鼠标键状态0011vbShiftMask按下Shift键0102vbCtrlMask按下Ctrl键1004vbAltMask按下Alt键0113vbShiftMask+vbCtrlMask按下Shift键+Ctrl键1015vbAltMask+vbShiftMask按下Alt键+Shift键1106vbAltMask+vbCtrlMask按下Alt键+Ctrl键1117vbAltMask+vbCtrlMask+vbShiftMask同时按下三键Shift值与功能键的状态b2b1b0上一页返回章首下一页MouseDown、MouseUp事件当按下鼠标按钮时发生MouseDown事件;当释放鼠标按钮时发生MouseUp事件。 [例9-2]Click事件与MouseDown、MouseUp事件的关系。注意：应尽量避免对同一对象的Click、DblClick、MouseDown、MouseUp事件都编写事件过程。上一页返回章首下一页2.MouseMove事件当鼠标指针在对象上移动时发生MouseMove事件事件伴随鼠标指针的移动会连续不断地产生。[例9-5]画曲线。[例9-7]综合三种鼠标事件绘图。要求：按下鼠标左键画图;若同时按下Shift键开始擦图。上一页返回章首下一页9.2鼠标光标的形状9.2.1MousePointer属性当给对象设置该属性值后，在运行时当鼠标移动到该对象上时，光标就会变成相应的形状。【格式】：对象.MousePointer=设置值[例9-8]在文本框中依次显示光标的形状，每隔一秒变换一种。上一页返回章首下一页9.2.2MouseIcon属性MousePointer属性设为99时，MouseIcon属性提供一个自定义鼠标光标的形状。【格式】：对象.MouseIcon=LoadP