Description
This read only property returns the percentage value of the progress bar on the Execution window. A positive value means the execution has started. A negative value means the execution percentage is not available.
Syntax
| Visual Basic |
|---|
Public Property ProgressBarPercentage As Single |
Return Type
A number value of type Single that contains the percentage value of the progress bar on the Execution window.
Remarks
This is the percentage of the measurement routine that has finished executing. The percentage is derived from the amount of executed commands and hits taken compared against the total number of marked commands and hits to take.
Example
This script takes a paused execution and manipulates the Execution window. It then obtains the progress bar value, converts it to an integer and displays the execution percentage in a message box.
| Example (VBScript) |  Copy Code |
|---|---|
' Start an execution. Pause it, and then run this script. Dim DmisApp As Object Dim DmisPart As Object Sub Main Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set ExWin = DmisPart.GetExecutionWindow (0) ExWin.Visible = True MsgBox "The height is " & ExWin.Height MsgBox "The width is " & ExWin.Width MsgBox "Setting the height to 500 x 1500." Dim dblPercent As Double Dim intPercent As Integer ExWin.Height = 500 ExWin.Width = 1500 dblPercent = ExWin.ProgressBarPercentage intPercent = Cint(dblPercent) MsgBox "Execution Progress is " & intPercent &"%" End Sub | |