CreateControl 方法
内容
CreateControl 方法在指定的已打开窗体上创建一个控件。例如，假设您正在建立一个便于用户构建特殊窗体的自定义向导。可以在向导中使用 CreateControl 方法将适当的控件添加到窗体上。
CreateControl(formname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]])
CreateControl 方法包含下列参数：
参数 |
说明 |
|
formname |
字符串表达式，用于标识要在其中创建控件的已打开窗体或报表的名称。 |
|
controltype |
下列固有常量之一，用于标识要创建的控件的类型。若要在“对象浏览器”中查看这些常量并将其粘贴到代码内，请在 Visual Basic 的工具栏上单击“对象浏览器”，然后单击“工程/库”框中的 Access，最后单击“类”框中的 AcControlType。 |
|
常量 |
控件 |
|
acBoundObjectFrame |
||
acCheckBox |
||
acComboBox |
||
acCommandButton |
||
acCustomControl |
||
acImage |
||
acLabel |
||
acListBox |
||
acObjectFrame |
||
acOptionButton |
||
acOptionGroup |
||
acSubform |
||
acTabCtl |
||
acTextBox |
||
acToggleButton |
||
section |
下列固有常量之一，用于标识将包含新控件的节。若要在“对象浏览器”中查看这些常量并将其粘贴到代码中，请在 Visual Basic 的工具栏上单击“对象浏览器”，然后单击“工程/库”框中的 Access，最后单击“类”框中的 AcSection。 |
|
常量 |
节 |
|
acDetail |
（默认）主体节 |
|
acHeader |
窗体或报表页眉 |
|
acFooter |
窗体或报表页脚 |
|
acPageHeader |
页面页眉 |
|
acPageFooter |
页面页脚 |
|
acGroupLevel1Header |
分组级别 1 页眉（仅用于报表） |
|
acGroupLevel1Footer |
分组级别 1 页脚（仅用于报表） |
|
acGroupLevel2Header |
分组级别 2 页眉（仅用于报表） |
|
acGroupLevel2Footer |
分组级别 2 页脚（仅用于报表） |
|
如果报表有另外的分组级别，页首/页脚将成对从 9 开始连续编号。 |
||
parent |
字符串表达式，用于标识附加控件的父控件名称。对于没有父控件的控件，该参数可以是零长度字符串，也可以忽略。 |
|
columnname |
如果创建的是一个数据绑定型控件，则该参数为控件将绑定到的字段的名称。 |
|
如果创建的是一个不绑定到字段的控件，则应将该参数设为零长度字符串。 |
||
left, top |
||
width, height |
数值表达式，表示控件的宽度和高度，以缇为单位。 |
|
说明
可以使用自定义向导中的 CreateControl 和 CreateReportControl 方法来创建窗体或报表上的控件。两个方法都将返回一个 Control 对象。
只可以分别在窗体“设计”视图或报表“设计”视图中使用 CreateControl 和 CreateReportControl 方法。
可以使用 parent 参数确定主控件和次控件之间的关系。例如，如果文本框有一个附属标签，则文本框是主（父）控件，标签是次（子）控件。创建标签控件时，请将其 parent 参数设为标识父控件名称的字符串。创建文本框时，请将其 parent 参数设置为零长度字符串。
在创建复选框、选项按钮或切换按钮时，也可以设置 parent 参数。选项组是其所含复选框、选项按钮或切换按钮的父控件。只有标签、复选框、选项按钮或切换按钮等控件才有父控件。当然这些控件也可以不使用父控件而独立创建。
根据正在创建的控件类型，以及它是否绑定到表中字段这两个条件，可以设置 columnname 参数。绑定到字段的控件可以是文本框、列表框、组合框、选项组和绑定对象框。另外，如果切换按钮、选项按钮和复选框控件没有包含在选项组中，则也可以与字段绑定。
如果指定 columnname 参数的字段名称，则可以创建一个绑定到该字段的控件。然后所有控件的属性都将自动设置为与之对应的字段属性值。例如，控件的 ValidationRule 属性值将与该字段的属性值相同。
注释 如果向导在新的或现有的窗体或报表中创建控件，它必须先在“设计”视图中打开窗体或报表。
若要从窗体或报表中删除控件，请使用 DeleteControl 和 DeleteReportControl 语句。
示例
下面的示例首先基于“订单”表创建一个新窗体，然后使用 CreateControl 方法在窗体上创建文本框控件和附属标签控件。
Sub NewControls()
Dim frm As Form
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer
' Create new form with Orders table as its record source.
Set frm = CreateForm
frm.RecordSource = "Orders"
' Set positioning values for new controls.
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "NewLabel", intLabelX, intLabelY)
' Restore form.
DoCmd.Restore
End Sub