键盘与鼠标事件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

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个鼠标事件过程：