在新窗体中创建一个窗体控件的代码

来源:AccessHome 点击数:7216 　 | 收藏 | 复制

时　间:2009-02-05 07:24:46
作　者:AccessHome整理 ID：563 城市：上海
摘　要:下面的代码：首先基于“订单”表创建一个新窗体，然后使用 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

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店

【打印此文】【关闭窗口】