键盘与鼠标操作.docVIP

第八章 键盘与鼠标操作 (2w) 程序在运行过程中，经常需要知道用户对键盘和鼠标的具体操作，例如用户按下键盘上的“A”键时是想输入字符“A”还是输入“a”呢，当用户利用鼠标选中“删除”时是想彻底删除还是想放入回收站呢等等，以便于根据不同的情况，执行不同的具体操作。为此Visual Basic专门定义了和键盘与鼠标有关的事件和方法。 8-1键盘操作 当我们敲击一下键盘上的某个按键时，将会先后触发对应对象的KeyDown、KeyPress、(对于文本框之类的对象还会触发Change)、KeyUp等一系列事件。根据不同的具体应用，我们可以选择不同的事件进行编程。 需要说明的是，对键盘的某个按键进行操作时，触发的是目前具有输入焦点(Focus)对象的事件。一般情况下窗体对象不响应这些事件，除非满足下面几个条件： 目前窗体上没有添加任何对象，则窗体接收键盘事件。 目前窗体上有对象，但是它们属于下面两种情况： 这类对象不具有接收焦点的能力，例如：标签、框架、形状(Shape)、Timer、Image等等 这类对象本来可以接收焦点(例如：文本框)，但目前处于Disabled状态。 窗体的KeyPreview属性为True。所谓KeyPreview的属性为True，就是说无论在窗体内的什么控件内利用键盘输入，都需要事先经过窗体进行检查。 其中，前两种情况下只触发窗体的KeyDown、KeyPress、KeyUp事件，第三种情况下将先后触发窗体的KeyDown、控件的KeyDown、窗体的KeyPress、控件的KeyPress、窗体的KeyUp、控件的KeyUp事件。 8-1-1 KeyPress事件 KeyPress事件过程的的形式有两种： Private Sub 对象名_KeyPress(KeyAscii As Integer) 用于非控件数组 Private Sub 对象名_KeyPress(Index As Integer, KeyAscii As Integer) 用于控件数组 其中：KeyAscii的值在本过程中由系统自动提供，就是用户输入字符的ASCII值。 例如：正常情况下我们按下键盘上的“A”键，则KeyAscii的值为97，表示用户想输入字符“a”；当Caps Lock键锁定为大写或同时按下Shift键时，KeyAscii的值为65，表示用户想输入字符“A”。 说明： 并不是按下键盘上的任意一个键都会引发KeyPress事件，只有那些会产生ASCII的按键(例如：数字键、大小写字母键、回车、空格等)才会触发KeyPress事件。对于那些不能产生ASCII的按键(例如：方向键←↑→↓)则不会触发KeyPress事件。 因为KeyPress事件在Change事件之前触发，因此如果在KeyPress事件中改变了KeyAscii的值，那么在控件中回显的字符将是改变后的结果。例如下面代码的功能就是无论输入的是大写还是小写，在Text1内都强制显示为小写字母： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 65 And KeyAscii = 90 Then KeyAscii = KeyAscii + 32 End If End Sub 当窗体的KeyPreview属性为True时，在窗体的KeyPress事件里如果改变了KeyAscii的值，那么控件的KeyPress事件里的KeyAscii的值也会跟着改变，当然回显的字符也就被改变了。例如下面的代码就是强制用户在成绩录入窗体里只能输入数值，如果输入非数值字符则鸣笛报错，如图8-1所示： Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 Beep End If End Sub 8-1-2 KeyUp事件和KeyDown事件 当焦点在某个对象上时，按下键盘上的某个键就会触发KeyDown事件，释放某个按键时就会触发KeyUp事件。 根据该控件是否为控件数组的不同，KeyDown和KeyUp事件过程也存在两种形式： Private Sub 对象名_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub 对象名_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub 对象名_KeyDown(Index As Integer, KeyCode As Integ