TriggerPBEvent

Triggers the specified user event in the child window contained in a PowerBuilder window ActiveX control.

Window ActiveX controls

activexcontrol.TriggerPBEvent ( name {, numarguments {, arguments } } )

Argument	Description
activexcontrol	Identifier for the instance of the PowerBuilder window ActiveX control. When used in HTML, this is the NAME attribute of the object element. When used in other environments, this references the control that contains the PowerBuilder window ActiveX.
name	String specifying the name of the user event. This argument is passed by reference.
numarguments (optional)	Integer specifying the number of elements in the arguments array. The default is zero.
arguments (optional)	Variant array containing event arguments. In PowerBuilder, Variant maps to the Any datatype. This argument is passed by reference. If you specify this argument, you must also specify numarguments. If you do not specify this argument and the function contains arguments, populate the argument list by calling the SetArgElement function once for each argument. JavaScript cannot use this argument.

Integer. Returns 1 if the function succeeds and -1 if an error occurs.

Call this function to trigger a user event in the child window contained in a PowerBuilder window ActiveX control.

To check the PowerBuilder function’s return value, call the GetLastReturn function.

JavaScript cannot use the arguments argument.

This JavaScript example calls the TriggerPBEvent function:

function triggerEvent(f) {

      var retcd;

      var rc;

      var numargs;

      var theEvent;

      var theArg;

      retcd = 0;

      numargs = 1;

      theArg = f.textToPB.value;

      PBRX1.SetArgElement(1, theArg);

      theEvent = "ue_args";

      retcd = PBRX1.TriggerPBEvent(theEvent, numargs);

      rc = parseInt(PBRX1.GetLastReturn());

      if (rc != 1) {

      alert("Error. Empty string.");

      PBRX1.ResetArgElements();

This VBScript example calls the TriggerPBEvent function:

Sub TrigEvent_OnClick()

      Dim retcd

      Dim myForm

      Dim args(1)

      Dim rc

      Dim numargs

      Dim theEvent

      retcd = 0

      numargs = 1

      rc = 0

      theEvent = "ue_args"

      Set myForm = Document.buttonForm

      args(0) = buttonForm.textToPB.value

      retcd = PBRX1.TriggerPBEvent(theEvent, & 
      numargs, args)

      rc = PBRX1.GetLastReturn()

      if rc <> 1 then

      msgbox "Error. Empty string."

      end if

end sub