第7章VB用户界面设计.pptVIP

5. 不同窗体间数据的访问 7.4 多重窗体 多重窗体程序中，不同窗体之间可相互访问。 模块： Public MATH As Single Public PHYSICS As Single Public CHEMISTRY As Single Public CHINESE As Single Public ENGLISH As Single 7.4 多重窗体 例7.17 输入和计算学习成绩。 7.5 鼠标事件与键盘事件 大多数控件能够识别鼠标的MouseMove、MouseDown和MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生 MouseDown 按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生 7.5.1 鼠标事件 MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下： Sub Object_MouseMove（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseDown（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseUp（Button As Integer，Shift As Integer，_ X As Single，Y As Single） 其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮， 7.5.1 鼠标事件 参数Button值 参数（Button） 值 说明 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 7.5.1 鼠标事件 参数Shift值 参数（Shift） 值 描述 vbShiftMask 1 SHIFT 键被按下 vbCtrlMask 2 CTRL 键被按下 vbAltMask 4 ALT 键被按下 3．通过Shift参数表示在Button参数指定的按钮被按下或者被松开的情况下键盘的Shift、Ctrl和Alt键的状态， 7.5.1 鼠标事件 Ctrl、Shift、Alt三键组合使用情况如表12.1 7.5.1 鼠标事件 4. 参数X、Y X, Y鼠标指针的位置，通过X和Y参数返回一个指定鼠标指针当前位置的数，X和Y的值是使用该对象的坐标系统表示鼠标指针当前位置。 注意： 鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件，在按下鼠标按钮并释放时，Click 事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的SHIFT、CTRL、ALT 键的状态。 7.5.1 鼠标事件 例7.19 画圆程序。 按下鼠标右键画圆，按下鼠标左键移动时画线。在画线时用note14.ico作为鼠标的指针。 例7.18 显示鼠标器指针所指的位置。 7.5.2 键盘事件 在Visual Basic中，提供KeyPress、KeyDown、KeyUp三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。 KeyPress 按下对应某ASCII 字符的键。 KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键只有获得焦点的对象才能够接受键盘事件。 1 KeyPress 事件 在按下与ASCII字符对应的键时将触发KeyPress 事件。 KeyPress 事件过程的语法格式是： Sub Object_KeyPress (KeyAscii As Integer) 其中： 例如，如果希望将文本框中的所有字符都强制转换为大写字符，