VisualBasic程序设计(第四章).pptVIP

Visual Basic 程序设计 讲师： 吾甫尔江老师 GL计算机培训班程序设计老师 * 第四章 鼠标器和键盘 注意：鼠标事件发生在什么对象上，是窗体上还是控件上。 MouseDown事件（发生在窗体上的事件过程） Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) MouseUp事件（发生在窗体上的事件过程） Sub Form_MouseUp(Button As Integer, Shift As Integer,X As Single, Y As Single) MouseMove事件（发生在窗体上的事件过程） Sub Form_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single) 实列：关于鼠标事件 (1) Button参数 B0为1：按下了左键， B1为1：按下了右键 B2为1：按下了中键 例如：Button为2(010B)，即B1 为1，表示按下了右键；如果按了左键，则B0为1， B1和B2为0， Button为1(001B) If Button = 1 Then 或者 If Button = vbLeftButton Then … 这是按了左健后执行的代码 Endif 1—vbLeftButton：用户按下左键触发了鼠标事件； 2—vbRightButton：用户按下右键触发了鼠标事件； 4—vbMiddleButton：用户按下中键触发了鼠标事件。 Shift参数 B0为1：按下了Shift键 B1为1：按下了Ctrl键 B2为1：按下了Alt键 例如： shift参数为2(010B)，即B1 为1，表示仅按下了Ctrl键； 如果同时按了Ctrl和Shift键，则B0和B1为1， B2为0， shift参数为3(011B); 如果同时按了Ctrl和Alt键，则B0为0, B1和B2为1，shift参数为6(110B)。 注意： 可能同时按下两个或三个键。如果Button1成立，并不表示没有按下Shift，因为可能其他键也被按下了。如果要测试按下了某个键，则应用and进行位运算。 例如：Button and 1成立，表示肯定按下了Shift（可能其它键也被按下了）。 If Shift = 1 and Button = 2 Then … ‘ 这是仅按住Ctrl了健单击鼠标后执行的代码 符号常数： 1—vbShiftMask 2—vbCtrlMask 4—vbAltMask Shfit And vbCtrlMask为真： 按下了Ctrl键 CBool(Shift And vbCtrlMask) Or CBool(Shift And vbShiftMask)为真： 按下了Ctrl键和Shift键 实列 1、2、3、4、 键盘事件 KeyPress事件（对产生ASCII码的按键产生反应） Sub object_KeyPress([index As Integer,]KeyAscii As Integer) KeyDown事件（当焦点聚焦对象上时，按下键盘上任何一键产生） Sub object_KeyDown([index As Integer,]keycode As Integer, shift As Integer) KeyUp事件（当焦点聚焦对象上时，松开键盘上任何一键产生） Sub object_KeyUp([index As Integer,]keycode As Integer,shift As Integer) 参数说明 Shift与鼠标事件过程Shift相同 KeyCode：键盘扫描码 KeyAscii：字符ASCII码 实列： 区别 第一次是17 第二次是65 65 按Shift+A时参数值 (键盘处于大写状态) 第一次是17 第二次是65 97 按Shift+a时参数值 (键盘处于小写状态) 事件发生两次 事件发生一次 按Shift+A时 事件发生的次数 KeyCode接收到 键的扫描码 KeyAscii接收到 字符的ASCII值 参数值 按任意一个键 输入一个ASCII字符 事件发生的时间 KeyDown和KeyUp KeyPress *