GenerateEvent method (WinStudio scripts)

Examples

Sub Main()
     Dim iReturn As Integer
     ' Generate an event which refreshes the Form data
     iReturn  = ThisForm.GenerateEvent("StdFormRefresh")
    Application.ShowMessage( "Refresh Complete" )
End sub

In this example, parameter 1 is the name of a component object, which indicates whether or not a record has been selected, and parameter 2 is the name of an event to be generated. The script loops through the IDO collection and generates an event for each selected record.

Sub Main()
   On Error GoTo ErrorHandler
   Application.DiagnosticsLog("entering script")
   Dim CurrentObjectIndexSave As Integer
   Dim ReturnValue As Integer
   Dim SelectFlagName As String
   Dim SelectFlagValue As String
   Dim strEvent As String
   ReturnValue = 1
   CurrentObjectIndexSave = ThisForm.PrimaryIDOCollection.GetCurrentObjectIndex()
   SelectFlagName = GetParameter(0)
   strEvent = GetParameter(1)
   For i As Integer = 0 To ThisForm.PrimaryIDOCollection.GetNumEntries - 1
      SelectFlagValue = ThisForm.PrimaryIDOCollection.GetObjectProperty(SelectFlagName, i)
      Application.DiagnosticsLog("i=" & i)
      Application.DiagnosticsLog("SelectFlagValue=" & SelectFlagValue)
      If SelectFlagValue = "1" Then
         ThisForm.PrimaryIDOCollection.SetCurrentObject(i)
         ThisForm.GenerateEvent(strEvent)
      End If
   Next
   ThisForm.PrimaryIDOCollection.SetCurrentObject(CurrentObjectIndexSave)
   GoTo NormalExit
   NormalExit:
   Application.DiagnosticsLog("exiting script normally")
   ReturnValue = 0
   Exit Sub
   ErrorExit:
   Application.DiagnosticsLog("exiting script via ErrorExit")
   ReturnValue = 1
   Exit Sub
   ErrorHandler:
   Application.ShowMessage(Err.Description)
   ReturnValue = 1
End Sub