This function shows the indicator of the process in the Profile window.
object.ProcessStart
StartValue, EndValue, Caption
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProcessIndicator interface |
|
StartValue |
In, Required | int |
The start value of the process
indicator |
EndValue |
In, Required | int |
The end value of the process indicator
|
Caption |
In, Required | string |
The caption of the process indicator |
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