Procedure ExecuteAction( ID: Integer )

Description

Runs a process and displays a progress indicator.

Parameters

• ID: Allows you to run more than one process from within a script. It is then possible to respond to the process that has been started within the event.

Progress Meter Styles

1 : Style := waChange

2 : Style := waCalculate

3 : Style := waCopy

4 : Style := waDelete

5 : Style := waCreate

6 : Style := waProcess

All other Style := waCopy

Example

Sub IsahEvent_OnAction(Id, WaitDlg)

WaitDlg.Style = 3 ' Copy

WaitDlg.Caption = "Script Copy"

WaitDlg.MainText = "Copying customers"

WaitDlg.ProgressMax = 1000

' Run the process

for I = 0 to 1000

' Insert a loop to slow things down

for X = 0 to 10000

next

' Display progress meter

WaitDlg.Progress = i

next

End Sub

Sub Main()

Application.IsahForms.ExecuteAction(1)

End Sub