当vb程序在计算数据（这个数据比较大）时，如何能加一个进度条，使用户能不着急？谢谢。

Question

初次发言，请多关照。

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    With ProgressBar1
        .Min = 1
        .Max = 100
        .Value = 1
    End With
    With Timer1
        
        .Interval = 1000
        .Enabled = True
    End With 
'计算
    For i = 1 To 10000
    For j = 1 To 1000
        DoEvents 
    Next j
    Next i
    Timer1.Enabled = False
    ProgressBar1.Value = 1
End SubPrivate Sub Timer1_Timer()
    With ProgressBar1
        If .Value = .Max Then
            .Value = 0
        End If
        .Value = .Value + 1
    End With
End Sub

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    With ProgressBar1
        .Min = 1
        .Max = 100
        .Value = 1
    End With
    With Timer1
        
        .Interval = 1000
        .Enabled = True
    End With
    For i = 1 To 10000
    For j = 1 To 1000
        DoEvents
    Next j
    Next i
    Timer1.Enabled = False
    ProgressBar1.Value = 1
End SubPrivate Sub Timer1_Timer()
    With ProgressBar1
        If .Value = .Max Then
            .Value = 1
        End If
        .Value = .Value + 1
    End With
End Sub