论述vb键盘与鼠标事件过程.ppt

11.1.2 KeyDown和KeyUp事件 shift参数项返回一个整数，该整数相应于〈Shift〉、〈Ctrl〉和〈Alt〉键的状态。shift参数等于1、2和4分别表示〈Shift〉、〈Ctrl〉和〈Alt〉键被按下，而三数的部分和表示三个按钮部分地被同时按下。因此，可结合该参数项来判断输入字母的大小写。 应当使用KeyDown和KeyUp事件过程来处理任何不被KeyPress识别的击键，诸如：功能键、编辑键、定位键以及任何这些键和键盘换档键的组合等。与KeyDown和KeyUp事件不同的是，KeyPress不显示键盘的物理状态，而只是传递一个字符。 【例11-2】可以测试功能键与控制键的程序（如图11-2）。 程序的代码部分： 文本（输入）框Text1的Keydown事件代码： Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) Text2.Text = Text2.Text Str(KeyCode) , If KeyCode 111 And KeyCode 124 Then Label1(2).Caption = 你刚才按了功能键： F Str(KeyCode - 111) Label1(2).Visible = True Else Label1(2).Visible = False End If Check1.Value = IIf((Shift And vbShiftMask) 0, 1, 0) Check2.Value = IIf((Shift And vbCtrlMask) 0, 1, 0) Check3.Value = IIf((Shift And vbAltMask) 0, 1, 0) End Sub 命令按钮（清除）Command1 的 Click 事件代码： Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub 图11-2 测试功能键与控制键 11.1.3 使用KeyPreview属性 KeyPreview 属性返回或设置一个值，以决定是否在控件的键盘事件（KeyDown、KeyUp 和 KeyPress）之前激活窗体的键盘事件。其语法为： 对象名.KeyPreview [= boolean] 其中，Boolean是布尔表达式，指定如何接收事件：当取值为False（缺省值）时，活动控件接收键盘事件，而窗体不接收；当取值为True时，窗体先接收键盘事件，然后是活动控件接收事件。 11.2 鼠标事件 在前面的例子中曾多次使用鼠标事件，即单击（Click）事件和双击（DblClick）事件，这些事件是通过快速按下并松开鼠标键而产生的。除此之外，VB还可以通过MouseDown、MouseUp、MouseMove事件使应用程序对鼠标位置及状态的变化作出响应（其中不包括拖放事件。 其实，Click事件是由MouseDown和MouseUp组成，因此MouseDown和MouseUp是更基本的鼠标事件。 11.2.1 MouseDown和MouseUp事件 MouseDown和MouseUp 事件当按下(MouseDown)或者释放(MouseUp)鼠标按钮时发生。其语法为： Private Sub 对象名_MouseDown(button As Integer, shift As Integer, x As Single, y As Single) Private Sub 对象名_MouseUp(button As Integer, shift As Integer, x As Single, y As Single) 其中：参数button 返回一个整数，button参数的值分别等于1，2，和4时，相应于左按钮、右按钮以及中间按钮的动作。注意只能有一个按钮引起事件。 参数shift返回一个整数，在button参数指定的按钮被按下或者被释放的情况下，该整数相应于Shift、Ctrl和Alt键的状态。 11.2.1 MouseDown和MouseUp事件 MouseDown和MouseUp 事件当按下(MouseDown)或者释放(MouseUp)鼠标按钮时发生。其语法为： Private Sub 对象名_MouseDown(button As Integer, shift As