可视化程序设计vb 键盘和鼠标事件

《可视化程序设计vb 键盘和鼠标事件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、键盘和鼠标事件当用户按下或松开键盘上的某个键时触发的事件是键盘事件；当用户单击、双击或拖动鼠标时，触发的事件是鼠标事件。常用的与键盘有关的事件:KeyDown事件：按键按下时触发KeyPress事件：按键按下时触发KeyUp事件：按键松开时触发按键按下时先触发KeyDown事件，后触发KeyPress事件KeyUp事件触发在KeyPress事件之后键盘事件KeyPress事件中得到的是按键对应的字符的ASCII码(KeyAscii)KeyUp,KeyDown事件中得到的是按键对应的键号(KeyCode)，键盘104个键都对应着唯一的键号。对象的KeyPres

2、s事件过程的一般格式为：PrivatSubObject_KeyPress(KeyAsciiAsInteger)语句块EndSubKeyPress事件如果对象是控件数组中的一个，则KeyPress格式变为：PrivateSubObject_KeyPress(IndexAsInteger,KeyAsciiAsInteger)语句块EndSubIndex代表控件数组中的索引值。例如：利用KeyPress事件对键盘输入的值取舍。程序运行后要求输入大写字母，如果输入的是其它字符就响铃报警，设计界面如下图：代码如下：PrivateSubTxtUCase_KeyPress

3、(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>90ThenBeepKeyAscii=0‘为空操作，不满足条件的字符在文本框中不回显EndIfEndSubDimPWordAsString'口令DimTryCountAsInteger'重输次数PrivateSubForm_Load()PWord=""TryCount=0EndSub例：利用KeyPress事件实现口令的验证,口令设定为“admin”。PrivateSubTxtPWD_KeyPress(KeyAsciiAsInteger)IfKeyAscii<>13Then

4、‘如果按键不是回车键IfLen(TxtPWD.Text)+1>5ThenBeepKeyAscii=0ElsePWord=PWord&Chr(KeyAscii)KeyAscii=42'42是"*"的ASCII码EndIfElse‘如果按键是回车键IfPWord=“admin"ThenMsgBox"口令正确，欢迎使用!",vbOKOnly,"提示"UnloadMeElseTryCount=TryCount+1IfTryCount<3ThenMsgBox"口令错误，请重新输入!",vbOKOnly+vbExclamation,"警告"TxtPWD.Text=""P

5、Word=""ElseMsgBox"错误口令超过三次，"&vbCrLf&"按OK退出程序!",vbOKOnly+vbExclamation,"警告"UnloadMeEndIfEndIfEndIfEndSubKeyDown和KeyUp事件KeyDown和KeyUp事件中返回的是KeyCode(键号)，同一个键上的两个字符，KeyCode是一样的，可通过Shift参数来确定上档键的状态。对象的KeyDown和KeyUp事件过程的一般格式为：PrivateSubObject_KeyDown(KeyCodeAsInteger,ShiftAsInteger)语句块En

6、dSubPrivateSubObject_KeyUp(KeyCodeAsInteger,ShiftAsInteger)语句块EndSub如果对象为控件数组时，还会有一个参数(Index),代表控件数组中的索引值。说明：①参数KeyCode是按键的键号，大、小写字母的键号相同，为大写字母的ASCII码值.②不能显示的功能键和转换键盘，则只会触发KeyDown事件，不会触发KeyPress事件③Shift是三个转换键的状态，包括Alt、Ctrl和Shift，这三个转换键可以只按下任意一个，也可以同时按下任意两个，还可以三个同时全都按下，这样就可以出现8种状态，下

7、表列出了这8个状态以及参数Shift的值。Shift参数值十进制数二进制数转换键状态0000没有按下转换键1001只按下Shift键2010只按下Ctrl键4100只按下Alt键3011同时按下Shift和Ctrl键5101同时按下Shift和Alt键6110同时按下Ctrl和Alt键7111三个转换键全都按下注意同时按下多个时shift的值是按下单个值的相加说明：④大部分的按键在VB中都定义了常量，例如F1键的常量是vbKeyF1，Tab键的常量是vbKeyTab，Home键的常量vbKeyHome.这些常量可以代替keycode的值在程序中直接使用例1：

8、获得键号值的小程序：PrivateSubForm_K