第 十八 讲

一鼠标器

MouseDown、MouseUp和MouseMove事件

1.定义：

鼠标事件是由用户操作鼠标而引发的能被VB中的各种对象识别的事件。

2.触发条件：

将鼠标置于对象上时，鼠标任一键被按下时，则触发鼠标按下事件Mousedown;；当释放鼠标按键时，则触发产生鼠标的释放事件Mouseup。鼠标指针在对象区域内移动时产生Mousemove事件。

3.事件过程格式：

Private sub 对象名_Mousedown(Button as integer,Shift as integer,X as single,Y as single)

Private sub 对象名_Mouseup(Button as integer,Shift as integer,X as single,Y as single)

Private sub 对象名_Mousemove(Button as integer,Shift as integer,X as single,Y as single)

说明：

（1）Button被用户按下或释放的鼠标器按钮的值。

（2）Shift 是否按下 Shift 、 Ctrl 、 Alt 等三个键的状态值。

（3）X和Y当前鼠标的位置，采用ScaleMode属性指定的位置。

（4）详细的状态值如下：

Shift值键盘按键的状态

• Shift 键被按下
• Ctrl 键被按下
• Alt 键被按下

Button值鼠标按键的状态

• 鼠标的左键被按下
• 鼠标的右键被按下

4鼠标的中间键被按下

例1 显示鼠标器指针所指定的位置。

用两个文本框显示鼠标器指针所指的位置，它们的名称分别为txtX和txtY。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

txtX.Text = X

txtY.Text = Y

End Sub

例2 设计一个最简单的画图程序。

程序运行时，按下鼠标右键画圆，按下鼠标左键移动时画线。

Dim drawstate As Boolean

Dim prex As Single

Dim prey As Single

Private Sub Form_Load()

'将drawstate初始化为False

drawstate = False

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

'当鼠标左键被按下时，把drawstate设为True，表示开始画线

drawstate = True '设置画图状态

MousePointer = vbCustom '鼠标指针使用用户指定的样式

'装入图标IE_B.ico作为鼠标指针

MouseIcon = LoadPicture("IE_B.ico")

'Prex和Prey保存线条的起点

prex = X

prey = Y

End If

If Button = 2 Then

'当鼠标右键被按下时，画一个直径为280的圆

Circle (X, Y), 280

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'当鼠标移动时，如果处于画线状态，则用Line方法在（prex,prey）与(x,y)之间画一条直线'

If drawstate = True Then

Line (prex, prey)-(X, Y)

prex = X

prey = Y

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

MousePointer = vbDefault '鼠标指针恢复原样

drawstate = False '当鼠标左键被释放时，解除画线状态

End If

End Sub

例3 鼠标移动实例

二 键盘

（一） KeyDown事件、KeyUp事件

1.定义：当一个对象具有焦点，用户按下或松开一个键盘时发生的事件。

2.语法：

Sub object_KeyDown(Keycode As Integer,shift As integer)
Sub object_KeyUp(Keycode As Integer,shift As integer)
说明：

keycode表示一个键的代码；而Shift则表示在该事件发生时反应SHIFT、CTRL和ALT键状态的一个整数。

shift参数的设置值如下表：

 shift参数是一个位域，它用最少的位反应SHIFT(0位)、CTRL(1位)和ALT(2位)的状态，我们可以通过对某些位的设置来指明有哪些键被按下，例如：同时按下SHIFT和CTRL键，则shift的值为3。
KeyDown和KeyUp事件提供了最低级的键盘响应，它可以检测KeyPress事件无法检测到的下列击键。 

·SHIFT、CTRL和ALT键的组合；
·箭头键、PAGEUP和PAGEDOWN键；
·区分数值小键盘的数字键与打字大键盘的数值键盘等。
附：键码常数

A 键到 Z 键

0 键到 9 键

数字小键盘上的键

功能键

例4 下面的事件过程处理在文本框Text1种使用F1与Alt、Shift和Ctrl三个组合键组合使用时的事件。

（二） KeyPress事件

1.定义：

当用户按下或松开一个键时发生该事件

2.语法：

Sub object_KeyPress(keyascii As Integer)
说明：keyascii返回一个标准数字ANSI键代码的整数，当keyascii的值为0时可以取消点击键盘的行为。
KeyPaess事件过程在载取输入的击键时是非常有用的，它可以测试击键的有效性、限制字符输入或在输入时对其进行格式化处理。改变keyascii的值可以改变所显示的字符。
KeyPress事件不显示键盘的物理状态，只传递一个字符它将每个字符的大、小写形式作为不同的键代码，即作为两种不同的字符。
使用Chr(Keyascii)函数可以将Keyascii参数转变为一个字符；使用Keyascii=Asc(char)表达式可以将一个字符转变为ANSI数字。

例5

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

Beep

KeyAscii = 0

End If

End Sub

复习前面所学知识：

1. 作业

2. 复习命令按钮、单选钮和复选框的使用方法及加载图形的方法