第9章 键盘与鼠标事件ppt课件
合集下载
《鼠标键盘和OLE》PPT课件
'在图片框中释放鼠标键 If Button = 1 Then Select Case C1 Case 1 Picture1.Line (X1, Y1)-(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , B End Select End If
End Sub
Private Sub Form_Load() '装载窗体
MousePionter属性的设置值与形状如表9.3所示。
9.1.2 改变鼠标指针
• 表9.3 MousePionter属性值
常数
值
描述
vbDefault
0
VbArrow
1
VbCrosshair
2
VbIbeam
3
VbIconPointer
4
VbSizePointer
5
VbSizeNESW
6
VbSizeNS
C1 = 0 End Sub
9.1.1 鼠标事件
3．MouseMove事件 MouseMove事件是鼠标在屏幕上移动时触发的，窗体和控件都能识别
MouseMove事件， 当鼠标指针在对象的边界范围内时该对象就能接收 MouseMove事件，除非有另一个对象捕获了鼠标。
当移动鼠标时， Button参数对于MouseMove事件与MouseDown和MouseUp事件不同， MouseMove事件的Button值表示所有按键的状态，而MouseDown和MouseUp事件 的Button的值无法检测是否同时按下两个以上的按键。 【例9-2】在图片框中绘制连续的线和方块。 使用MouseMove事件可以连续地画线和方块，当鼠标移动时在不断触发的 MouseMove事件中画线和方块。运行界面如图9.3所示。 程序代码如下。
End Sub
Private Sub Form_Load() '装载窗体
MousePionter属性的设置值与形状如表9.3所示。
9.1.2 改变鼠标指针
• 表9.3 MousePionter属性值
常数
值
描述
vbDefault
0
VbArrow
1
VbCrosshair
2
VbIbeam
3
VbIconPointer
4
VbSizePointer
5
VbSizeNESW
6
VbSizeNS
C1 = 0 End Sub
9.1.1 鼠标事件
3．MouseMove事件 MouseMove事件是鼠标在屏幕上移动时触发的，窗体和控件都能识别
MouseMove事件， 当鼠标指针在对象的边界范围内时该对象就能接收 MouseMove事件，除非有另一个对象捕获了鼠标。
当移动鼠标时， Button参数对于MouseMove事件与MouseDown和MouseUp事件不同， MouseMove事件的Button值表示所有按键的状态，而MouseDown和MouseUp事件 的Button的值无法检测是否同时按下两个以上的按键。 【例9-2】在图片框中绘制连续的线和方块。 使用MouseMove事件可以连续地画线和方块，当鼠标移动时在不断触发的 MouseMove事件中画线和方块。运行界面如图9.3所示。 程序代码如下。
键盘和鼠标事件
例如：直接按光标键时移动图片的位置，按 下Shift键再按光标键时放缩图片，按 Shift+Ctrl键时复位图片的位置及大小。 将窗体的KeyPreview属性设置为True Image1的Strech属性设置为True.
Private Sub Form_Load() Label1.Caption = "直接按光标键移动图片，按下 Shift键再按光标键放缩图片，按Shift+Ctrl键复 位图片。" End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 3 Then Image1.Move 2000, 1000, 1000, 1000 '复位图 片 End If
KeyPress事件中得到的是按键对应的字符 的ASCII码(KeyAscii) KeyUp,KeyDown事件中得到的是按键对应 的键号(KeyCode)，键盘104个键都对应着 唯一的键号。
KeyPress事件 对象的KeyPress事件过程的一般格式为：
Privat Sub Object_KeyPress(KeyAscii As Integer)
Function ShiftStatus(Shift As Integer) As String Select Case Shift Case 0: s = "" Case 1: s = “Shift+" Case 2: s = "Ctrl+" Case 3: s = "Shift+Ctrl+" Case 4: s = "Alt+" Case 5: s = "Shift+Alt+" Case 6: s = "Ctrl+Alt+" Case 7: s = "Shift+Ctrl+Alt+" End Select ShiftStatus = s End Function
第9章 键盘与鼠标事件过程
例9-1 KeyPress的用法
例如,数字的ASCII码是在48~57范围,下列事件处理只允许用 户在文本框中输入数字(非数字字符被抑制): Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then ' 输入为非数字字符 KeyAscii = 0 ' 抑制非数字字符的输入 End If End Sub 在该事件处理过程中,就是对数字以外的字符进行拦截,将其 KeyAscii参数更改为0,使控件最后接收到的是KeyAscii = 0的字 符(空字符,但不是空格字符),这样就抑制了那些字符的输入.
参数说明
Index:是一个整数,它用来唯一标识一个在控件数组中的控件. : KeyCode:是一个键的扫描码,可以用诸如vbKeyFl(F1键)的系统常 : 量表示,它的值只与按键在键盘上的物理位置有关,与键盘的大小写 状态无关;如果按的是两个以上的组合键,KeyCode将先后得到所有 这些不同物理位置键的扫描码.
参数: (1) Button参数:描述所按下的鼠标键是哪一个. 参数 ①使用二进制值: B2 B1 B0 使用二进制值 B0为1:表示按下了鼠标左键 B1为1:表示按下了鼠标右键 B2为1:表示按下了鼠标中键 例如:Button为2(=010B),即B1 为1,表示按下了右键; 如果按了鼠标左键,则Button为1(=001B).
if Shfit = vbAltMask And Button = 1 Then … … ' 这是 这是仅按住Alt健且左击鼠标后应执行的代码 且 后应执行的代码
(3)X,Y:鼠标的当前位置坐标值. ) , : 例9-3 MouseMove事件及其参数的演示.在窗体上移 动鼠标时,文本框Text1和Text2中分别显示鼠标相对 于窗体的实时位置坐标;在图片框P1中移动鼠标时, 文本框Text1和Text2中则分别显示鼠标相对于图片框 的实时位置坐标. 下图所示,是程序运行时鼠标在窗体左边界上移动的 某瞬间的情景.
第9章 鼠标和键盘事件
第9章鼠标和键盘事件一、授课内容授课科目：计算机基础（VB）授课内容：第9章鼠标和键盘事件授课类型：讲授授课时间：？学时主讲教师：二、教学目的要求知识目标：1．掌握鼠标事件的使用。
2．掌握键盘事件的使用能力目标：培养学生“提出问题、分析问题、解决问题”科学的思维方法。
情感目标：通过创设情景，激发学生应用VB编写程序的学习兴趣，培养学生独立思考、勇于探究的学习精神；鼓励学生编写程序来解决实际生活中的问题。
三、教材分析概述：鼠标和键盘事件是VB编写程序代码的基础，主要介绍了鼠标的键盘事件的使用以及各个事件中的参数意义。
教学重点：鼠标的MouseDown事件、MouseUp事件和MouseMove事件，键盘的KeyDown事件和KeyPress事件。
教学难点：鼠标的MouseDown事件和键盘的KeyPress事件。
四、教学方法问题教学法、讲授法、类比法、讨论法等。
五、教学过程（一）导入新课鼠标和键盘是图形用户界面下应用最多的输入与控制设备。
前面已经介绍并且使用过了鼠标的Click事件和DblClick事件。
本次课着重介绍另外几个常用的鼠标和键盘事件。
（二）讲授新课9.1鼠标事件鼠标事件除了前面已经使用了鼠标的单击Click事件和双击DblClick事件外还有三个常用的鼠标事件：鼠标的任意按钮被按下时触发的MouseDown事件、鼠标的任意按钮被释放时触发的MouseUp事件和移动鼠标时触发的MouseMove事件。
格式：Private Sub Object_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single) …End SubPrivate Sub Object_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) …End SubPrivate Sub Object_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) …End Sub其中，Object为响应鼠标事件的控件名。
鼠标和键盘的基本操作PPT共29页
鼠标和键盘的基本操作
26、机遇对于有准备的头脑有特别的 亲和力 。 27、自信是人格的核心。
28、目标的坚定是性格中最必要的力 量泉源 之一， 也是成 功的利 器之一 。没有 它，天 才也会 在矛盾 无定的 迷径中 ，徒劳 无功。- -查士 德斐尔 爵士。 29、困难就是机遇。--温斯顿．丘吉 尔。 30、我奋斗，所以我快乐。--格林斯 潘。
谢谢你ห้องสมุดไป่ตู้阅读
❖ 知识就是财富 ❖ 丰富你的人生
71、既然我已经踏上这条道路，那么，任何东西都不应妨碍我沿着这条路走下去。——康德 72、家庭成为快乐的种子在外也不致成为障碍物但在旅行之际却是夜间的伴侣。——西塞罗 73、坚持意志伟大的事业需要始终不渝的精神。——伏尔泰 74、路漫漫其修道远，吾将上下而求索。——屈原 75、内外相应，言行相称。——韩非
26、机遇对于有准备的头脑有特别的 亲和力 。 27、自信是人格的核心。
28、目标的坚定是性格中最必要的力 量泉源 之一， 也是成 功的利 器之一 。没有 它，天 才也会 在矛盾 无定的 迷径中 ，徒劳 无功。- -查士 德斐尔 爵士。 29、困难就是机遇。--温斯顿．丘吉 尔。 30、我奋斗，所以我快乐。--格林斯 潘。
谢谢你ห้องสมุดไป่ตู้阅读
❖ 知识就是财富 ❖ 丰富你的人生
71、既然我已经踏上这条道路，那么，任何东西都不应妨碍我沿着这条路走下去。——康德 72、家庭成为快乐的种子在外也不致成为障碍物但在旅行之际却是夜间的伴侣。——西塞罗 73、坚持意志伟大的事业需要始终不渝的精神。——伏尔泰 74、路漫漫其修道远，吾将上下而求索。——屈原 75、内外相应，言行相称。——韩非
正确使用键盘、鼠标PPT课件
光标键：按相应的键，光标将 向箭头方向移动一个字符，只 移动光标，不移动文字。
使屏幕显示暂停，按【Enter】键 后屏幕继续显示。
向前翻页键：可以翻到上一页。
向后翻页键：可以翻到下一页。
【Home】 键 可 使 光 标 快 速移至当前行的行首， 【End】键则移至行尾。
小键盘区
小键盘区主要用于快速输入数字及进行光标移动 控制，常适用于银行、企事业单位等。当要使用 小键盘区输入数字时，应先按下左上角的【Num Lock】键，此时状态指示灯区第1个指示灯亮，表 示此时为数字状态，然后进行输入即可。
光标处的字符
14
功能键和快捷键的作用
F1帮助 F5刷新 CTRL+A 全选 CTRL+V粘贴
F10菜单 CTRL+C 复制 CTRL+X 剪切 CTRL+Z撤消 CTRL+O打开
SHIFT+DELETE 永久删除 DELETE 删除
CTRL+空格键 中英文转换 CTRL +SHIFT 中文之间切换
19
【Back Space】键
退格键。每按一次该键，可使光标向左移动一个 位置，若光标位置左边有字符，将删除该位置上 的字符。
【Enter】键
回车键。它有两个作用：一是确认并执行输入的 命令，二是在输入文字时按此键，插入光标移至 下一行行首。
Windows功能键
主键盘区左右各有一个键，键面上刻着Windows窗 口图案，称为“开始菜单”键，在Windows操作系 统中，按下该键后将弹出“开始”菜单；主键盘右 下角的键称为“快捷菜单”键，在Windows操作系 统中，按该键后会弹出相应的快捷菜单，其功能相 当于单击鼠标右键。
6
使屏幕显示暂停，按【Enter】键 后屏幕继续显示。
向前翻页键：可以翻到上一页。
向后翻页键：可以翻到下一页。
【Home】 键 可 使 光 标 快 速移至当前行的行首， 【End】键则移至行尾。
小键盘区
小键盘区主要用于快速输入数字及进行光标移动 控制，常适用于银行、企事业单位等。当要使用 小键盘区输入数字时，应先按下左上角的【Num Lock】键，此时状态指示灯区第1个指示灯亮，表 示此时为数字状态，然后进行输入即可。
光标处的字符
14
功能键和快捷键的作用
F1帮助 F5刷新 CTRL+A 全选 CTRL+V粘贴
F10菜单 CTRL+C 复制 CTRL+X 剪切 CTRL+Z撤消 CTRL+O打开
SHIFT+DELETE 永久删除 DELETE 删除
CTRL+空格键 中英文转换 CTRL +SHIFT 中文之间切换
19
【Back Space】键
退格键。每按一次该键，可使光标向左移动一个 位置，若光标位置左边有字符，将删除该位置上 的字符。
【Enter】键
回车键。它有两个作用：一是确认并执行输入的 命令，二是在输入文字时按此键，插入光标移至 下一行行首。
Windows功能键
主键盘区左右各有一个键，键面上刻着Windows窗 口图案，称为“开始菜单”键，在Windows操作系 统中，按下该键后将弹出“开始”菜单；主键盘右 下角的键称为“快捷菜单”键，在Windows操作系 统中，按该键后会弹出相应的快捷菜单，其功能相 当于单击鼠标右键。
6
键盘与鼠标事件ppt课件
第9章 键盘与鼠标事件
1
章节分布
1 键盘事件
2 鼠标事件
2
8.1 键盘事件
KeyPress事件过程 KeyDown事件过程
KeyUp事件过程
键盘事件
3
8.1.1 KeyPress事件过程
• 触发时刻：当按下键盘上某个键时，将触 发KeyPress；
• 服务对象：窗体、复选框、组合框、命令 按钮、列表框、
正确，在MouseMove中，可以对Button进行累加。
MouseMove：If (Button And 3)=3 Then “同时按下左、右两键”
正确，两种情况，同时按左右键或三个键都按下。
13
• 应用举例 • Example 8.4：编写程序，在窗体上画
圆，要求：按着右键移动鼠标，则可以画 圆；否则不能画圆。
Single)
Integer, x As Single, y As
…
｛ EndBuStut，即1，按下鼠标左键 010，即2，按下鼠标右键 100，即4，按下鼠标中间键
• - x, y：鼠标光标当前的位置；
12
需要注意的是，在MouseDown和 MouseUp中，Button值不能进行求和，即 Button值只能是3个值中的某一个，它不能 M反ous映eD是ow否n：同If B时ut按ton下=3 了The鼠n “标同时上按的下多左、个右键两键；”对 于MouseMove来错误说，在，Mo可use以Dow通n中过，不B能u对ttBoutnto参n进行数累加。 M判ous断eM按ov下e：一If B个utt或on=同3 T时he按n “下同时多按个下左键、。右两键”
14
• 按下鼠标键事件过程
Sub Form_MouseDown (Button As Integer, Shift
1
章节分布
1 键盘事件
2 鼠标事件
2
8.1 键盘事件
KeyPress事件过程 KeyDown事件过程
KeyUp事件过程
键盘事件
3
8.1.1 KeyPress事件过程
• 触发时刻：当按下键盘上某个键时，将触 发KeyPress；
• 服务对象：窗体、复选框、组合框、命令 按钮、列表框、
正确，在MouseMove中，可以对Button进行累加。
MouseMove：If (Button And 3)=3 Then “同时按下左、右两键”
正确，两种情况，同时按左右键或三个键都按下。
13
• 应用举例 • Example 8.4：编写程序，在窗体上画
圆，要求：按着右键移动鼠标，则可以画 圆；否则不能画圆。
Single)
Integer, x As Single, y As
…
｛ EndBuStut，即1，按下鼠标左键 010，即2，按下鼠标右键 100，即4，按下鼠标中间键
• - x, y：鼠标光标当前的位置；
12
需要注意的是，在MouseDown和 MouseUp中，Button值不能进行求和，即 Button值只能是3个值中的某一个，它不能 M反ous映eD是ow否n：同If B时ut按ton下=3 了The鼠n “标同时上按的下多左、个右键两键；”对 于MouseMove来错误说，在，Mo可use以Dow通n中过，不B能u对ttBoutnto参n进行数累加。 M判ous断eM按ov下e：一If B个utt或on=同3 T时he按n “下同时多按个下左键、。右两键”
14
• 按下鼠标键事件过程
Sub Form_MouseDown (Button As Integer, Shift
第9章响应键盘与鼠标事件精品PPT课件
F1～F16，编辑键PageUp、PageDown键、
Delete、Insert键等，箭头键→、←、↑、↓，
数字小键盘上的键。
29.10.2020
5
9-1-3 实例：登陆检测程序
【例9-1】当用户输入了正确的密码时，显示 “密码正确!”，否则提示用户“无效的密码， 请重试!”，若用户连续输入三次错误，则提 示用户“您无权进入系统！”，退出。当用 户完成输入密码后，直接按下回车键或单击 “确定”按钮都可完成检测用户名称和密码 正确与否的操作。
鼠标左键，2－表示按下鼠标右键，3－表示同 时按下鼠标左键和右键（只能由MouseMove 事件识别，MouseDown事件和MouseUp事 件一次只能识别一个按钮），4－按下中间键
Shift描述Shift、Alt和Ctrl键的状态 X,Y由接受鼠标事件的对象的坐标系统所描 述的鼠标指针的位置。
29.10.2020
2.设置拖动图标 若要改变拖动图标，就要设置DragIcon属性。 设置该属性最简单的方法是在属性窗口中，选 定DragIcon属性后，单击“属性”按钮，再 从“加载图标”对话框中选择图片文件。
29.10.2020
15
9-3 拖放操作
3.响应放下对象操作 源——被拖动的控件，可以是任意支持拖动
操作的对象；目标——能识别DragDrop事件并 且是在其上放控件的对象。
29.10.2020
11
9-3 拖放操作
DragDrop和DragOver事件 DragMode属性 DragIcon属性 Drag方法
29.10.2020
12
按钮并移动鼠标指针 的操作为拖动，释放按钮的操作为放下。 DragDrop在将控件拖动到指定对象上时触发 DragOver在对象上发生拖动操作时触发
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
图片框、文本框、滚动条以及与文件有关的
控件。
• 语句格式：
Private Sub Text1_KeyPress ( KeyAscii As Integer)
…
End Sub
• 应用举例
按键的ASCII码值
Example 8.1：在窗体上画一个文本框，然后编写程 序。程序运行后，如果按下键盘上的A、B、C、D键，则在 文本框中显示E、F、D、H。
… End Sub
• 参数说明： - KeyCode：按键的键位值。例如，当按下“a”时， KeyAscii值为97，KeyCode值为65。 - Shift：Shift表示3个转换键的状态，这3个键是Ctrl、
.
Alt以及Shift键，它们分别用3位二进制数表示，即如下所
示：
｛ Shift =
001，即1，按下Shift键 010，即2，按下Ctrl键
错误，在MouseDown中，不能对Button进行累加。
MouseMove：If Button=3 Then “同时按下左、右两键”
正确，在MouseMove中，可以对Button进行累加。
MouseMove：If (Button And 3)=3 Then “同时按下左、右两键”
正确，两种情况，同时按左右键或三个键都按下。
.
• 应用举例 Example 8.4：编写程序，在窗体上画圆，要求：按
着右键移动鼠标，则可以画圆；否则不能画圆。
.
… End Sub
其中，参数的含义同KeyDown事件过程。 • 应用举例
Example 8.3：演示KeyUp事件过程。
.
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode Case &H70 Print “松开F1键” Case &H71 Print “松开F2键” Case &H72 Print “松开F3键”
100，即4，按下Alt键
当然，Shift值可以由以上3种值组合而成，表示同时 按下多个键，例如，如同时按下ctrl和shift键，则 Shift=1+2，即3。 • 应用举例
Example 8.2：编写一个程序，当同时按下Alt、Shift 和F6键时，在窗体上显示“再见”，并终止程序的运行。
.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End Sub
.
8.1.2 KeyDown事件过程
• 触发时刻：按下键盘上的某个键时，触发KeyDown。与 KeyPress不同，KeyDown将返回的是键盘的直接状态。 • 语句格式：
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
… End Sub
• 松开鼠标键事件过程
Sub Form_MouseUp (Button As Integer, shift As Integer, x As Single, y As Single)
… End Sub
.
• 移动鼠标键事件过程
Sub Form_MouseMove (Button As Integer, Shift As
100，即4，按下鼠标中间键
.
需要注意的是，在MouseDown和MouseUp中， Button值不能进行求和，即Button值只能是3个值中的某 一个，它不能反映是否同时按下了鼠标上的多个键；对于 MouseMove来说，可以通过Button参数判断按下一个 或同时按下多个键。
MouseDown：If Button=3 Then “同时按下左、右两键”
.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii Case 65, 66, 68 KeyAscii = KeyAscii + 4 Case 67 KeyAscii = KeyAscii + 1
End Select
End Select
End Sub
.
8.2 鼠标事件过程
在以前的例子中曾多次使用鼠标事件，即单击（Click） 事件，实际上，除了常用的Click事件过程外，Visual Basic还提供了以下3个鼠标事件过程： • 按下鼠标键事件过程
Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
Integer, x As Single, y As Single)
…
End Sub
• 参数说明：
- x, y：鼠标光标当前的位置；
- Shift：同键盘事件过程中的Shift参数含义；
- Button：被按下的鼠标键，含义如下：
｛ Button =
001，即1，按下鼠标左键 010，即2，按下鼠标右键
第9章 键盘与鼠标事件
章节分布
1 键盘事件
2 鼠标事件
.
8.1 键盘事件
KeyPress事件过程 KeyDown事件过程
KeyUp事件过程
键盘事件
.
8.1.1 KeyPress事件过程
• 触发时刻：当按下键盘上某个键时，将触发KeyPr框、命令按钮、列表框、
If KeyCode = &H75 And Shift = 5 Then Print "再见" End
End If End Sub
.
8.1.3 KeyUp事件过程
• 触发时刻：当松开键盘上的某个键时，触发KeyUp； • 语句格式：
Private Sub Text1_KeyUp (KeyCode As Integer, Shift As Integer)