GefProcAction.GetOpenScreen (method)

Retrieves the configuration information for the action.

Syntax:

Boolean = object.GetOpenScreen ( ScreenName, BaseProject, PercentZoom, Captive, X, Y )

Parameters:

ScreenName As BSTR* -

BaseProject As BSTR* -

PercentZoom As long* -

Captive As VARIANT_BOOL* -

X As long* -

Y As long* -

Description:

This method is valid only if the Type of the action is GefActionOpenScreen.

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

Example:

Sub GefProcAction_GetOpenScreen()

Dim oCimObj As GefObject

    Dim oCimProcs As
GefProcedures

    Dim oCimProc As
GefProcedure

    Dim oCimProcActs As
GefProcActions

    Dim oCimProcAct As
GefProcAction

    Dim strScrName As String
    Dim strProject As String
    Dim nPercentZoom As Long
    Dim bCaptive As Boolean
    Dim nX As Long
    Dim nY As Long

    Set oCimObj = CimGetObject

    Set oCimProcs =
oCimObj.Procedures

    If oCimProcs.Count > 0
Then

        Set oCimProc
= oCimProcs.Item(0)

        If Not
oCimProc Is Nothing Then

            Set
oCimProcActs = oCimProc.Actions

            If
oCimProcActs.Count > 0 Then

                Set
oCimProcAct = oCimProcActs.Item(0)

                If
oCimProcAct.Type = gefActionOpenScreen Then

                    If
oCimProcAct.GetOpenScreen(strScrName, strProject, nPercentZoom,
bCaptive, nX, nY) = True Then

                        MsgBox
"The Screen is " & strScrName

                        MsgBox
"The project is " & strProject

                        MsgBox
"The percent zoom is " & nPercentZoom

                        MsgBox
"Captive window is " & bCaptive

                        MsgBox
"The X coordinate is " & nX

                        MsgBox
"The Y coordinate is " & nY

                    End
If

                End
If

            End
If

        End
If

End If

End Sub