GefProcAction.SetToOpenScreenEx (method)

Configures the action to open a screen.

Syntax:

object.SetToOpenScreenEx ScreenName, BaseProject, PercentZoom, Captive, X, Y, PositionType, VariableValues

Parameters:

ScreenName As String -

BaseProject As String -

PercentZoom As long -

Captive As Boolean -

X As long -

Y As long -

PositionType As GefPositionTypeEnum -

VariableValues As VARIANT - A CoCimSafeArray3 array of initial variable values for the newly opened screen. (Note: In VBScript and VBA/VB, you can use a native array of strings.)

Description:

Changes the Type of the action to GefActionOpenScreen.

The arguments correspond to the fields in the action panel of the Procedure Information dialog box.

The X and Y parameters specify the location of the new window, in pixels or TWIPS, according to PositionType (see GefPositionTypeEnum).

The VariableValues parameter is a String array containing the initial values of variables in the new screen. If NVARS is the number of variables, the array should be dimensioned as

    Dim initVars as
CoCimSafeArray2

    Set initVars =
CreateObject("CIMPLICITY.CimSafeArray.2")

    cimsafe.CreateVector cimVString, 0,
2*NVARS

    Dim initVars(0 To 2*NVARS-1) as
String

where initVars.Element(0) is the name of first variable and initVars.Element(1) is the value of the first variable.

This array may also be dimensioned as

    Dim initVars(0 To 1, 0 To NVARS-1) as
String

in which case initVars(0,0) is the name of the first variable and initVars(1,0) is the value of the first variable.

Example:

Sub MakeOpenScreen(action As GefProcAction)
Dim initVars As CoCimSafeArray2

  Set initVars =
CreateObject("CIMPLICITY.CimSafeArray.2")

  initVars.CreateVector cimVString, 0, 6
  initVars.SetVectorElement 0, "tank1"
  initVars.SetVectorElement 1, "LB23_2"
  initVars.SetVectorElement 2, "tank2"
  initVars.SetVectorElement 3, "LB23_4"
  initVars.SetVectorElement 4, "tank3"
  initVars.SetVectorElement 5, "LB23_6"

  action.SetToOpenScreenEx "tankfarm.cim", "", 100,
False, _

    1440, -1440,
gefPositionTypeObjectRelative, initVars

End Sub