1.理解鼠标、键盘事件的触发机制.2.掌握鼠标的MouseDown,
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Text1_KeyPress (KeyAscii As Integer)
KeyAscii = Asc(Ucase(Chr(KeyAscii))) End Sub Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
例12.1 通过编程序，在一个文本框（Text1）中限定只能 输入数字、小数点，只能响应BackSpace 键及回车键。
现代教育技术中心
12.1 键盘事件
keycode 参数通过 ASCII 值或键代码常数来识别键。字 母键的键代码与此字母的大写字符的 ASCII 值相同。所以 "A" 和 "a" 的 keycode 都是由 Asc("A") 返回的数值。在下 例中用 KeyDown 事件判断是否按下了 "A" 键：
现代教育技术中心
12.1 键盘事件
2．shift参数 shift 表示是在该事件发生时响应SHIFT、CTRL 和 ALT 键 的状态，它是一个整数。其含义与上一节中 MouseMove 、 MouseDown、MouseUp事件中的shift参数完全相同。 例如：下例是用Shift参数判断是否按下了字母的大写形式。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA And Shift = 1 Then
本章重点： 理解鼠标、键盘事件的触发机制运用
本章难点： 事件驱动的拖放和 OLE 的拖放
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
在Visual Basic中，提供KeyPress、KeyDown、KeyUp三种 键盘事件，窗体和接受键盘输入的控件都识别这三种事件。
现代教育技术中心
12.1.2 KeyDown 和 KeyUp 事件
当一个对象具有焦点时按下（KeyDown） 或松开 ( KeyUp ) 一个键时发生。它们报告键盘本身准确的物理状 态：按下键 (KeyDown) 及松开键 (KeyUp)。 KeyDown和KeyUp事件能够检测其它功能键、编辑键和定 位键。
现代教育技术中心
12.1 键盘事件
KeyPress 事件过程的语法格式是： Sub Object_KeyPress (KeyAscii As Integer) 其中： Object是指窗体或控件对象名，KeyAscii 参数返回对应 于ASCII字符代码的整型数值。 例如，如果希望将文本框中的所有字符都强制转换为大写 字符，则可在输入时使用此事件转换大小写：
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
Private Sub Text1_KeyDown(KeyCode As _ Integer, Shift As Integer) If KeyCode = vbKeyA Then MsgBox "You pressed the A key.“ End if End Sub Private Sub Text1_KeyDown(KeyCode As _ Integer, Shift As Integer) If KeyCode = vbKey1 And shift=1 Then MsgBox "You pressed the ! key.“ End if End Sub Visual Basic程序设计教学课件
现代教育技术中心
12.2 鼠标事件
大多数控件能够识别鼠标的 MouseMove 、 MouseDown 和 MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠 标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生
MouseDown
MouseUp
按下任意鼠标键按钮时发生
MsgBox “你按了大写字母A键."
End if End Sub
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
思考题： 编写一个在文本框（ Text1 ）中操作，能够响应键 盘组合操作的程序，用户所作的每一步操作都将在标签框
（Label1）中显示出相关信息。
Visual Basic程序设计教学课件
KeyUp 和 KeyDown 事件过程的语法格式如下：
Sub Object_KeyDown(KeyCode As Integer, Shift As Integer)
Sub Object_KeyUp(KeyCode As Integer, Shift As Integer) 说明： 1．Keycode 参数表示按下的物理键。上档键字符和下档键 字符也是使用同一键，它们的Keycode值相同。 Visual Basic程序设计教学课件
第12章 键盘与鼠标事件过程
本章要求：
1. 理解鼠标、键盘事件的触发机制。
2. 掌握鼠标的MouseDown， MouseMove， MouseUp 事件中各参数的含义及编程控制。 3. 掌握键盘的KeyDown， KeyPress， KeyUp 事件中各 参数的含义及编程控制 4. 了解事件驱动的拖放和 OLE 的拖放。
KeyPress 按下对应某ASCII 字符的键。
KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键只有获得焦点的对象才能够接 受键盘事件。 12.1.1 KeyPress 事件 在按下与ASCII字符对应的键时将触发KeyPress 事件。
Visual Basic程序设计教学课件
Private Sub Text1_KeyPress (KeyAscii As Integer)
Select Case KeyAscii Case 48 to 57,46,8,13
Case Else KeyAscii=0 End Select End Sub
KeyPress 事件只识别 Enter、Tab和Backspace 键。不能 够检测其它功能键、编辑键和定ຫໍສະໝຸດ Baidu键。 Visual Basic程序设计教学课件
KeyAscii = Asc(Ucase(Chr(KeyAscii))) End Sub Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
例12.1 通过编程序，在一个文本框（Text1）中限定只能 输入数字、小数点，只能响应BackSpace 键及回车键。
现代教育技术中心
12.1 键盘事件
keycode 参数通过 ASCII 值或键代码常数来识别键。字 母键的键代码与此字母的大写字符的 ASCII 值相同。所以 "A" 和 "a" 的 keycode 都是由 Asc("A") 返回的数值。在下 例中用 KeyDown 事件判断是否按下了 "A" 键：
现代教育技术中心
12.1 键盘事件
2．shift参数 shift 表示是在该事件发生时响应SHIFT、CTRL 和 ALT 键 的状态，它是一个整数。其含义与上一节中 MouseMove 、 MouseDown、MouseUp事件中的shift参数完全相同。 例如：下例是用Shift参数判断是否按下了字母的大写形式。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA And Shift = 1 Then
本章重点： 理解鼠标、键盘事件的触发机制运用
本章难点： 事件驱动的拖放和 OLE 的拖放
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
在Visual Basic中，提供KeyPress、KeyDown、KeyUp三种 键盘事件，窗体和接受键盘输入的控件都识别这三种事件。
现代教育技术中心
12.1.2 KeyDown 和 KeyUp 事件
当一个对象具有焦点时按下（KeyDown） 或松开 ( KeyUp ) 一个键时发生。它们报告键盘本身准确的物理状 态：按下键 (KeyDown) 及松开键 (KeyUp)。 KeyDown和KeyUp事件能够检测其它功能键、编辑键和定 位键。
现代教育技术中心
12.1 键盘事件
KeyPress 事件过程的语法格式是： Sub Object_KeyPress (KeyAscii As Integer) 其中： Object是指窗体或控件对象名，KeyAscii 参数返回对应 于ASCII字符代码的整型数值。 例如，如果希望将文本框中的所有字符都强制转换为大写 字符，则可在输入时使用此事件转换大小写：
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
Private Sub Text1_KeyDown(KeyCode As _ Integer, Shift As Integer) If KeyCode = vbKeyA Then MsgBox "You pressed the A key.“ End if End Sub Private Sub Text1_KeyDown(KeyCode As _ Integer, Shift As Integer) If KeyCode = vbKey1 And shift=1 Then MsgBox "You pressed the ! key.“ End if End Sub Visual Basic程序设计教学课件
现代教育技术中心
12.2 鼠标事件
大多数控件能够识别鼠标的 MouseMove 、 MouseDown 和 MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠 标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生
MouseDown
MouseUp
按下任意鼠标键按钮时发生
MsgBox “你按了大写字母A键."
End if End Sub
Visual Basic程序设计教学课件
现代教育技术中心
12.1 键盘事件
思考题： 编写一个在文本框（ Text1 ）中操作，能够响应键 盘组合操作的程序，用户所作的每一步操作都将在标签框
（Label1）中显示出相关信息。
Visual Basic程序设计教学课件
KeyUp 和 KeyDown 事件过程的语法格式如下：
Sub Object_KeyDown(KeyCode As Integer, Shift As Integer)
Sub Object_KeyUp(KeyCode As Integer, Shift As Integer) 说明： 1．Keycode 参数表示按下的物理键。上档键字符和下档键 字符也是使用同一键，它们的Keycode值相同。 Visual Basic程序设计教学课件
第12章 键盘与鼠标事件过程
本章要求：
1. 理解鼠标、键盘事件的触发机制。
2. 掌握鼠标的MouseDown， MouseMove， MouseUp 事件中各参数的含义及编程控制。 3. 掌握键盘的KeyDown， KeyPress， KeyUp 事件中各 参数的含义及编程控制 4. 了解事件驱动的拖放和 OLE 的拖放。
KeyPress 按下对应某ASCII 字符的键。
KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键只有获得焦点的对象才能够接 受键盘事件。 12.1.1 KeyPress 事件 在按下与ASCII字符对应的键时将触发KeyPress 事件。
Visual Basic程序设计教学课件
Private Sub Text1_KeyPress (KeyAscii As Integer)
Select Case KeyAscii Case 48 to 57,46,8,13
Case Else KeyAscii=0 End Select End Sub
KeyPress 事件只识别 Enter、Tab和Backspace 键。不能 够检测其它功能键、编辑键和定ຫໍສະໝຸດ Baidu键。 Visual Basic程序设计教学课件