资源描述：
《第11讲_鼠标和键盘.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、教就是为了不需要教。要提倡引导与启发，使学生加强自力锻炼，达到疑难能自决，是非能自辨，斗争能自奋，攻关能自勉的主动境界。----叶圣陶第11讲鼠标和键盘第13讲鼠标和键盘【教学内容】一.鼠标事件二.改变鼠标指针三.键盘事件【教学要求】1.理解鼠标、键盘事件的触发机制。2.掌握鼠标的MouseDown，MouseMove，MouseUp事件中各参数的含义及编程控制。3.掌握键盘的KeyDown，KeyPress，KeyUp事件中各参数的含义及编程控制。参见P180一、鼠标事件大多数控件能够识别鼠标的MouseMove、MouseDown和M
2、ouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。鼠标事件发生条件MouseMove每当鼠标指针移动到屏幕新位置时发生MouseDown按下任意鼠标键按钮时发生MouseUp释放任意鼠标键按钮时发生参见P180鼠标事件过程【语法格式】1．对象：可以是窗体对象和大多数可视控件。注意：要弄清鼠标事件发生在什么对象上，是窗体上还是控件上。2．鼠标事件：MouseMove、MouseDown、MouseUpSub对象_鼠标事件(ButtonAsInteger，ShiftAsInteger，_XAsSingle
3、，YAsSingle)语句块EndSub【说明】参见P180Button参数Button参数用来区分当前鼠标的左、中、右按键，1表示按下左键，2表示按下右键，4表示按下中间键(Windows鼠标驱动程序不支持中间键)。3．Button参数：表示按下或松开鼠标的哪个按钮。【例】IfButton=1Then'或IfButton=vbLeftButtonThen'语句块Endif右按键被按下vbRightButton0102左按键被按下vbLeftButton0011含义常数二进制十进制Button键的常数值参见P180Shift参数也就是说，
4、Shift参数用来区分鼠标与键盘的组合!例：Shift=1，表示Shift键按下4．Shift参数：表示当鼠标键被按下或释放时，Shift、Ctrl、Alt键的按下或释放状态。Shift键的常数值十进制常数含义1vbShiftMaskShift键被按下2vbCtrlMaskCtrl键被按下4vbAltMaskAlt键被按下3vbShiftMask+vbCtrlMask同时按下Shift和Ctrl键5vbShiftMask+vbAltMask同时按下Shift和Alt键6vbCtrlMask+vbAltMask同时按下Ctrl和Alt键7v
5、bShiftMask+vbCtrlMask+vbAltMask同时按下Shift、Ctrl和Alt键参见P181x,y参数5.x,y参数：表示鼠标指针的位置。x,y参数返回鼠标指针当前的位置，计量单位由窗体的ScaleMode决定。x,y的值被限定在ScaleHeight、ScaleWidth、ScaleLeft和ScaleTop属性所建立的坐标系内。参见P181【补充例1】PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'随机改变La
6、bel1控件的前景色Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)‘根据鼠标当前的X，Y坐标设置Label1控件的Top和Left属性Label1.Top=YLabel1.Left=XEndSub【例7.19】简单画图程序DimDrawStateAsBooleanDimPreX$,PreY$PrivateSubForm_Load()DrawState=False'将drawstate初始化为False，表示提笔EndSubPrivateSubForm_MouseDown(ButtonAsInte
7、ger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'按下鼠标左键时，把DrawState设为True,表示落笔开始画线DrawState=True'PreX、PreY保存线条的起点PreX=XPreY=YEndIfIfButton=2ThenFillStyle=0FillColor=RGB(255,255,255)ForeColor=RGB(255,255,255)‘设前景为白色'按下鼠标右键并移动时，画一个直径为280的圆Circle(X,Y),300EndIfEndSub参见P1
8、81【例7.19】简单画图程序PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'当鼠标移
