GefScreen.Close (method)

Closes a screen or screens.
Syntax: object.Close SaveChanges
Optional SaveChanges As GefSaveChangesEnum -
Description: For GefScreen, closes the specified GefScreen.

The GefSaveChangesEnum parameter indicates whether to save changes. This parameter is ignored by CimView.


Sub GefScreen_Close()
    Dim oCimScr As GefScreen
    Dim oCimApp As GefApplication
    Set oCimScr = CimGetScreen
    Set oCimApp = oCimScr.Application
    If UCase(oCimApp.Name) = UCase("CimView.Exe") Then
        oCimScr.Close gefSaveChangesYes
    End If
End Sub