Sets the progress bar values.

Syntax:

SetProgress(MaxValue As Long, CurrentValue As Long)
Parameters: MaxValue Maximum progress value.
CurrentValue Current progress value (must be a value between 0 and "MaxValue").

Example:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)

Sub UseProgressBar()
    Dim Progress As ProgressView
    Dim i As Integer
    
    Set Progress = Application.Windows.ProgressView
    
    Call Progress.Start
    Call Progress.ShowCancelButton(True)
    Call Progress.SetInfoText("This is a test of the progress view.")
    Call Progress.SetTitle("Test")
    
    For i = 0 To 100
        Call Progress.SetProgress(100, i)
        Call Sleep(50)
        If (Progress.IsCanceled) Then
            Exit For
        End If
    Next i
    
    Call Progress.End

End Sub
Remarks: The minimum progress value is always 0.

See also:

Class ProgressView


Last Updated: 04/26/05