VB基础教程：第八章第四节进程条和滑块

8.4进度条和滑块

1.进度条

角色:过程条控件用于监控操作完成的进度。

创建:在表单上绘制进程栏控件，右键单击，选择属性，然后设置所需的外观。

主要属性:ProgressBar控件有一个笔画和一个当前位置。行程代表操作的整个持续时间。当前位置表示应用程序完成操作的进度。最大和最小属性设置行程的限制。Value属性指示行程范围内的当前位置。

(min属性表示进程条满空时的值，默认为0。

(2) Max属性表示进程条满空时的值，默认值为100。

(3)value属性表示进程条的当前值(但不出现在属性窗口中)，大于Min属性，小于Max属性。更改Value属性的值将会更改进度条的进度显示。

示例:

Private Sub命令1_Click()
If ProgressBar1。值< ProgressBar1。max Then
progress bar 1 . value = progress bar 1 . value+5
else
progress bar 1 . visible = false '当进度条已满时让其消失
End If
End Sub

2.滑块

滑块控件是一个包含滑块和可选刻度标记的窗口。在表单上绘制滑块控件，右键单击，选择属性，然后进行以下设置:

(1)选择滑块的外观。

1)orientation属性决定了滑块的方向，可以是垂直的，也可以是水平的。

2)滑块样式属性决定滑块标记的外观。

3)滑块频率属性指定沿滑块的标记的间隔大小。默认状态为1，表示为每个可能的值显示标记。如果该值设置为3，则每三个可能的值会出现一个标记。

(2)滑块的主要属性和事件

1)最小、最大属性

Min属性确定由最左边或最顶端的滑块表示的值。Max属性确定由最右边或最底部的滑块表示的值。

2)LargeChange，SmallChange属性

单击滑块两端的箭头按钮时，Small确定值SmallChange。LargeChange确定单击滑块上方或下方区域时更改的值。

3)价值属性

Value属性表示滑块当前位置的值，该值由滑块的相对位置决定。

4)变更事件

当滑块位置更改时，将引发change事件。