RC-WinTrans Object Model Help |
ProgressView.SetProgress |
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: