进度条怎么做--大虾指导

[oralec]

我想做一个进度条，该怎么做

[oralec]

设计

[smjy]

设定进度条的MAX值，
然后在运行过程如一个循环中指定进度条的VALUE就行。

[footballboy]

首先确定现有的进度条有什么不足的地方

[寒星]

Option Explicit
Private strURL As String
Private intProgressBarMax As Integer

Private Sub Command1_Click()
' Show the ProgressBar and enable the timer.
ProgressBar1.Visible = True
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Caption = "Show Progress"
intProgressBarMax = 50

' Configure the ProgressBar control.
ConfigureBar ProgressBar1

' Configure Timer control.
With Timer1
.Enabled = False
.Interval = 100
End With


End Sub

Private Sub Timer1_Timer()
' Test the variable named counter. If it's less
' then the module variable intProgressBarMax then
' show the ProgressBar control.
Static counter As Integer
If counter = intProgressBarMax Then
Timer1.Enabled = False
counter = 0
' hide progressbar
ProgressBar1.Visible = False
Exit Sub
Else
counter = counter + 1
ProgressBar1.Value = counter
End If
End Sub
Private Sub ConfigureBar(prgBar As ProgressBar)
With ProgressBar1
.Max = intProgressBarMax
.Visible = False
End With
End Sub

[ql_mf]

制定进度条的Max值，然后在循环中修改Value属性

[cqfanli]

設定max﹐min的值﹐程序中改變value的值（是數字呀﹐介于max和min之間）﹐搞定﹐呵呵

[cqfanli]

用RDC+SQL語句來做吧﹐執行速度很快的呀
insert
update
delete
select
呵呵~~

[footballboy]

你问的是怎样使用进度条控件还是自己设计一个进度条控件啊

[网络咖啡]

这个也需要问吗？？？？