ISModalProcessDisplay.SetTotalPosition

Description

This function sets the position of the total progress indicator.

Syntax

object.SetTotalPosition Value

Part	Attribute	Type	Description
`object`	Required	ISModalProcessDisplay	The `object` always implements the ISModalProcessDisplay interface
`Value`	In, Required	int

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

Note:

Version information

Added in v7.8.0