This function creates the dialog window.
object.CreateDialog(Caption)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
Caption |
In, Required | string |
The caption of the dialog window |
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)