资源描述：
《键盘与鼠标事件过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第8章鼠标与键盘事件过程8.1鼠标事件1.Click和DblClick事件用户在单击鼠标左键时会触发Click事件；双击鼠标左键时会触发DblClick事件。这两个事件过程的语法格式如下：PrivateSub对象名_Click()[过程体]EndSubPrivateSub对象名_DblClick()[过程体]EndSub2.MouseDown和MouseUp事件MouseDown事件语法格式如下：PrivateSub对象名_MouseDown([IndexAsInteger],_ButtonAsInteger,ShiftAsInteger,XAsSi
2、ngle,YAsSingle)[过程体]EndSubMouseUp事件语法格式如下：PrivateSub对象名_MouseUp([IndexAsInteger],ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)[过程体]EndSub图8-1鼠标MouseDownMouseUp事件例8-1设计一个简单的应用程序，如图图8-1所示，在窗体上建立一个命令按钮，当运行时，在命令按钮内部按下鼠标左键，其标题会显示“按下状态”；松开鼠标左键时其会显示“松开状态”。按下鼠标左键时，会发生MouseDown事
3、件，要使得命令按钮的显示发生变化，必须编写命令按钮的MouseDown事件，代码如下PrivateSubCommand1_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Command1.Caption="按下状态"EndSub松开鼠标左键时，会发生MouseUp事件，其代码编写如下：PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Command1.Caption="松
4、开状态"EndSubMouseMove事件语法格式如下：PrivateSub对象名_MouseMove(ButtonAsInteger,Shift_AsInteger,XAsSingle,YAsSingle)[过程体]EndSub3.MouseMove事件例8-2设计一个程序，当鼠标在窗口内移动时，其移动轨迹也随之出现（如图8-2所示）。双击时，绘制过程完毕。图8-2鼠标移动轨迹效果初始化步骤放在窗体的加载事件中完成：PrivateSubForm_Load()a=0EndSub这个题目可以使用鼠标的MouseMove和DblClick事件实现。首先，
5、定义并初始化一个整型变量a用来辅助实现要求的功能。定义代码如下：DimaAsInteger然后，编辑窗体的DblClick事件和MouseMove事件，具体实现如下：PrivateSubForm_DblClick()a=1'双击时不再绘制移动轨迹EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)Ifa=0ThenPSet(X,Y)EndIfEndSub8.2鼠标光标的形状表8-3MousePointer属性的取值及对应的鼠标光标形状1．
6、MousePointer属性常量值形状vbDefault0（默认值）形状由对象决定vbArrow1箭头vbCrosshair2十字形（Crosshair指针）vbIbeam3I型vbIconPointer4图标（嵌套方框）vbSizePointer5尺寸线（指向下、上、左和右四个方向的箭头）vbSizeNESW6右上—左下尺寸线（指向右上和左下方向的双箭头）vbSizeNS7垂直尺寸线（指向上下两个方向的双箭头）vbSizeNWSE8左上—右下尺寸线（指向右上和左下方向的双箭头）vbSizeWE9水平尺寸线（指向左右两个方法的双箭头）vbUpArro
7、w10向上的箭头vbHourglass11沙漏（表示等待状态）vbNoDrop12没有入口：一个圆形记号，表示控件移动受限vbArrowHourglass13箭头和沙漏vbArrowQuestion14箭头和问号vbSizeAll15四向尺寸线vbCustom99通过MouseIcon属性所指定的自定义图标2．鼠标光标形状的使用虽然鼠标光标的形状可以由MousePointer属性和MouseIcon属性相互配合任意设置，但是，为了与Windows环境相适应，在开发应用程序中应遵循以下几个主要规则：(1)表示用户可用的各种功能。如用“I”形状表示插入文
8、本；用“十”字形状表示画图状态或表示选择状态等。(2)表示程序运行状态的可视线索。如沙漏形状表示程序忙等。(
