This function creates a new control on the form page.
| Class Name | Type Name |
| TButton | TICDOButton |
| TBevel | TICDOBevel |
| TCheckBox | TICDOChechBox |
| TListControl | TICDOListControl |
| TComboBox | TICDOComboBox |
| TEdit | TICDOEdit |
| TImage | TICDOImage |
| TLabel | TICDOLabel |
| TLinker | TICDOLinker |
| TMemo | TICDOMemo |
| TRadioButton | TICDORadioButton |
| TReport | TICDOReport |
| TRichEdit | TICDORichEdit |
| TISliceImageEditor | TISliceImageEditor |
| TShape | TICDOShape |
| TWebBrowser | TICDOWebBrowser |
object.ControlCreate(aPagenameOrIndex, aClassName,
aControlName)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfileForm interface |
|
aPagenameOrIndex |
In, Required | object |
The page name or index where the control will be
placed on |
aClassName |
In, Required | string |
The class name of the control |
aControlName |
In, Required | string |
The name of the control |
Add a new control on the form page.
Dim aForm
Dim aControl
Set aForm = Profile.Form
set aControl = aForm.ControlCreate (1, "TEdit", "edtPatientName")
aControl.Text = "Patient's Name"