GefProcAction.GetOverlayScreen (method)

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


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
See Also: GetOverlayScreenEx , SetToOverlayScreen , SetToOverlayScreenEx