键盘与鼠标事件

第9章键盘与鼠标事件1.章节分布1键盘事件2鼠标事件2.8.1键盘事件KeyPress事件过程KeyDown事件过程KeyUp事件过程键盘事件3.8.1.1KeyPress事件过程触发时刻：当按下键盘上某个键时，将触发KeyPress；效劳对象：窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条以及与文件有关的控件。语句格式：PrivateSubText1_KeyPress(KeyAsciiAsInteger)…EndSub应用举例Example8.1：在窗体上画一个文本框，然后编写程序。程序运行后，如果按下键盘上的A、B、C、D键，那么在文本框中显示E、F、D、H。按键的ASCII码值4.PrivateSubText1_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase65,66,68KeyAscii=KeyAscii+4Case67KeyAscii=KeyAscii+1EndSelectEndSub5.8.1.2KeyDown事件过程触发时刻：按下键盘上的某个键时，触发KeyDown。与KeyPress不同，KeyDown将返回的是键盘的直接状态。语句格式：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)…EndSub参数说明：-KeyCode：按键的键位值。例如，当按下“a〞时，KeyAscii值为97，KeyCode值为65。-Shift：Shift表示3个转换键的状态，这3个键是Ctrl、6.Alt以及Shift键，它们分别用3位二进制数表示，即如下所示：当然，Shift值可以由以上3种值组合而成，表示同时按下多个键，例如，如同时按下ctrl和shift键，那么Shift=1+2，即3。应用举例Example8.2：编写一个程序，当同时按下Alt、Shift和F6键时，在窗体上显示“再见〞，并终止程序的运行。001，即1，按下Shift键010，即2，按下Ctrl键100，即4，按下Alt键Shift=｛7.PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=&H75AndShift=5ThenPrint"再见"EndEndIfEndSub8.8.1.3KeyUp事件过程

触发时刻：当松开键盘上的某个键时，触发KeyUp；语句格式：PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)…EndSub其中，参数的含义同KeyDown事件过程。应用举例

Example8.3：演示KeyUp事件过程。9.PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)SelectCaseKeyCodeCase&H70Print“松开F1键〞Case&H71Print“松开F2键〞Case&H72Print“松开F3键〞EndSelectEndSub10.8.2鼠标事件过程在以前的例子中曾屡次使用鼠标事件，即单击〔Click〕事件，实际上，除了常用的Click事件过程外，VisualBasic还提供了以下3个鼠标事件过程：按下鼠标键事件过程SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)…EndSub松开鼠标键事件过程SubForm_MouseUp(ButtonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)…EndSub11.

移动鼠标键事件过程SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)…EndSub

参数说明：-x,y：鼠标光标当前的位置；-Shift：同键盘事件过程中的Shift参数含义；-Button：被按下的鼠标键，含义如下：001，即1，按下鼠标左键010，即2，按下鼠标右键100，即4，按下鼠标中间键Button=｛12.

需要注意的是，在MouseDown和MouseUp中，Button值不能进行求和，即Button值只能是3个值中的某一个，它不能反映是否同时按下了鼠标上的多个键；对于MouseMove来说，可以通过Button参数判断按下一个或同时按下多个键。MouseDown：IfButton=3Then“同时按下左、右两键〞MouseMove：IfButton=3Then“同时按下左、右两键〞MouseMove：If(ButtonAnd3)=3Then“同时按下左、右两键〞错误，在MouseDo