10.pptVIP

③ 用类似的方法可以判断是否同时按下了左、右键： Private Sub Form_MouseMove(Button As Integer，Shift As Integer， x As Single，Y As Single) If (Button And 3) = 3 Then Print “同时按着左、右键” End If End Sub ④ 用下面的语句可以判断是否同时按下了3个键： If (button And 7) = 7 Then Print “同时按着左、中、右键” End If (3) 在判断是否按下多个键时，要注意避免二义性，例如，下面句子的判断不严密： 　　If (Button And 1) And (Button And 2) Then … 用该语句判断时，按下3个键和按下2个键的效果相同。再如： 　　If Button And 3 Then … 该语句判断“Button And 3”的结果是否为True。实际上，有3种情况使它为True，即按下左键、按下右键或同时按下左、右两个建。 (4) 为了提高可读性，可以把3个键定义为符号常量： 　　Const LEFT_BUTTON = 1 　　Const RIGHT_BUTTON = 2 　　Const MIDDLE_BUTTON = 4 在前面的例子中，3种鼠标事件(MouseDown、MouseUp和MouseMove)独立产生，利用Button参数，可以把3种鼠标事件结合起来使用。 3.转换参数 和按钮参数Button一样，转换参数Shift也是一个整数值，并用其低3位表示Shift、Ctrl和Alt键的状态，某键被按下使得一个二进制位被设置。如图10.9所示。 Shift参数反映了当按下指定的鼠标键时，键盘上转换键(Shift、Ctrl和Alt)的当前状态。该参数的设置值见表10.7 10.4　鼠标光标的形状 在使用Windows及其应用程序时，读者可能已经注意到，当鼠标光标位于不同的窗口内时，其形状是不一样的。有时是十字，有时候是竖线，等等。在Visual Basic中，可以通过属性设置来改变鼠标光标的形状。 1 .MousePointer属性 鼠标光标的形状通过MousePointer属性来设置。该属性可以在属性窗口中设置，也可以在程序代码中设置。 MousePointer的属性是一个整数，可以取0~15，其含义见表10.9。 当某个对象的MousePointer属性被设置为上表中的某个值，鼠标光标在该对象内就以相应的形状显示。例如，假定一个文本框的MousePointer属性被设置为3，则当鼠标光标进入该文本框时，鼠标光标为“I”，而在文本框之外，鼠标光标保持为默认形状。 * 第10章 键盘与鼠标事件过程 10.1 KeyPress事件 10.2 KeyDown和KeyUp事件 10.3 鼠标事件 10.4 鼠标光标的形状 10.5 拖放 10.6 应用举例 本章将介绍与键盘和鼠标有关的事件过程。使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作，而鼠标事件过程可用来处理与鼠标光标的移动和位置有关的操作。 10.1 KeyPress事件 当压下键盘上的某个键时，将触发KeyPress事件。该事件可以作用于窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条及与文件有关的控件。严格地说，当按下某个键时，所触发的是拥有输入焦点(Focus)的那个控件KeyPress的事件。在某一时刻，输入焦点只能位于某一控件，如果窗体上没有活动的或可见的控件，则输入焦点位于窗体。当一个控件或窗体拥有输入焦点时，该控件或窗体将接收从键盘上输入的信息。例如，假定一个文本框拥有输入焦点，则从键盘上输入的任何字符都将在该文本框中显示。 在窗体上画一个控件（指上面所讲的可以发生KeyPress事件的控件），并双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可定义KeyPress事件过程。一般格式为： 　 Private Sub Text1_KeyPress(KeyAscii As Integer) ? End Sub KeyPress事件带有一个参数，这个参数有两种形式。第一种形式是Index As Integer，只用于控件数组；第二种形式是KeyAscii As Integer，用于单个控件。上面列出的是第二种形式。KeyPress事件用来识别所按字母的ASCII码。参数KeyAscii是一个预定义的变量，执行KeyPress事件过程时，K