VisualBasic第9章鼠标与键盘事件过程

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

1、第九章鼠标与键盘事件过程9.1键盘事件9.2鼠标事件9.3鼠标拖放9.1键盘事件1KeyPress事件2KeyDown事件与KeyUp事件1、KeyPress事件（1）事件的触发当按下键盘上的某些键时，将会产生KeyPress事件。KeyPress事件只对会产生ASCII码的按键有反应，包括数字、字母、特殊符号、Enter、Backspace、Esc、Tab等。对于如方向键或功能键这样的不会产生ASCII码的按键，KeyPress事件不会被触发。1、KeyPress事件（2）与此之间相关的对象该事件可用于窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条以及与文件有关的控

2、件如果某个控件拥有输入焦点，当按下某个键时，这个控件的KeyPress事件被触发。在某一时刻，输入焦点只能位于一个控件上，如果窗体上没有活动的或者可见的控件，则输入焦点位于窗体上1、KeyPress事件（3）事件过程PrivateSubForm_KeyPress(KeyAsciiAsInteger)…………EndSub或PrivateSubObject_KeyPress([IndexAsInteger,]KeyAsciiAsInteger)…………EndSub其中object为与之相关的控件名1、KeyPress事件在默认的情况下，控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事

3、件时，总是先激活拥有焦点的控件的键盘事件。如果把窗体的KeyPreview属性设置为True，则线触发窗体的键盘事件，再触发具有焦点的控件的键盘事件。否则不能激活窗体的键盘事件例1：text2中输入字符，text3中显示按键对应的ascii值；如果text3中输入一个整数（ASCII），text2中显示其对应字符PrivateSubText2_KeyPress(KeyAsciiAsInteger)Text3.Text=KeyAsciiEndSubPrivateSubText3_LostFocus()Text2.Text=Chr(Val(Text3.Text))EndSub1、KeyP

4、ress事件1、KeyPress事件例2：假定窗体上有一个文本框（Text1），编写了下面的事件过程，只允许文本框输入0~9的数字，而输入的其他字符，则响铃，并消除该字符。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenBeepKeyAscii=0‘取消该字符EndIfEndSub例3：如果窗体级事件过程修改了KeyAscii参数的值，则当前激活对象的KeyPress事件将接收改变后的数据。如果窗体级事件将KeyAscii的值设置为0，则不再调用对象的KeyPress事件过程。Priva

5、teSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)IfKeyAscii<48OrKeyAscii>57ThenBeepKeyAscii=0EndIfEndSub2KeyDown事件和KeyUp事件(1)事件的触发当按下任何键的同时触发KeyDown事件；按下抬起时触发KeyUp事件（2）相关对象：与keypress事件相同（3）事件过程PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)…………EndSub或PrivateSubObject_KeyDown([Inde

6、xAsInteger,]KeyCodeAsInteger,ShiftAsInteger)…………EndSub注意：过程的形参keycode代表键的代码，与ASCII码不同，它直接代表这个某个键。任何键都对应一个keycodeKeyCode该参数是用户所操作的按键的扫描代码，它告诉事件过程用户所操作的物理键。大写字母和小写字母使用同一个键，它们的KeyCode相同。但是大键盘（打印机键盘）上的数字键与数字键盘上相同的数字键的KeyCode是不一样的。对于有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码。VisualBasic中已经把键盘上的功能键定义为常量：vbKey

7、Fx，x是1~12中的值Shift该参数是一个整数，用以表示当用户按下键时，三个转换键Shift、Ctrl和Alt的状态。这三个键分别以一个二进制位的形式来表示。当该位为0时，表示相应的键没有按下，当该位为1时，表示相应的键被按下。图9.1.1Shift参数的各转换键b0b1b2ShiftCtrlAlt十进制数二进制数含义0000没有按下转换键1001仅按下Shift键2010仅按下Ctrl键3011按下Ctrl+Shift键4100仅按下Alt键5101