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