This function creates the progress indicator dialog.
object.CreateModalProcessDisplay(aIsTwinProcess)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aIsTwinProcess |
In, Required | bool |
Use two progress bars in the dialog
window |
Display the progress indicator dialog and simulate the long-time data processing with its progress indicator.
Dim aIterationsCount
Dim aModalProcessDisplay
Dim i
aIterationsCount = 100
Set aModalProcessDisplay = Profile.CreateModalProcessDisplay(False)
aModalProcessDisplay.Caption = "Data Processing Progress"
aModalProcessDisplay.ProcessName = "Data Processing"
aModalProcessDisplay.MaxValue = aIterationsCount
aModalProcessDisplay.AllowCancel = True
aModalProcessDisplay.CancelKind = 1 'sckStop
for i = 1 to aIterationsCount
Sleep(100) 'Imitation of the long operation
aModalProcessDisplay.StepIt
next