键盘事件

鼠标事件是由鼠标键的单击、双击、移动等操作时发生，键盘事件则是在键盘的某个键按下去时触发。除了鼠标事件外，通常需要对键盘事件进行编程。键盘事件主要有以下几种：

(1)KeyDown：当键盘上某键被按下去时发生。

(2)KeyUp：键盘上的键抬起来时发生。

(3)KeyPree：此事件发生在键盘被按下后和字符被显示出来之前发生。

对于键盘事件，相对来说KeyDown事件和KeyUp事件使用比较少，通常情况下对KeyPress事件编程较多，因为此事件注重键盘被按下的是哪个键

KeyPress事件定义如下：

Private Sub Textl_KeyPress(KeyAscii As Integer)

End Sub

其中，参数KeyAscii被定义为整型变量，表示被按下去键的Ascii码，我们可以通过对变量KeyAscii值的判断来执行一些特殊操作。例如要想实现在文本框中只能输人数字，不接受其它字符，可以编写如下代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then

KeyAscii = O

End If

End Sub

此段代码表示：如果被按下去的键的Ascii码值不在48到57之间(即输入不是数字)，则将KeyAssii值设置为零。从而不进行操作，文本框中并不存在输入的字符。

(4) Change：Change事件在控件的内容发生改变时执行。如：当我们要做一个类似记事本程序的时候，用文本框控件作为内容编辑区，当文本框内容改变而 并未保存时，用户却在此时退出程序，我们希望程序能够给出提示。可以通过定义一个整型变量“IsChang"，当其值为0时表示未存盘，其值为1时表示存 盘了，在文本框控件的change事件中输入如下代码：

“IsChange=0"。在程序退出事件中对IsChange值进行判断，当值为0时就给予提示，否则退出程序。程序代码如下：

Private Sub Textl_Change()

IsChange=0

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If lsChange = 0 Then

MsgBox ("还未存盘,是否存盘"), VbOkCancle, "提示!"

End If

End Sub

此段代码用于程序退出时的判断，Form_QueryUnload事件表示程序退出时所执行的事件。

这里主要介绍了事件处理器，常见的属性与各种事件，在Windows应用程序中，我们经常要用到上面所介绍的属性与事件。