ref: ErrExDialogOptions

.

---

Property Get HTML_MainBody() As String

Property Let HTML_MainBody(ByVal Value As String)

Returns/sets the main body HTML.

Property Get HTML_MoreInfoBody() As String

Property Let HTML_MoreInfoBody(ByVal Value As String)

Returns/sets the optional more-info HTML.

Property Get HTML_CallStackItem() As String

Property Let HTML_CallStackItem(ByVal Value As String)

Returns/sets the per-callstack-item HTML.

Property Get HTML_VariableItem() As String

Property Let HTML_VariableItem(ByVal Value As String)

Returns/sets the per-variable-item HTML.

Property Get WindowCaption() As String

Property Let WindowCaption(ByVal Value As String)

Returns/sets the window caption.

Property Get MinimumWindowWidth() As Long

Property Let MinimumWindowWidth(ByVal Value As Long)

Returns/sets the minimum width of the dialog.

Property Get MoreInfoCaption() As String

Property Let MoreInfoCaption(ByVal Value As String)

Returns/sets the caption of the MoreInfo button.

Property Get LessInfoCaption() As String

Property Let LessInfoCaption(ByVal Value As String)

Returns/sets the caption of the MoreInfo button when in it's Less-info state.

Property Get ButtonPaddingH() As Long

Property Let ButtonPaddingH(ByVal Value As Long)

Returns/sets the amount of horizontal padding between buttons, in pixels.

Property Get ButtonPaddingV() As Long

Property Let ButtonPaddingV(ByVal Value As Long)

Returns/sets the amount of vertical padding above and below the buttons, in pixels.

Property Get ButtonSpacingH() As Long

Property Let ButtonSpacingH(ByVal Value As Long)

Returns/sets the amount of inner horizontal padding between the button caption and the button itself, in pixels.

Property Get ButtonSpacingV() As Long

Property Let ButtonSpacingV(ByVal Value As Long)

Returns/sets the amount of inner vertical padding between the button caption and the button itself, in pixels.

Property Get PaddingH() As Long

Property Let PaddingH(ByVal Value As Long)

Returns/sets the amount of horizontal padding between main objects, in pixels.

Property Get PaddingV() As Long

Property Let PaddingV(ByVal Value As Long)

Returns/sets the amount of vertical padding between main objects, in pixels.

Property Get ScreenBorderPaddingV() As Long

Property Let ScreenBorderPaddingV(ByVal Value As Long)

Returns/sets the amount of vertical padding to leave around the dialog with respect to the screen dimensions, in pixels.

Property Get ColumnPaddingH() As Long

Property Let ColumnPaddingH(ByVal Value As Long)

Returns/sets the amount of horizontal padding added to columns, in pixels.

Property Get LineSpacingV() As Long

Property Let LineSpacingV(ByVal Value As Long)

Returns/sets the amount of vertical padding added per line-feed, in pixels.

Property Get MainBackColor() As Long

Property Let MainBackColor(ByVal Value As Long)

Returns/sets the main back color for the dialog.

Property Get ButtonBarBackColor() As Long

Property Let ButtonBarBackColor(ByVal Value As Long)

Returns/sets the button bar back color used in the dialog.

Property Get MaxNumCallStackItems() As Long

Property Let MaxNumCallStackItems(ByVal Value As Long)

Returns/sets the maximum number of variables to be displayed.

Property Get MaxNumVariablesItems() As Long

Property Let MaxNumVariablesItems(ByVal Value As Long)

Returns/sets the maximum number of callstack items to be displayed.

Property Get DefaultButtonIsBold() As Boolean

Property Let DefaultButtonIsBold(ByVal Value As Boolean)

Returns/sets whether or not the default button is to have bold text.

Property Get ShowMoreInfoButton() As Boolean

Property Let ShowMoreInfoButton(ByVal Value As Boolean)

Returns/sets whether or not the MoreInfo button is to be displayed.

Property Get AllowEnterKey() As Boolean

Property Let AllowEnterKey(ByVal Value As Boolean)

Returns/sets whether or not the ENTER key is active.

Property Get AllowTabKey() As Boolean

Property Let AllowTabKey(ByVal Value As Boolean)

Returns/sets whether or not the TAB key is active.

Property Get DefaultButtonID() As Long

Property Let DefaultButtonID(ByVal Value As Long)

Returns/sets the index of the default button (index from left to right).

Sub AddButton(ByVal DisplayName As String, _
              ByVal ButtonAction As DefaultButtonActions)

Adds a standard button to the error dialog.

Sub AddCustomButton(ByVal DisplayName As String, _
              ByVal OnClickProcName As String)

Adds a custom button to the error dialog.  OnClickProcName is a string representing the name of a public subroutine in your VBA code that will be called when the button is pressed.

Sub RemoveAllButtons()

Removes all current buttons from the error dialog.

Function GetButtonIDByIndex(ByVal Index As Long) As Variant

Used to determine what buttons are already defined for this dialog.  Returns either a string (representing OnClickProc) for custom buttons, or a Long integer (representing DefaultButtonActions enum) for standard buttons.

Function GetButtonCaptionByIndex(ByVal Index As Long) As Variant

Used to determine what button captions are already defined for this dialog.  Used alongside GetButtonIDByIndex.

Property Get ButtonCount() As Long

Returns the number of buttons currently defined on this dialog.

Property Get Timeout() As Long

Property Let Timeout(ByVal Value As Long)

Milliseconds value, defaults to 0 (off).  If set to a non-zero value, then the dialog will atuomatically close after the time has elapsed, returning as if the End button has been pressed (OnErrorEnd is returned).

Property Get Timedout() As Boolean

Indicates if the timeout period elapsed when the the dialog was last shown.

---

Enumeration description: DefaultButtonActions

---

BUTTONACTION_ONERRORRESUMENEXT = &H2
BUTTONACTION_ONERROREND = &H4
BUTTONACTION_ONERRORDEBUG = &H5
BUTTONACTION_ONERRORRETRY = &H7
BUTTONACTION_ONERROREXITPROCEDURE = &H9
BUTTONACTION_SHOWVARIABLES = &Ha
BUTTONACTION_SHOWHELP = &Hb
BUTTONACTION_VARIABLES_CLOSE = &H101