RC-WinTrans Object Model Help |
ProgressView.End |
Closes the dialog box.
Syntax: |
End() |
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: