VB键盘与鼠标事件过程

《VB键盘与鼠标事件过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第十章键盘与鼠标事件过程第一节KeyPress事件第二节KeyDown和KeyUp事件第三节　鼠标事件第四节　鼠标光标的形状第五节　拖放第一节KeyPress事件当压下键盘上的某个键时，将发生KeyPress事件。注意：当一个控件或窗体拥有输入焦点时,该控件或窗体将接收从键盘上输入的信息。KeyPress事件中的参数IndexAsInteger只用于控件组；KeyAsciiAsInteger用于单个控件。利用KeyPress事件可以对输入的值进行限制。用KeyPress可以捕捉击键动作。在默认情况下，控件的键盘事件优先于窗

2、体的键盘事件，因此在发生键盘事件时，总是先激活控件的键盘事件。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenBeepKeyAscii=0EndIfEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPrintText1.TextEndIfKeyAscii=0‘避免输入的字符在文本框中回显EndSub例10.1编写口令程序。用文本框的PassWor

3、d属性编写过口令程序，下面的口令程序是用KeyPress事件编写的。第二节KeyDown和KeyUp事件当按下键盘上的某个键时，将发生KeyDown事件；而当松开某个键时，将发生KeyUp事件。KeyDown和KeyUp事件的参数有两种形式，IndexAsInteger只用于控件组；KeyCodeAsInteger，ShiftAsInteger用于单个控件。1.KeyCode按键的实际的ASCII码。该码以“键”为准，而不是以“字符”为准。说明：大小写字母用同一个键，它们的KeyCode相同(使用大写字母的ASCII码)，

4、但大键盘上的数字键与数字键盘上相同的数字键的KeyCode是不一样的。对于有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码。2.Shift转换键。它指的是3个转换键的状态，包括Shift、Ctrl和Alt，这3个键分别以二进制方式表示，每个键用3位，即Shift键为001，Ctrl键为010，Alt键为100。键（字符）KeyCodeKeyAscii“A”&H41&H41“a”&H41&H61“B”&H42&H42“b”&H42&H62“5”&H35&H35“%”&H35&H25“1”(大键盘)&H31&

5、H31“1”(数字键)&H61&H31利用逻辑符And可以判断是否按下了某个转换键。3个符号常量：ConstShift=1ConstCtrl=2ConstAlt=4如果ShiftAndShift>0则按下了Shift键如果ShiftAndCtrl>0则按下了Ctrl键如果ShiftAndAlt>0则按下了Alt键对于某个对象来说，当发生某个键盘事件时，只要通过传送KeyCode和Shift参数调用键盘处理程序就可以了。PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteg

6、er)ConstAlt=4ConstKey_F2=&H71ShiftDown%=(ShiftAndShift)>0AltDown%=(ShiftAndAlt)>0F2Down%=(KeyCode=Key_F2)IfAltDown%AndF2Down%ThenText1.Text="AAAAAA"EndIfEndSub例10.2编写一个程序，当按下键盘上的某个键时，输出该键的KeyCode码。例10.3编写程序，演示KeyDown和KeyUp的功能。例10.4编写程序，当按下转换键和功能键时，输出相应的信息。例10.5编写程

7、序，通过键盘移动滚动条上的滚动框，并显示移动情况。第三节　鼠标事件压下鼠标键时，将触发MouseDown事件；松开鼠标键时，将触发MouseUp事件；移动鼠标光标时，将触发MouseMove事件。一、鼠标位置格式：Sub对象_事件(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)　　EndSub“对象”可以是窗体或控件，“事件”可以是MouseDown、MouseUp或MouseMove。鼠标位置由参数x、y确定。二、鼠标键鼠标键状态由参数Button来设定，该参数是

8、一个整数(16位)，在设置键状态时实际上只使用了低3位。当按下某个键时，相应的位被置1，否则为0。说明：⑴MouseDown、MouseUp事件，只能用鼠标的按键参数判断是否按下或松开某一个键，不能检查两个键同时按下或松开。⑵MouseMove事件可以通过Button参数判断按下一个或同时按下两个、三个