GefApplication.DialogPopup (method)

Opens a screen file in captive dialog mode.
Syntax: Set GefScreen = object.DialogPopup ( ParentScreen, FileName, Project, Visible, ObjectToEdit )
ParentScreen As GefScreen - The screen that this new screen will be captive to. No input will be allowed in the parent screen until the new screen is closed.
FileName As String - The name of the screen to open. If this is a relative pathname, it is qualified by the DefaultFilePath.
Optional Project As String - If specified, determines the project used to qualify unqualified point IDs in the screen. The default is the project specified with the "/project" command-line option, if any.
Optional Visible As Boolean - If specified as False, the screen will be opened but will not be displayed. Use the Visible property of the GefScreen to change the visibility. The default is True.
Optional ObjectToEdit As GefObject - If specified, this is the object that is being "edited" by the new screen. "Edited" means that it will receive the values from the public variables on the screen object.
Description: The object that is being edited is defined as GefScreen.ObjectToEdit on the popup screen. The variables on the ObjectToEdit will be exchanged with the public variables on the screen. If the ObjectToEdit parameter is missing then no values will be brought back to the parent screen.

The GefScreen.CloseEx method must be used to close the dialog window.

If the screen file does not exist or cannot be opened, this method returns Nothing.


Sub GefApplication_DialogPopup()
    Dim oCimApp As GefApplication
    Dim oCimScr As GefScreen
    Dim strScrName As String
    Dim strProject As String
    strScrName = Environ("SITE_ROOT") & "Screens\Screen1.Cim"
    strProject = PointGet("$PROJECT")
    Set oCimApp = CreateObject("CimView")
    Set oCimScr = oCimApp.DialogPopup(CimGetScreen, strScrName, _
        strProject, True, CimGetObject)
    If oCimScr Is Nothing Then
        MsgBox "Unable to open the dialog box"
    End If
End Sub