计算机二级VB教程.ppt

* 例 输入学生五门课程的成绩，计算总分及平均分并显示。 模块： Public MATH As Single Public PHYSICS As Single Public CHEMISTRY As Single Public CHINESE As Single Public ENGLISH As Single * 6.启动时的快速显示 使用快速显示窗体模板的方法： “工程”——”添加窗体”——”新建”—— ”展示屏幕”——”打开” * 4.6 高级控件 “工程”——”部件” ActiveX控件 可插入对象 ActiveX设计器 ActiveX控件存放在Windows的SYSTEM 目录中，具有OCX扩展名 * SSTab控件——页框（具有多个选项卡） 在Microsoft Tabbed Dialog Control 6.0部件中 ProgressBar控件——进度条 在Microsoft Windows Common Control 6.0部件中 Slider控件——包含滑块和可选择性刻度标记的窗口 属性：tickfrequency—决定控件上刻度的疏密。 事件：scroll和change事件 * UpDown控件 位于Microsoft Windows Common Control-2 6.0部件中 将UpDown控件与其他控件关联的步骤是： (1)打开UpDown控件的属性页 (2)在合作者选项中输入合作者控件的名称和选定合作者 控件的属性 属性：increment--控件的实际增减值 事件：downclick和upclick事件 * Animation控件——显示无声的AVI视频 位于Microsoft Windows Common Control-2 6.0部件中 方法： open play stop close 属性： center autoplay * 4.7　鼠标器和键盘 一、鼠标器： 1. 鼠标器事件：除了Click、DblClick外，还有三个： Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 注意： 鼠标事件发生在什么对象上，是窗体上还是控件上。当鼠标指针位于窗体中没有控件的区域时，窗体将识别鼠标事件。当鼠标指针位于某个控件上方时，该控件将识别鼠标事件。 * (1) Button参数：指示按下或释放了哪个鼠标按钮。 B2 B1 B0 B0为1：按下了左键 B1为1：按下了右键 B2为1：按下了中键 If Button = 1 Then 或者 If Button = vbLeftButton Then … 这是按了左健后执行的代码 … End if 使用符号常数： 1—vbLeftButton：用户按下左键触发了鼠标事件； 2—vbRightButton：用户按下右键触发了鼠标事件； 4—vbMiddleButton：用户按下中键触发了鼠标事件。 中 右 左 * (2) Shift参数：包含了Shift、Ctrl、Alt键的状态信息。 B0为1：按下了Shift键 B1为1：按下了Ctrl键 B2为1：按下了Alt键 例如：如果同时按了Ctrl和Shift键，则B0和B1为1，B2为0，Shift参数为3(011B) 注意： 可能同时按下两个或三个键。如果Shift1成立，并不表示没有按下Shift，因为可能其它键也被按下了。如果要测试按下了某个键，则需要与Shift参数进行and运算。例如Shift and 1成立，表示肯定按下了Shift（可能其它键也被按下了）。 If Shift = 2 and Button = 1 Then … ‘ 这是仅按住Ctrl键单击鼠标后执行的代码 … End If B2 B1 B0 Alt Ctrl