工信版(中职)可视化编程应用——Visual Basic模块5鼠标与键盘的控制电子课件.ppt
《工信版(中职)可视化编程应用——Visual Basic模块5鼠标与键盘的控制电子课件.ppt》由会员分享,可在线阅读,更多相关《工信版(中职)可视化编程应用——Visual Basic模块5鼠标与键盘的控制电子课件.ppt(47页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、YCF(中职)可视化编程应用Visual Basic模块5 鼠标与键盘的控制电子课件模块模块5 鼠标与键盘的控制鼠标与键盘的控制任务任务1 鼠标的控制鼠标的控制 任务任务2 键盘的控制键盘的控制 模块模块5 鼠标与键盘的控制鼠标与键盘的控制 在程序运行中,产生事件的主体有很多,其中尤其以键盘和鼠标为最在程序运行中,产生事件的主体有很多,其中尤其以键盘和鼠标为最在程序运行中,产生事件的主体有很多,其中尤其以键盘和鼠标为最在程序运行中,产生事件的主体有很多,其中尤其以键盘和鼠标为最多。例如,窗体、图片框与图像控件都能检测鼠标指多。例如,窗体、图片框与图像控件都能检测鼠标指多。例如,窗体、图片框与图
2、像控件都能检测鼠标指多。例如,窗体、图片框与图像控件都能检测鼠标指n n一的位置,并一的位置,并一的位置,并一的位置,并可判定其左、右键是否已按下,还能响应鼠标按钮与可判定其左、右键是否已按下,还能响应鼠标按钮与可判定其左、右键是否已按下,还能响应鼠标按钮与可判定其左、右键是否已按下,还能响应鼠标按钮与Shift,CtrlShift,Ctrl或或或或AltAlt键的各种组合。利用键盘事件可以编程响应多种键盘操作,也可以解键的各种组合。利用键盘事件可以编程响应多种键盘操作,也可以解键的各种组合。利用键盘事件可以编程响应多种键盘操作,也可以解键的各种组合。利用键盘事件可以编程响应多种键盘操作,也可
3、以解释、处理释、处理释、处理释、处理ASCIIASCII字符。字符。字符。字符。那么应如何使用这些常用的键盘和鼠标事件呢那么应如何使用这些常用的键盘和鼠标事件呢那么应如何使用这些常用的键盘和鼠标事件呢那么应如何使用这些常用的键盘和鼠标事件呢?上一页 下一页返回任务任务1 鼠标的控制鼠标的控制5.1.1鼠标事件鼠标事件 由用户操作鼠标所引起的,能够被由用户操作鼠标所引起的,能够被由用户操作鼠标所引起的,能够被由用户操作鼠标所引起的,能够被VB 6.0VB 6.0各种对象识别的事件即为鼠各种对象识别的事件即为鼠各种对象识别的事件即为鼠各种对象识别的事件即为鼠标事件。常用的鼠标事件有单击标事件。常用
4、的鼠标事件有单击标事件。常用的鼠标事件有单击标事件。常用的鼠标事件有单击(Click)(Click),双击,双击,双击,双击(Dbl Click)(Dbl Click),按下任,按下任,按下任,按下任意键意键意键意键(MouseDown)(MouseDown),释放任意键,释放任意键,释放任意键,释放任意键(MouseUp)(MouseUp),移动鼠标,移动鼠标,移动鼠标,移动鼠标(MouseMove)(MouseMove)等。等。等。等。需要注意的是,鼠标事件应该被其操作的对象识别,即鼠标位于某个需要注意的是,鼠标事件应该被其操作的对象识别,即鼠标位于某个需要注意的是,鼠标事件应该被其操作的
5、对象识别,即鼠标位于某个需要注意的是,鼠标事件应该被其操作的对象识别,即鼠标位于某个控件或窗体上,则该控件或窗体将识别鼠标事件。鼠标事件的语法结控件或窗体上,则该控件或窗体将识别鼠标事件。鼠标事件的语法结控件或窗体上,则该控件或窗体将识别鼠标事件。鼠标事件的语法结控件或窗体上,则该控件或窗体将识别鼠标事件。鼠标事件的语法结构基本相同,下面以窗体上发生的构基本相同,下面以窗体上发生的构基本相同,下面以窗体上发生的构基本相同,下面以窗体上发生的MouseMoveMouseMove为例进行说明。为例进行说明。为例进行说明。为例进行说明。格式格式格式格式:Private Sub:Private Sub
6、 MouseMove(Index As Integer,Button MouseMove(Index As Integer,Button As Integer,Shift As Integer,X As SingleAs Integer,Shift As Integer,X As Single,Y As Single)Y As Single)其中其中其中其中:可以响应鼠标事件的对象名称。可以响应鼠标事件的对象名称。可以响应鼠标事件的对象名称。可以响应鼠标事件的对象名称。下一页返回任务任务1 鼠标的控制鼠标的控制 Index Index:整数,用来唯一地标识一个在控件数组中的控件。如果不是:整数
7、,用来唯一地标识一个在控件数组中的控件。如果不是:整数,用来唯一地标识一个在控件数组中的控件。如果不是:整数,用来唯一地标识一个在控件数组中的控件。如果不是控件数组此项省略。控件数组此项省略。控件数组此项省略。控件数组此项省略。Button Button:整数,对应鼠标各个按钮的状态,如果某个按钮按下,其中:整数,对应鼠标各个按钮的状态,如果某个按钮按下,其中:整数,对应鼠标各个按钮的状态,如果某个按钮按下,其中:整数,对应鼠标各个按钮的状态,如果某个按钮按下,其中就有一个二进制位被设置。就有一个二进制位被设置。就有一个二进制位被设置。就有一个二进制位被设置。ButtonButton参数是具有
8、相应于左按钮参数是具有相应于左按钮参数是具有相应于左按钮参数是具有相应于左按钮(位位位位0)0),右,右,右,右按钮按钮按钮按钮(位位位位1)1),中间按钮,中间按钮,中间按钮,中间按钮(位位位位2)2)的一个位字段。这些位置的值分别等于的一个位字段。这些位置的值分别等于的一个位字段。这些位置的值分别等于的一个位字段。这些位置的值分别等于1,21,2和和和和 4 4。常数、。常数、。常数、。常数、bLeftButton,vbRightButton,vbMiddleButtonbLeftButton,vbRightButton,vbMiddleButton分别代表分别代表分别代表分别代表这些值。
9、这些值。这些值。这些值。ButtonButton参数指示这些鼠标按钮的整体状态。参数指示这些鼠标按钮的整体状态。参数指示这些鼠标按钮的整体状态。参数指示这些鼠标按钮的整体状态。Shift Shift;整数,该整数指示;整数,该整数指示;整数,该整数指示;整数,该整数指示Shift,CtrlShift,Ctrl和和和和AltAlt键的状态。某按键按下使得键的状态。某按键按下使得键的状态。某按键按下使得键的状态。某按键按下使得一个二进制位被设置。一个二进制位被设置。一个二进制位被设置。一个二进制位被设置。ShiftShift参数是具有相应于参数是具有相应于参数是具有相应于参数是具有相应于Shift
10、(Shift(位位位位0),Ctrl(0),Ctrl(位位位位1)1)和和和和Al t(Al t(位位位位2)2)键最少一个位字段。这些位的值分别等于键最少一个位字段。这些位的值分别等于键最少一个位字段。这些位的值分别等于键最少一个位字段。这些位的值分别等于1,21,2和和和和4 4。常数、。常数、。常数、。常数、bShiftMask,vbCtrlMask,vbAltMaskbShiftMask,vbCtrlMask,vbAltMask分别代表这些值。例如,分别代表这些值。例如,分别代表这些值。例如,分别代表这些值。例如,CtrlCtrl和和和和AltAlt键都被按下,则键都被按下,则键都被按
11、下,则键都被按下,则ShiftShift的值就是的值就是的值就是的值就是6 6。上一页 下一页返回任务任务1 鼠标的控制鼠标的控制 X,Y:X,Y:指定鼠标指针当前位置的值。采用指定鼠标指针当前位置的值。采用指定鼠标指针当前位置的值。采用指定鼠标指针当前位置的值。采用ScaleModeScaleMode属性指定的坐标属性指定的坐标属性指定的坐标属性指定的坐标 系。系。系。系。注意注意注意注意:指针移动得越快,在任何两点之间所能识别的指针移动得越快,在任何两点之间所能识别的指针移动得越快,在任何两点之间所能识别的指针移动得越快,在任何两点之间所能识别的MouseMoveMouseMove事件事件
12、事件事件 越少,应用程序越能不断的迅速识别大量的越少,应用程序越能不断的迅速识别大量的越少,应用程序越能不断的迅速识别大量的越少,应用程序越能不断的迅速识别大量的MouseMoveMouseMove事件。因此,事件。因此,事件。因此,事件。因此,一个一个一个一个MouseMoveMouseMove事件过程不适合去做那些需要大量计算时间的工作。事件过程不适合去做那些需要大量计算时间的工作。事件过程不适合去做那些需要大量计算时间的工作。事件过程不适合去做那些需要大量计算时间的工作。上一页 下一页返回任务任务1 鼠标的控制鼠标的控制5.1.2鼠标光标形状鼠标光标形状 在应用程序中,经常要根据鼠标光标
13、所在位置或应用程序的状况来决在应用程序中,经常要根据鼠标光标所在位置或应用程序的状况来决在应用程序中,经常要根据鼠标光标所在位置或应用程序的状况来决在应用程序中,经常要根据鼠标光标所在位置或应用程序的状况来决定鼠标光标的形状,如定鼠标光标的形状,如定鼠标光标的形状,如定鼠标光标的形状,如“I”“I”字形鼠标表示插入文本,字形鼠标表示插入文本,字形鼠标表示插入文本,字形鼠标表示插入文本,“+”“+”字形表示字形表示字形表示字形表示画出线或圆等。鼠标光标的形状由对象的画出线或圆等。鼠标光标的形状由对象的画出线或圆等。鼠标光标的形状由对象的画出线或圆等。鼠标光标的形状由对象的MousePointer
14、MousePointer属性确定,具属性确定,具属性确定,具属性确定,具体值可在属性窗口了解或参考体值可在属性窗口了解或参考体值可在属性窗口了解或参考体值可在属性窗口了解或参考VB 6.0VB 6.0帮助文件。帮助文件。帮助文件。帮助文件。上一页返回任务任务2 键盘的控制键盘的控制5.2.1 Keypress事件事件 当用户按下和松开一个当用户按下和松开一个当用户按下和松开一个当用户按下和松开一个ANSIANSI键时发生键时发生键时发生键时发生Keypress Keypress 事件。事件。事件。事件。ANSIANSI键包括数键包括数键包括数键包括数字,大小英文字母,字,大小英文字母,字,大小
15、英文字母,字,大小英文字母,Enter,BackSpace,Esc,TabEnter,BackSpace,Esc,Tab等键。方向键不会产等键。方向键不会产等键。方向键不会产等键。方向键不会产生生生生KeypressKeypress事件。事件。事件。事件。格式格式格式格式:Private Sub Private Sub Keypress(Index As Integer,KeyAscii As Keypress(Index As Integer,KeyAscii As Integer)Integer)其中其中其中其中:Index Index整数,它用来唯一标识一个在控件数组中的控件。整数,它用
16、来唯一标识一个在控件数组中的控件。整数,它用来唯一标识一个在控件数组中的控件。整数,它用来唯一标识一个在控件数组中的控件。KeyAscii:KeyAscii:为返回一个标准数字为返回一个标准数字为返回一个标准数字为返回一个标准数字ANSIANSI键代码的键代码的键代码的键代码的ASCIIASCII值。值。值。值。KeyAsciiKeyAscii通过通过通过通过引用传递,对它进行改变,可给对象发送一个不同的字符。引用传递,对它进行改变,可给对象发送一个不同的字符。引用传递,对它进行改变,可给对象发送一个不同的字符。引用传递,对它进行改变,可给对象发送一个不同的字符。KeyAsciiKeyAsci
17、i改变为改变为改变为改变为0 0时可取消击键,此时对象接收不到字符。时可取消击键,此时对象接收不到字符。时可取消击键,此时对象接收不到字符。时可取消击键,此时对象接收不到字符。下一页返回任务任务2 键盘的控制键盘的控制5.2.2 Keydown和和KeyUp事件事件 当一个对象具有焦点时按下当一个对象具有焦点时按下当一个对象具有焦点时按下当一个对象具有焦点时按下(Keydown)(Keydown)或松开或松开或松开或松开(KeyUp)(KeyUp)一个键时发生一个键时发生一个键时发生一个键时发生KeydownKeydown和和和和Key UKey U。事件。事件。事件。事件。格式格式格式格式:
18、Private Sub Private Sub Keydown(Index As Integer,KeyCode As Keydown(Index As Integer,KeyCode As Integer,Shift As Integer)Integer,Shift As Integer)Private Sub Private Sub KeyUp(Index As Integer,KeyCode As KeyUp(Index As Integer,KeyCode As Integer,Shift As Integer)Integer,Shift As Integer)其中其中其中其中:Key
19、Code:KeyCode:是一个键代码,告诉用户事件过程所操作的物理键,并不区是一个键代码,告诉用户事件过程所操作的物理键,并不区是一个键代码,告诉用户事件过程所操作的物理键,并不区是一个键代码,告诉用户事件过程所操作的物理键,并不区分大小写,如分大小写,如分大小写,如分大小写,如vbKeyFl(F1vbKeyFl(F1键键键键)或或或或vbKeyHome(HotnevbKeyHome(Hotne键键键键)。其余参数的。其余参数的。其余参数的。其余参数的解释参见前面的鼠标事件和解释参见前面的鼠标事件和解释参见前面的鼠标事件和解释参见前面的鼠标事件和KeypressKeypress事件。事件。事
20、件。事件。对于对于对于对于KeydownKeydown和和和和KeyUpKeyUp事件可应用于大多数键,它们最经常的还是应事件可应用于大多数键,它们最经常的还是应事件可应用于大多数键,它们最经常的还是应事件可应用于大多数键,它们最经常的还是应用于扩展的字符,如功能键、定位键、键盘修饰键和组合键,区分数用于扩展的字符,如功能键、定位键、键盘修饰键和组合键,区分数用于扩展的字符,如功能键、定位键、键盘修饰键和组合键,区分数用于扩展的字符,如功能键、定位键、键盘修饰键和组合键,区分数字小键盘和常规数字键。字小键盘和常规数字键。字小键盘和常规数字键。字小键盘和常规数字键。上一页 下一页返回任务任务2
21、键盘的控制键盘的控制 下列情况不能引用下列情况不能引用下列情况不能引用下列情况不能引用KeydownKeydown和和和和KeyUpKeyUp事件。事件。事件。事件。(1)(1)窗体有一个命令按钮,并且窗体有一个命令按钮,并且窗体有一个命令按钮,并且窗体有一个命令按钮,并且DefaultDefault属性设置为属性设置为属性设置为属性设置为TrueTrue时的时的时的时的EnterEnter键。键。键。键。(2)(2)窗体有一个命令按钮,并且窗体有一个命令按钮,并且窗体有一个命令按钮,并且窗体有一个命令按钮,并且CancelCancel属性设置为属性设置为属性设置为属性设置为TrueTrue时
22、的时的时的时的EscEsc键。键。键。键。(3)Tab (3)Tab键。键。键。键。例例例例5 5一一一一11编写一个简易的指法练习程序。要求最大限时编写一个简易的指法练习程序。要求最大限时编写一个简易的指法练习程序。要求最大限时编写一个简易的指法练习程序。要求最大限时1 1分钟。分钟。分钟。分钟。(1)(1)界面设计。在工程中添加窗体界面设计。在工程中添加窗体界面设计。在工程中添加窗体界面设计。在工程中添加窗体Form14Form14,在窗体上添加,在窗体上添加,在窗体上添加,在窗体上添加3 3个标签控件,个标签控件,个标签控件,个标签控件,用来动态显示英文字母用来动态显示英文字母用来动态显
23、示英文字母用来动态显示英文字母,1,1个命令按钮用来开始和结束程序,两个计时个命令按钮用来开始和结束程序,两个计时个命令按钮用来开始和结束程序,两个计时个命令按钮用来开始和结束程序,两个计时器控件,器控件,器控件,器控件,Timer1Timer1用来控制标签的移动,用来控制标签的移动,用来控制标签的移动,用来控制标签的移动,Timer2Timer2用来控制总时间,设计用来控制总时间,设计用来控制总时间,设计用来控制总时间,设计界面如界面如界面如界面如图图图图5-15-1所示。所示。所示。所示。(2)(2)属性设置。对象属性设置如属性设置。对象属性设置如属性设置。对象属性设置如属性设置。对象属性
24、设置如表表表表5-15-1所示。所示。所示。所示。上一页 下一页返回任务任务2 键盘的控制键盘的控制 (3)(3)代码编写如下。代码编写如下。代码编写如下。代码编写如下。Private Sub Command1_Click()Private Sub Command1_Click()Dim n As Integer,to As Integer Dim n As Integer,to As Integer IfCommandl.Caption=“IfCommandl.Caption=“开始开始开始开始”Then”Then Timerl.Enabled=True;Timer2.Enabled=Tru
25、e;Command1.Timerl.Enabled=True;Timer2.Enabled=True;Command1.Caption=“Caption=“结束结束结束结束”开始练习开始练习开始练习开始练习 Else Else Timerl.Enabled=False;Timer2.Enabled=False Timerl.Enabled=False;Timer2.Enabled=False 结束练习结束练习结束练习结束练习 If m0 Then If m0 Then Print Print击键次数击键次数击键次数击键次数:m&m&次次次次 Print“Print“正确率为正确率为正确率为正确
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 工信版中职可视化编程应用Visual Basic模块5 鼠标与键盘的控制电子课件 工信版 可视化 编程 应用 Visual Basic 模块 鼠标 键盘 控制 电子 课件
限制150内