VB教程完整版解读.ppt

* 例7.10 用进度条指示一个大数组的计算进度。 7.6 ProgressBar控件 位于Microsoft Windows Common Control 6.0部件 重要属性： Max、Min：该控件的界限 Value：决定控件被填充多少 * 兰州理工大学计算机与通信学院 * 位于Microsoft Windows Common Control-2 6.0 通常与伙伴控件 “捆绑”在一起使用。 UpDown应用示例 7.7 UpDown控件 * 兰州理工大学计算机与通信学院 * 位于Microsoft Windows Common Control-2 6.0 属性： Center：决定动画是否在控件的中央播放 AutoPlay属性：决定在用Open方法打开文件时是否自动播放。 方法： Open：打开文件 Play： 播放动画 Stop：停止播放 Close：关闭文件 例7.11 为例7.10配上动画。 7.8 Animation控件 * 兰州理工大学计算机与通信学院 * 位于Microsoft Tabbed Dialog Control 6.0 重要属性 Style：选项卡样式 Tabs：选项卡总数 TabsPerRow：每一行选项卡的数目 Rows：选项卡总行数 TabOrientation：选项卡的位置。 ShowFocusRect：决定选项卡上的焦点矩形是否可视。 Tab：当前选项卡的序号。 序号从0开始，如果Tab为1，则第 二个选项卡为当 前活动的选项卡。 例7.12 选项卡制作示例 7.9 SSTab控件 * 兰州理工大学计算机与通信学院 * 7.10 鼠标器和键盘 1. 鼠标器事件 注意：鼠标事件发生在什么对象上，是窗体上还是控件上。 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参数 b2 b1 b0 B0为1：按下了左键 B1为1：按下了右键 B2为1：按下了中键 例如：Button为2(010B)，即B1 为1，表示按下了右键； 如果按了左键，则B0为1， B1和B2为0， Button为 1(001B) If Shift = 1 Then 或者 If Shift = vbLeftButton Then … 这是按了左健后执行的代码 … Endif 使用符号常数： 1—vbLeftButton：用户按下左键触发了鼠标事件； 2—vbRightButton：用户按下右键触发了鼠标事件； 4—vbMiddleButton：：用户按下中键触发了鼠标事件。 * 兰州理工大学计算机与通信学院 * (2) Shift参数 B2 B1 b0 B0为1：按下了Shift键 B1为1：按下了Ctrl键 B2为1：按下了Alt键 例如：Button为2(010B)，即B1 为1，表示仅按下了Shift键； 如果同时按了Ctrl和Shift键，则B0和B1为1，B2为0，Button为3(011B) 注意： 可能同时按下两个或三个键。如果Button1成立，并不表示没有按下Shift，因为可能其它键也被按下了。如 果要测试按下了某个键，则应用and进行位运算。例如：Button and 1成立，表示肯定按下了Shift（可能其它键也被按下了）。 If Shift = 1 and Button = 2 Then … ‘ 这是仅按住Ctrl了健单击鼠标后执行的代码 … End If 思考： Shift = 1 a