在窗体中新建控件的方法

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

来源:AccessHome   点击数:3542   评论数:1　 评论 | 收藏 | 复制

时　间: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