GefProcAction.GetOpenScreen (method)

Retrieves the configuration information for the action.
Syntax: Boolean = object.GetOpenScreen ( ScreenName, BaseProject, PercentZoom, Captive, X, Y )
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.


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
See Also: GetOpenScreenEx , SetToOpenScreen , SetToOpenScreenEx