RC-WinTrans Object Model Help |
ProgressView.Start
|
Makes the Progress view visible.
Syntax: |
Start() |
| 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
|
See also: