如何使用VBA代码创建或者删除窗体中的控件？

bulesky

如何在设计试图方式下，使用VBA代码创建或者删除窗体中的控件？
谢谢！！！

李啸林

CreateControl 函数在指定的开启窗体上创建一个控件。
?CreateReportControl 函数在指定的开启报表上创建一个控件。

例如，正在建立一个便于用户构建特殊窗体的自定义向导。可以在向导中使用 CreateControl 函数将适当的控件添加到窗体上。

语法

CreateControl(formname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]])
CreateReportControl(reportname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]])

CreateControl 和 CreateReportControl 函数有下列参数。

参数        说明
formname, reportname        一个字符串表达式，用于识别将创建控件的开启窗体或报表的名称。
controltype        下列固有常量之一，用于识别将创建的控件类型。如果要查看这些常量并将它们从“对象浏览器”中粘贴到代码，只需在 Visual Basic 工具栏上单击“对象浏览器”  ，然后在“工程/库”框中单击“Access”。再选择“类”框中的“Constants”。
常量        控件
acLabel        标签
acRectangle        矩形
acLine        线条
acImage        图像控件
acCommandButton        命令按钮
acOptionButton        选项按钮
acCheckBox        复选框
acOptionGroup        选项组
acBoundObjectFrame        结合对象框
acTextBox        文本框
acListBox        列表框
acComboBox        组合框
acSubform        子窗体
acObjectFrame        非结合对象框
acPageBreak        分页符
acCustomControl        ActiveX 控件
acToggleButton        切换按钮
acTabCtl        选项卡控件
section        下列固有常量之一，用于识别包含新控件的节。
常量        节
acDetail        （默认值）切换按钮
acHeader        窗体或报表页眉
acFooter        窗体或报表页脚
acPageHeader        页眉
acPageFooter        页脚
acGroupLevel1Header        组级别 1 标头（仅用于报表）
acGroupLevel1Footer        组级别 1 注脚（仅用于报表）
acGroupLevel2Header        组级别 2 标头（仅用于报表）
acGroupLevel2Footer        组级别 2 注脚（仅用于报表）
如果报表有另外的组级别，首/尾将成对从 9 开始连续编号。
parent        一个字符串表达式，用于识别附加控件所处的上层控件名称。对于没有上层控件的附加项，此参数值为一个空字符串，或忽略参数。
columnname        如果它是一个数椐结合型控件，则为控件将结合的字段名称。
如果正创建一个非结合控件，将此参数设置为零长度字符串。
left, top        用于指示以 twip 为单位的控件左上角坐标值的数值表达式。
width, height        用来指示以 twips 为单位的控件宽度和高度数值表达式。
说明

可以使用自定义向导中的 CreateControl 和 CreateReportControl 函数来创建窗体或报表上的控件。两个函数都将返回一个 Control 对象。
只可以分别在窗体的“设计”视图或报表的“设计”视图中使用 CreateControl 和 CreateReportControl 函数。
可以使用 parent 参数来识别主控件和从属控件之间的关系。例如，如果一个文本框有附属标签，则此文本框为主（上层）控件而此标签是从属（子）控件。在创建标签控件时，设置它的 parent 参数为一个用于识别上层控件名称的字符串。在创建文本框时，设置它的 parent 参数为零长度字符串。

在创建复选框、选项按钮或切换按钮时，也可以设置 parent 参数。一个选项组是它其中包含的复选框、选项按钮或切换按钮的上层控件。拥有上层控件的只能是标签、复选框、选项按钮或切换按钮等控件。当然这些控件也可以不使用上层控件而独立创建。
根据正在创建的控件类型，以及它是否结合到表中字段这两个条件，可以设置 columnname 参数。结合到字段的控件可以是文本框、列表框、组合框、选项组和结合对象框。另外，如果切换按钮、选项按钮和复选框控件没有包含在选项组中，则可以与字段相结合。

如果指定 columnname 参数的字段名称，则可以创建一个结合到该字段的控件。那么所有控件的属性将自动设置为与之对应的字段属性值。例如，控件的 ValidationRule 属性值将会和此字段的属性值相同。

注释   如果向导在新的或现有的窗体或报表中创建控件，它首先需要在“设计”视图中打开窗体或报表。

如果要从窗体或报表中删除控件，请使用 DeleteControl 和 DeleteReportControl 语句。

bulesky

再次表示感谢！