VB程序设计第2版第9章讲义教材.ppt

第9章
常用内部控件
本章要点:
控件的公共属性
鼠标和键盘事件
常用内部控件
动画控件和多媒体控件
1
控件的公共属性
1. Name属性
Name属性用于标识窗体、控件、或数据访问对象的名称。Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
……
End Sub
（Button 、Shift、X和Y参数的作用同前）
注意：当鼠标指针在对象上移动时，并不是经过每个像素都会产生MouseMove事件，而是按每秒一定的次数生成MouseMove事件。由于应用程序能在短时间内识别大量的MouseMove事件，因此，不应在MouseMove事件过程中编写需要大量计算时间的程序。
10
【例9-2】在窗体上移动鼠标时，将当前的鼠标位置显示在文本框中。如下图：
窗体的MouseMove事件过程如下：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
= X : = Y
End Sub
Text1
Text2
11
键盘事件
1．KeyPress事件
当用户按下并释放键盘上一个会产生ASCII码的按键时产生KeyPress事件。如按下数字键、字母键、Tab、Enter、BackSpace、Esc等都会产生KeyPress事件。
例如，某文本框Text1的KeyPress事件过程如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
……
End Sub
KeyAscii参数：与按键对应的ASCII码值。
12
注意：
对于同一个字母的按键，其大、小写形式返回不同的KeyAscii值。
只有当对象具有焦点时才可以接收KeyPress事件。
一个窗体仅在它没有可视和有效的控件或KeyPreview属性被设置为True时才能接收该事件。
使用文本框的KeyPress事件可以及时对输入的内容进行检查，以保证输入内容的有效性。
13
【例9-3】对从文本框Text1输入的成绩进行有效性验证，如果输入的字符不是阿拉伯数字，则响铃，并消除该字符。
分析：可以在Text1的KeyPress事件过程中对参数KeyAscii的值进行判断。已知0～9的ASCII码为48～57，所以当KeyAscii的值不在48～57的范围内时，需要响铃（用Beep语句），并消除该字符（将KeyAscii设置为0）。
代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
Beep ' 响铃
KeyAscii = 0 '消除该字符
End If
End Sub
14
2．KeyDown、KeyUp事件
KeyDown事件: 在对象有焦点时按下按键时发生；
KeyUp事件: 在对象具有焦点时松开按键时发生。
例如，某文本框Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
……
End Sub
KeyCode: 返回所操作键的代码。在键盘上只要按的是同一个键，则返回的KeyCode值相同。例如，对于同一个字母按键，不管是大写还是小写形式，所返回的KeyCode值是相同的。VB为KeyCode值定义了符号常量，如vbKeyF1(F1键) 或 vbKeyHome(Home键)。
Shift: 根据在按键时是否按下Shift、Ctrl或Alt键返回一个整数。见P171表9-2。
15
【例9-3】在窗体上用Shape控件画一个圆形，用键盘上的“←”、“↑”、“→”、“↓”方向键移动该图形。
分析：键盘上的方向键“←”、“↑”、“→”、“↓”的KeyCode值分别为37、38、39、40，也可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常量来代替。在窗体的KeyDown事件过程中根据所返回的KeyCode值实现对图形的移动。
Shape1
16