GefEventContext.CloseReason (read-only property)

Gets the reason for a screen close event.
Syntax: long = object.CloseReason
Description: This method is only valid for events of type gefEventDialogClose and gefEventScreenClose. It returns the CloseReason value passed to the method GefScreen.CloseEx. If GefScreen.CloseEx was not used the value is 0.

Example:

Sub GefEventContext_CloseReason()
    
    Dim oCimEvntContxt As GefEventContext
    Set oCimEvntContxt = CimGetEventContext
    MsgBox oCimEvntContxt.CloseReason
    
End Sub
See Also: GefScreens.DialogPopup , GefApplication.DialogPopup