This function returns the process progress in the Profile window.
object.NewProcessIndicator()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCommonDialogs interface |
Display the process progress in the Profile window and its caption.
Dim aProcessIndicator
Dim aStartValue
Dim aEndValue
Dim aCaption
Set aProcessIndicator = Profile.CommonDialog.NewProcessIndicator
aStartValue = 1
aEndValue = 100
aCaption = "The long operation progress"
aProcessIndicator.ProcessStart aStartValue, aEndValue, aCaption
for i = aStartValue to aEndValue
Sleep(20) 'Imitation of the long operation
aProcessIndicator.ProcessValue = i
next