access vba动态创建控件

来源:www.accessoft.com 点击数:21678 　 | 收藏 | 复制

时　间:2014-11-01 12:54:37
作　者:易勋 ID：35404 城市：上海
摘　要:在VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。
正　文:

在vb，excel当中，使用Control的add方法可以实现，如下：

01.Private WithEvents cmdHUP AsMsForms.CommandButton

02.

03.Private Sub UserForm_Click()

04.Set cmdHUP = Controls.Add("Forms.CommandButton.1", _

05."cmdHUP", True)

06.

07.With cmdHUP

08..Left = 10

09..Top = 100

10..Width = 175

11..Height = 20

12..Caption = "CnHUP"

13.End With

14.End Sub

15.

16.Public Sub cmdHUP_Click()

17.MsgBox "welcome to http://www.accessoft.com"

18.End Sub

然而，在access当中，当我们调用Controls.Add时，却发现access的vba文档中不存在此方法，在文档中查询了下，发现等价的方法是

CreateControl（），下面是其文档说明：

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	ActiveX 控件
	acImage	图像
	acLabel	标签
	acLine	线条
	acListBox	列表框
	acObjectFrame	未绑定对象框
	acOptionButton	选项按钮
	acOptionGroup	选项组
	acPage	页
	acPageBreak	分页符
	acRectangle	矩形
	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	数值表达式，表示控件的宽度和高度，以缇为单位。