Method: RunCustomAction for Table

Method: RunCustomAction for Table

Triggers the EventCustomAction event. You can use this event anywhere, for any purpose.

Object.RunCustomAction(VarParam)

The following example assigns a text to the DIAdem variable sMyAction when the Button1 button is clicked, and triggers the EventCustomAction event for the Table1 control:

Sub Button1_EventClick(ByRef This)
  Dim sMyAction
  sMyAction = "UpperLimit"
  Call Table1.RunCustomAction(sMyAction)
End Sub

The following example shows the event EventCustomAction associated with the Table1 control. The event checks the transfer parameter and executes the respective instructions.

Sub Table1_EventCustomAction(ByRef This, VarParam)
  If VarParam = "UpperLimit" Then
    This.ForeColor= RGB(255, 0, 0)
  End If
End Sub