第10章---VB键盘与鼠标事件过程.ppt

第十章键盘与鼠标事件过程**第一节KeyPress事件第二节KeyDown和KeyUp事件第三节鼠标事件第四节鼠标光标的形状第五节拖放第一节KeyPress事件当压下键盘上的某个键时，将发生KeyPress事件。注意：当一个控件或窗体拥有输入焦点时,该控件或窗体将接收从键盘上输入的信息。KeyPress事件中的参数IndexAsInteger只用于控件组；KeyAsciiAsInteger用于单个控件。利用KeyPress事件可以对输入的值进行限制。用KeyPress可以捕捉击键动作。在默认情况下，控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事件时，总是先激活控件的键盘事件。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii48OrKeyAscii57ThenBeepKeyAscii=0EndIfEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPrintText1.TextEndIfKeyAscii=0‘避免输入的字符在文本框中回显EndSub例10.1编写口令程序。用文本框的PassWord属性编写过口令程序，下面的口令程序是用KeyPress事件编写的。第二节KeyDown和KeyUp事件当按下键盘上的某个键时，将发生KeyDown事件；而当松开某个键时，将发生KeyUp事件。KeyDown和KeyUp事件的参数有两种形式，IndexAsInteger只用于控件组；KeyCodeAsInteger，ShiftAsInteger用于单个控件。1.KeyCode按键的实际的ASCII码。该码以“键”为准，而不是以“字符”为准。说明：大小写字母用同一个键，它们的KeyCode相同(使用大写字母的ASCII码)，但大键盘上的数字键与数字键盘上相同的数字键的KeyCode是不一样的。对于有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码。2.Shift转换键。它指的是3个转换键的状态，包括Shift、Ctrl和Alt，这3个键分别以二进制方式表示，每个键用3位，即Shift键为001，Ctrl键为010，Alt键为100。H31H61“1”(数字键)H31H31“1”(大键盘)H25H35“%”H35H35“5”H62H42“b”H42H42“B”H61H41“a”H41H41“A”KeyAsciiKeyCode键（字符）利用逻辑符And可以判断是否按下了某个转换键。3个符号常量：ConstShift=1ConstCtrl=2ConstAlt=4如果ShiftAndShift0则按下了Shift键如果ShiftAndCtrl0则按下了Ctrl键如果ShiftAndAlt0则按下了Alt键对于某个对象来说，当发生某个键盘事件时，只要通过传送KeyCode和Shift参数调用键盘处理程序就可以了。PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)ConstAlt=4ConstKey_F2=H71ShiftDown%=(ShiftAndShift)0AltDown%=(ShiftAndAlt)0F2Down%=(KeyCode=Key_F2)IfAltDown%AndF2Down%ThenText1.Text=AAAAAAEndIfEndSub例10.2编写一个程序，当按下键盘上的某个键时，输出该键的KeyCode码。例10.3编写程序，演示KeyDown和KeyUp的功能。例10.4编写程序，当按下转换键和功能键时，输出相