键盘与鼠标事件ppt课件
合集下载
键盘与鼠标事件过程.精选PPT
Print Chr(KeyAscii);
End If
演示1
End Sub
常用键盘码与ASCII码的对应关系
按键
键码常数
ASCII码
BackSpace
vbKeyBack
8
Enter
vbKeyReturn
13
Space
vbKeySpace
33
Tab
vbKeyTab
9
Esc
vbKeyEscape
27
A~Z
解析：KeyPress事件带有一个参数，这个参数有两种形式。 第一种形式是Index As Integer，只用于控件数组；第二种 形式是KeyAscii As Integer，用于单个控件。参数KeyAscii 是一个预定义的变量，执行KeyPress事件过程时，KeyAscii 是所按键的ASCII码，并且该参数不能省略。
控件名.SetFocus
实现控件焦点的两种方法
（2）利用Tab控制键
VB所有可被设置焦点的控件均具有一个TabIndex属 性。默认情况下，在窗体上创建的第一个控件的 TabIndex的值为0，第二个控件的TabIndex的值为1，以 此类推。可按预先设计好的顺序，改变控件的TabIndex 的值，这样就可以在程序运行期间，通过Tab键使焦点 按TabIndex的值从小到大的顺序进行切换。
如果不希望使某些控件获得焦点，就可以把该控件 的TabStop属性值设置为False。
如果控件不可视（Visible=False）或不可用 （Enabled=False），也不可能获得焦点了。
2. KeyPress事件的格式和应用
以Text1控件为例:
(1)用于单个控件 Private sub Text1_KeyPress(KeyAscii As Integer)
第10章键盘与鼠标事件与图形处理等 PPT资料共38页
10:56
图形处理
1.Visual Basic的坐标系统
(2)建立自己的坐标系
• 利用到窗体的Scale系列属性 ScaleLeft属性：确定对象左边的水平坐标； ScaleTop属性：确定对象顶端的垂直坐标； ScaleWidth属性：确定对象内部水平的单元数目； ScaleHeight属性：确定对象内部垂直的单元数目。 如：ScaleLeft = -50 : ScaleTop = 50
可读系统由控件的ScaleMode属性设置的。ScaleMode的值有：
ScaleMode值
意义
0
用户自定义
1
点素（Twip 即“特维”，缺省刻度）
2
点（Point）
3
象素（Pixel，这与屏幕分辨率有关）
4
字符（Character）
5
英寸（er）
7
厘米（Centimeter）
2.KeyPress 只能捕获单个字符。KeyDown 和KeyUp 可以 捕获组合键。
3.KeyPress 可以捕获单个字符的大小写 4.KeyDown和KeyUp 对于单个字符捕获的KeyValue 都是
一个值，也就是不能判断单个字符的大小写。 5.KeyPress 不区分小键盘和主键盘的数字字符。
第10章 键盘与鼠标事件
1 键盘事件 2 鼠标事件 3 图形处理
Visual Basic 程序设计
鼠标，键盘事件过程
VB应用程序能够响应多种鼠标事件和键盘事件. 利用键盘事件可以编程响应多种键盘操作，也可以解 释、处理ASCⅡ字符。 可用鼠标或键盘管理长时间的后台任务处理，这就使 用户得以向其他应用程序进行切换或中断后台任务处 理。
(1) 当前坐标
图形处理
1.Visual Basic的坐标系统
(2)建立自己的坐标系
• 利用到窗体的Scale系列属性 ScaleLeft属性：确定对象左边的水平坐标； ScaleTop属性：确定对象顶端的垂直坐标； ScaleWidth属性：确定对象内部水平的单元数目； ScaleHeight属性：确定对象内部垂直的单元数目。 如：ScaleLeft = -50 : ScaleTop = 50
可读系统由控件的ScaleMode属性设置的。ScaleMode的值有：
ScaleMode值
意义
0
用户自定义
1
点素（Twip 即“特维”，缺省刻度）
2
点（Point）
3
象素（Pixel，这与屏幕分辨率有关）
4
字符（Character）
5
英寸（er）
7
厘米（Centimeter）
2.KeyPress 只能捕获单个字符。KeyDown 和KeyUp 可以 捕获组合键。
3.KeyPress 可以捕获单个字符的大小写 4.KeyDown和KeyUp 对于单个字符捕获的KeyValue 都是
一个值，也就是不能判断单个字符的大小写。 5.KeyPress 不区分小键盘和主键盘的数字字符。
第10章 键盘与鼠标事件
1 键盘事件 2 鼠标事件 3 图形处理
Visual Basic 程序设计
鼠标，键盘事件过程
VB应用程序能够响应多种鼠标事件和键盘事件. 利用键盘事件可以编程响应多种键盘操作，也可以解 释、处理ASCⅡ字符。 可用鼠标或键盘管理长时间的后台任务处理，这就使 用户得以向其他应用程序进行切换或中断后台任务处 理。
(1) 当前坐标
chapter5 键盘鼠标事件和数据的输入输出PPT课件
9
第五章
5.2 鼠标事件
大多数控件能够识别鼠标的MouseMove、MouseDown
和MouseUp事件，通过响应这些鼠标事件，能在应用程序
对鼠标位置及状态的变化作出响应操作。
1. MouseMove 每当鼠标指针移动到屏幕新位置时发生
2. MouseDown 按下任意鼠标键按钮时发生
3. MouseUp
Sub Object _MouseDown（Button As Integer，Shift As Integer，_ X As Single，Y As Single）
Sub Object _MouseUp（Button As Integer，Shift As Integer，_ X As Single，Y As Single）
3．通过Shift参数表示在Button参数指定的按钮被按下或 者被松开的情况下键盘的Shift、Ctrl和Alt键的状态。
参数Shift值
参数（Shift）
值
描述
vbShiftMask
1 SHIFT 键被按下
vbCtrlMask
ቤተ መጻሕፍቲ ባይዱ2 CTRL 键被按下
vbAltMask
4 ALT 键被按下
12
第五章
其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大 多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮。
11
第五章
参数Button值
参数（Button） 值 说明
vbLeftButton
1 左按钮被按下
vbRightButton
2 右按钮被按下
vbMiddleButton 4 中间按钮被按下
Line -(X, Y) '移动鼠标时，会在窗体中的上次位置与当前鼠标指针之 间画线 End Sub
第五章
5.2 鼠标事件
大多数控件能够识别鼠标的MouseMove、MouseDown
和MouseUp事件，通过响应这些鼠标事件，能在应用程序
对鼠标位置及状态的变化作出响应操作。
1. MouseMove 每当鼠标指针移动到屏幕新位置时发生
2. MouseDown 按下任意鼠标键按钮时发生
3. MouseUp
Sub Object _MouseDown（Button As Integer，Shift As Integer，_ X As Single，Y As Single）
Sub Object _MouseUp（Button As Integer，Shift As Integer，_ X As Single，Y As Single）
3．通过Shift参数表示在Button参数指定的按钮被按下或 者被松开的情况下键盘的Shift、Ctrl和Alt键的状态。
参数Shift值
参数（Shift）
值
描述
vbShiftMask
1 SHIFT 键被按下
vbCtrlMask
ቤተ መጻሕፍቲ ባይዱ2 CTRL 键被按下
vbAltMask
4 ALT 键被按下
12
第五章
其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大 多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮。
11
第五章
参数Button值
参数（Button） 值 说明
vbLeftButton
1 左按钮被按下
vbRightButton
2 右按钮被按下
vbMiddleButton 4 中间按钮被按下
Line -(X, Y) '移动鼠标时，会在窗体中的上次位置与当前鼠标指针之 间画线 End Sub
《键盘与鼠标》课件2
特殊功能的鼠标
轨迹球鼠标
将滚轮替换为可旋转 的球体，适合需要大 量滚动操作的用户。
触控鼠标
结合了触摸板和鼠标 的功能，支持手势控
制和自 由移动，适用于不同
使用场景。
游戏鼠标
专为游戏设计，具有 高精度传感器、自定 义按键和优化的握持
体验。
04
键盘与鼠标的选购指南
键盘与鼠标的材质选择
01
塑料
价格实惠，重量轻，但耐用性一般。
02
金属
质感好，耐用，但重量较大。
键盘与鼠标的材质选择
木质
外观典雅，但价格较高。
塑料
轻便，价格实惠，但手感一般。
键盘与鼠标的材质选择
金属
质感好，耐用，但重量较大。
橡胶
防滑，手感好，但容易沾染污垢。
键盘与鼠标的性能参数
键程
影响键盘的敲击感和声音。
按键布局
不同的布局适应不同的使用习惯。
键盘与鼠标的起源与发展
起源
键盘起源于打字机，而鼠标则起源于图形界面操 作。
发展
随着计算机技术的不断发展，键盘和鼠标也在不 断改进和升级，出现了机械键盘、静音键盘、无 线鼠标等新型产品。
键盘与鼠标的分类
键盘分类
按照按键数量可以分为全尺寸键盘、迷你键盘和便携式键盘等；按照连接方式可以分为有线键 盘和无线键盘等。
鼠标分类
按照功能可以分为普通鼠标和多功能鼠标等；按照连接方式可以分为有线鼠标和无线鼠标等。
02
键盘的结构与功能
键盘的布局
01 常规键盘布局
QWERTY布局是最常见的键盘布局，字母按照一 定的顺序排列，便于打字速度的提高。
02 人体工程学键盘布局
为了适应人体结构，提高使用舒适度，有些键盘 采用人体工程学设计，如曲线形、斜坡形等。
《鼠标和键盘》课件
随着计算机技术的不断进步，鼠 标的设计和功能也在不断改进， 从机械式鼠标到光电鼠标，再到 现在的多功能鼠标和触控鼠标。
键盘的发明和发展
键盘的发明
键盘最早的原型可以追溯到1832年 的打字机键盘。
键盘的发展
随着计算机的普及，键盘的设计和布 局也在不断改进，出现了各种不同类 型和功能的键盘，如机械键盘、静音 键盘等。
《鼠标和键盘》ppt课件
目录 Contents
• 鼠标和键盘的简介 • 鼠标和键盘的工作原理 • 鼠标和键盘的使用技巧 • 鼠标和键盘的维护与保养 • 鼠标和键盘的发展趋势
01
鼠标和键盘的简介
鼠标的发明和发展
鼠标的发明
鼠标的原型最早出现在1968年， 由美国科学家道格拉斯·恩格尔巴 特发明。
鼠标的发展
无线鼠标和键盘的发展趋势还包括更 加智能化的设计，例如支持多设备连 接、自动休眠唤醒等，提高了用户的 使用体验。
随着无线技术的不断进步，无线鼠标 和键盘的传输速度和稳定性也在不断 提高，满足了用户对于高效、稳定和 便捷的需求。
多功能鼠标和键盘的发展趋势
多功能鼠标和键盘集成了多种功能于一体，例如多媒体控制、语音识别等，为用户 提供了更加便捷的操作方式。
鼠标指针的设置
讲解如何调整鼠标指针的速度和大小，以便 更好地适应不同用户的需求。
鼠标与键盘的配合使用
讲解如何通过键盘快捷键与鼠标的配合，提 高工作效率。
键盘的使用技巧
01
02
03
04
键盘布局
介绍标准键盘的布局，包括字 母、数字、符号区域等。
常用快捷键
列举并解释一些常用的键盘快 捷键，如Ctrl+C、Ctrl+V等
无线接口
键盘的发明和发展
键盘的发明
键盘最早的原型可以追溯到1832年 的打字机键盘。
键盘的发展
随着计算机的普及，键盘的设计和布 局也在不断改进，出现了各种不同类 型和功能的键盘，如机械键盘、静音 键盘等。
《鼠标和键盘》ppt课件
目录 Contents
• 鼠标和键盘的简介 • 鼠标和键盘的工作原理 • 鼠标和键盘的使用技巧 • 鼠标和键盘的维护与保养 • 鼠标和键盘的发展趋势
01
鼠标和键盘的简介
鼠标的发明和发展
鼠标的发明
鼠标的原型最早出现在1968年， 由美国科学家道格拉斯·恩格尔巴 特发明。
鼠标的发展
无线鼠标和键盘的发展趋势还包括更 加智能化的设计，例如支持多设备连 接、自动休眠唤醒等，提高了用户的 使用体验。
随着无线技术的不断进步，无线鼠标 和键盘的传输速度和稳定性也在不断 提高，满足了用户对于高效、稳定和 便捷的需求。
多功能鼠标和键盘的发展趋势
多功能鼠标和键盘集成了多种功能于一体，例如多媒体控制、语音识别等，为用户 提供了更加便捷的操作方式。
鼠标指针的设置
讲解如何调整鼠标指针的速度和大小，以便 更好地适应不同用户的需求。
鼠标与键盘的配合使用
讲解如何通过键盘快捷键与鼠标的配合，提 高工作效率。
键盘的使用技巧
01
02
03
04
键盘布局
介绍标准键盘的布局，包括字 母、数字、符号区域等。
常用快捷键
列举并解释一些常用的键盘快 捷键，如Ctrl+C、Ctrl+V等
无线接口
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第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
Single)
As Integer, x As Single, y As
11
• 移动鼠标键事件过程
Sub Form_MouseMove (Button As Integer, Shift As
Case 65, 66, 68
KeyAscii = KeyAscii + 4
Case 67
KeyAscii = KeyAscii + 1
5
8.1.2 KeyDown事件过程
• 触发时刻：按下键盘上的某个键时，触发 KeyDown。与KeyPress不同，KeyDown将 返回的是键盘的直接状态。
当然，Shift值可以由以上3种值组合而 成，表示同时按下多个键，例如，如同时 按下ctrl和shift键，则Shift=1+2，即3。 7
Private Sub Form_KeyDown(KeyCode As Integer,
Integer)
Shift As
If KeyCode = &H75 And Shift = 5 Then
• 语句格式：
• Private Sub Text1_KeyDown (KeyCode As Integer,
•
Integer)
Shift As
•…
6
｛ Alt以及Shift键，00它1，们即分1，别按下用S3h位ift键二进制数表 示，即Sh如ift下=所示01：0，即2，按下Ctrl键 100，即4，按下Alt键
•
图片框、文本框、滚动条以及
与文件有关的
按键的ASCII码值
•
控件。
• 语句格式：
• Private Sub Text1_KeyPress ( KeyAscii As 4
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Print "再见"
End
End If
8
8.1.3 KeyUp事件过程
• 触发时刻：当松开键盘上的某个键时，触 发KeyUp；
• 语句格式：
• Private Sub Text1_KeyUp (KeyCode As Integer,
•
Integer)
Shift As
•…
• End Sub
9
Private Sub Form_KeyUp(KeyCode As Integer,
Integer)
Shift As
Select Case KeyCode
Case &H70
Print “松开F1键”
Case &H71
10
8.2 鼠标事件过程
在以前的例子中曾多次使用鼠标事件，
即单击（Click）事件，实际上，除了常用 的Click事件过程外，Visual Basic还提供了 以下3个鼠标事件过程：
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
Single)
As Integer, x As Single, y As
11
• 移动鼠标键事件过程
Sub Form_MouseMove (Button As Integer, Shift As
Case 65, 66, 68
KeyAscii = KeyAscii + 4
Case 67
KeyAscii = KeyAscii + 1
5
8.1.2 KeyDown事件过程
• 触发时刻：按下键盘上的某个键时，触发 KeyDown。与KeyPress不同，KeyDown将 返回的是键盘的直接状态。
当然，Shift值可以由以上3种值组合而 成，表示同时按下多个键，例如，如同时 按下ctrl和shift键，则Shift=1+2，即3。 7
Private Sub Form_KeyDown(KeyCode As Integer,
Integer)
Shift As
If KeyCode = &H75 And Shift = 5 Then
• 语句格式：
• Private Sub Text1_KeyDown (KeyCode As Integer,
•
Integer)
Shift As
•…
6
｛ Alt以及Shift键，00它1，们即分1，别按下用S3h位ift键二进制数表 示，即Sh如ift下=所示01：0，即2，按下Ctrl键 100，即4，按下Alt键
•
图片框、文本框、滚动条以及
与文件有关的
按键的ASCII码值
•
控件。
• 语句格式：
• Private Sub Text1_KeyPress ( KeyAscii As 4
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Print "再见"
End
End If
8
8.1.3 KeyUp事件过程
• 触发时刻：当松开键盘上的某个键时，触 发KeyUp；
• 语句格式：
• Private Sub Text1_KeyUp (KeyCode As Integer,
•
Integer)
Shift As
•…
• End Sub
9
Private Sub Form_KeyUp(KeyCode As Integer,
Integer)
Shift As
Select Case KeyCode
Case &H70
Print “松开F1键”
Case &H71
10
8.2 鼠标事件过程
在以前的例子中曾多次使用鼠标事件，
即单击（Click）事件，实际上，除了常用 的Click事件过程外，Visual Basic还提供了 以下3个鼠标事件过程：