This function executes the dialog window and returns the boolean result of the user confirmation.
object.Execute()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISDialog interface |
bool
Display the dialog window with data entering control. Show the result of its execution.
Dim aDialog
Dim aControl
Dim aResult
Dim aMessage
Set aDialog = Profile.CreateDialog("My Dialog")
set aControl = aDialog.AddControl("Enter Date", 0, DateAdd("d", -1, Now)) ' sctDateTime
aResult = aDialog.Execute
if aResult then
aMessage = "Ok button was pressed. "
else
aMessage = "Cancel button was pressed. "
end if
aMessage = aMessage & vbNewLine & "Entered date value is " & aControl.Text
Profile.MsgBox(aMessage)