ISModalProcessDisplay.Position

Example

Display the progress indicator dialog and simulate the long-time data processing with its progress indicator.

Dim aIterationsCount
Dim aTotalCount
Dim aModalProcessDisplay
Dim i, j  

aIterationsCount = 20
aTotalCount = 12

Set aModalProcessDisplay = Profile.CreateModalProcessDisplay(True)
aModalProcessDisplay.Caption = "Data Processing Progress"
aModalProcessDisplay.TotalCaption = "Operations Progress"
aModalProcessDisplay.ProcessName = "Data Processing"

aModalProcessDisplay.SetTotalMaxValue(aTotalCount)
aModalProcessDisplay.MaxValue = aIterationsCount

aModalProcessDisplay.AllowCancel = True
aModalProcessDisplay.CancelKind = 1 'sckStop 

for j = 1 to aTotalCount

  for i = 1 to aIterationsCount
    Sleep(200) 'Imitation of the long operation
    aModalProcessDisplay.Position = i 
  next 'i
  
  aModalProcessDisplay.SetTotalPosition(j)
next 'j