Visual Basic程序设计第4章 窗体的设计.pptVIP

Click和DblClick事件 当用户用鼠标单击窗体时触发Click事件。当单击窗体内的某个位置时，VisualBasic将调用窗体事件过程Form_Click。如果用户单击的是窗体内的控件，则调用的是相应控件的Click事件过程。 当用户用鼠标单击窗体时触发Click事件。这一过程实际上触发了2个事件，第一次按住鼠标键时产生Click事件,第二次按住鼠标键时产生DblClick事件。 KeyDown、KeyUp和KeyPress事件 KeyDown和KeyUp事件是当一个对象具有焦点时按下或松开一个键时发生的。 语法格式： Private Sub Form_KeyPress(keyascii As Integer) Private Sub Form_KeyDown(keycode As Integer, shift As Integer) Private Sub Form_KeyUp(keycode As Integer, shift As Integer) KeyDown、KeyUp和KeyPress事件 表4-6 键盘相关事件参数设计 参 数 说 明 keyascii 是返回一个标准数字 ANSI 键代码的整数。Keyascii 通过引用传递，对它进行改变可给对象发送一个不同的字符。将 keyascii 改变为 0 时可取消击键，这样一来对象便接收不到字符。 keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。 shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。 KeyDown、KeyUp和KeyPress事件 表 4-7 Shift参数的值 十进制数 作 用 0 没有按下转换键 1 按下一个Shift键 2 按下一个Ctrl键 3 按下Ctrl+Shift键 4 按下Alt键 5 按下Alt+Shift键 6 按下Alt+Ctrl键 7 按下Alt+Ctrl+Shift键 KeyDown、KeyUp和KeyPress事件 【例4-13】键盘事件示例。 运行结果 程序代码 MouseDown、MouseUp和MouseMove 事件 MouseMove事件是指当用户在窗体内移动鼠标时所触发的事件。而MouseDown、MouseUp 事件事件是当按下 ( MouseDown ) 或者释放 ( MouseUp ) 鼠标按钮时发生。 语法格式： Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single) Private Sub Form_MouseUp(button As Integer, shift As Integer, x As Single, y As Single) Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single) MouseDown、MouseUp和MouseMove 事件 表4-8 鼠标事件的参数说明 参数 说 明 button 对于MouseMove事件，Button参数反映鼠标各个按钮的状态。而对于MouseDown 和 MouseUp 事件，Button参数用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。Button分别等于1时表示鼠标左按钮按下，2表示鼠标右按钮按下，4表示鼠标中间按钮按下 shift 该参数分别等于1，2，4时，对应于按下 SHIFT，CTRL， ALT键的状态。指示这些键中的一些、全部、或者一个也没有被按下。例如，CTRL 和 ALT 键都被按下，则 shift 的值就是 6。 x, y 一个指定鼠标指针当前位置的数。x 和 y 的值所表示的总是通过该对象 ScaleHeight, ScaleWidth, ScaleLeft,和 ScaleTop 属性所建立的坐标系统的方式。 MouseDown、MouseUp和MouseMove 事件 【例4-14】鼠标事件示例 运行结果 程序代码 第4章 窗体的设计 4