VB怎么制作进度条？

进度条控件的位置：

1.在控件工具箱中右键=>部件。

2.在“部件”窗口中勾选Microsoft

windows

common

controls

5.0或6.0。单击确定。

3.然后控件工具箱中就有进度条了。

改变样式方法：（我暂时只知道这种）

下载一个SkinH，下载的文件夹里面有使用方法哦~（并且会优化所有控件及窗体）

注意事项：

1.使用时避免使用End语句，会出错。（虽说生成EXE文件不会出错，但影响调试）

2.使用时若出现实时错误点击工具栏的停止也会出错……

3.所以最好程序完工后再加上换肤代码=

=

我可能不是你说的“把文件删除了它的进度条又变成普通的那种了”，但是是最贴合的方法了！

首先，你要加载这个部件，选择工程--部件，再选择Microsoft

Windows

common

controls6.0控件，加载，这时ProgressBar就可以使用了

例子：

在窗体上添加Timer1,command1,ProgressBar1,Label1控件

再添加如下代码：

Private

Sub

Command1_Click()

Timer1.Interval

=

1000

ProgressBar1.Value

=

0

Timer1.Enabled

=

True

End

Sub

Private

Sub

Timer1_Timer()

If

ProgressBar1.Value

>=

100

Then

Timer1.Enabled

=

False

Else

ProgressBar1.Value

=

ProgressBar1.Value

+

10

Label1.Caption

=

"进度为："

&

ProgressBar1.Value

&

"%"

End

If

End

Sub

1、点击系统菜单“工具”－＞“选项”，调出选项对话匡后选择“控件”页，再选择ActiveX控件，选定列表栏里的Microsoft ProgressBar Control控件，一般里面有两个版本的，分别是V5.0(SP2)和v6.0。建议用V5.0（SP2）版的，这个控件的风格可以根据WIN的主题风格的变化而变化，而V6.0是固定的一个格子一个格子的跳。

选定后，前面的小匡内会有个‘X’，点确定。

Private Sub Command1_Click()

Dim A As Double

Dim B As Double

Dim C As Double

Dim D

Dim p As Single

ProgressBar1.Min = 0

ProgressBar1.Max = 1000

ProgressBar1.Value = ProgressBar1.Min

ProgressBar1.Scrolling = ccScrollingSmooth

' 定义 进度条 最小值,最大值,当前进度 和样式

Dim Mx As Long

Mx = 1000000

For A = 1 To Mx

For B = 1 To 10000000

C = B + A

Next B

If A Mod (Mx / ProgressBar1.Max) = 1 Then

' 不需要每次都做, 只要进行到某个时候做一次就好了.

' 计算出当前进度

ProgressBar1.Value = A * ProgressBar1.Max \ Mx

DoEvents

End If

Next A

ProgressBar1.Value = ProgressBar1.Max

' 最后, 进度=进度条最大值.

MsgBox C

End Sub

你试运行的循环数量大 程序可能会有点慢, 要等他一下才看到效果,

或者把内循环设置成 100 效果会好一点

---