This function executes the dialog window and returns the integer result of the user confirmation.
object.Execute2()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISDialog interface |
int
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.Execute2
aMessage = "Result: " & aResult
aMessage = aMessage & vbNewLine & "Entered date value is " & aControl.Text
Profile.MsgBox(aMessage)