第9章键盘和鼠标事件.pptVIP

第9章键盘和鼠标事件;第9章键盘和鼠标事件;常用的与键盘有关的事件:

KeyDown事件：按键按下时触发

KeyPress事件：按键按下时触发

KeyUp事件：按键松开时触发

按键按下时先触发KeyDown事件，后触发KeyPress事件

KeyUp事件触发在KeyPress事件之后;;对象的KeyPress事件过程的一般格式为：

PrivatSubObject_KeyPress(KeyAsciiAsInteger)

语句块

EndSub;;例如：利用KeyPress事件对键盘输入的值取舍。程序运行后要求输入大写字母，如果输入的是其它字符就响铃报警，设计界面如下图：;代码如下：;DimPWordAsString口令

DimTryCountAsInteger重输次数

PrivateSubForm_Load()

PWord=

TryCount=0

EndSub;PrivateSubTxtPWD_KeyPress(KeyAsciiAsInteger)

IfKeyAscii13Then‘如果按键不是回车键

IfLen(TxtPWD.Text)+15Then

Beep

KeyAsc