GefProcAction.GetOverlayScreen (method)

Retrieves the configuration information for the action.

Syntax:

Boolean = object.GetOverlayScreen ( ScreenName, BaseProject )

Parameters:

ScreenName As BSTR* -

BaseProject As BSTR* -

Description:

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

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

Example:

Sub GefProcAction_GetOverlayScreen()

Dim oCimObj As GefObject

    Dim oCimProcs As
GefProcedures

    Dim oCimProc As
GefProcedure

    Dim oCimProcActs As
GefProcActions

    Dim oCimProcAct As
GefProcAction

    Dim strBaseProject As
String

    Dim strScreenName As
String

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 = gefActionOverlayScreen Then

                    If
oCimProcAct.GetOverlayScreen(strScreenName, strBaseProject) = True
Then

                        MsgBox
"The Screen is " & strScreenName

                        MsgBox
"The Base Project is " & strBaseProject

                    End
If

                End
If

            End
If

        End
If

End If

End Sub