Access VBA教程:DefaultControl属性

DefaultControl属性返回一个Control对象,通过该对象,可以为特定窗体或报表上特定类型的控件设置默认属性。例如,在窗体上创建文本框之前,可能想为文本框设置默认属性,这样以后就可以创建多个带有相同基本属性设置的文本框,而不必在创建每个文本框时分别为其设置属性。

expression.DefaultControl(controltype)

ItemData属性有以下参数:

参数 说明
expression 一个表达式,其值为将在其上创建控件的FormReport对象。为某类型控件定义的默认属性仅应用于在该窗体或报表上创建的相同类型的控件。
controltype 一个固有常量,表明要设置默认属性的控件类型。

说明

DefaultControl属性使您可以在代码中设置控件的默认属性。一旦为特定类型的控件设置了默认属性,则在此之后创建的每个该类型的控件都将具有同样的默认值。

例如,如果将默认的命令按钮的 FontSize属性设为 12,则每个新的命令按钮都将具有 12磅大小的字体。

并非所有的控件属性都可以作为默认属性。能否作为默认属性取决于控件的类型。

DefaultControl属性返回一个由 controltype参数指定类型的 Control对象,该对象并不代表窗体中的实际控件,而是一个作为所有后续创建的该类型控件模板的默认控件。可以为 DefaultControl属性返回的 Control对象设置默认控件属性,就像为窗体上的单个控件设置属性一样。

有关可以作为 controltype参数传送的固有常量的列表,请参阅 CreateControl函数。

DefaultControl属性只能在窗体“设计”视图或报表“设计”视图中使用。如果试图在非“设计”视图中向窗体或报表应用该属性,则会出现运行时错误。

如果试图用 DefaultControl属性对不能设为默认属性的属性进行设置,则也会出现运行时错误。为确定哪些属性可以作为默认属性,可以列出 DefaultControl属性返回的 Control对象的 Properties集合。

示例

下面的示例创建新的窗体并使用 DefaultControl属性返回一个代表默认命令按钮的 Control对象。该过程为命令按钮设置了一些默认属性,然后在窗体上创建新的命令按钮。


Sub SetDefaultProperties()
    Dim frm As Form, ctlDefault As Control, ctlNew As Control
    ' Create new form.
    Set frm = CreateForm
    ' Return Control object representing default command button.
    Set ctlDefault = frm.DefaultControl(acCommandButton)
    ' Set some default properties.
    With ctlDefault
        .FontWeight = 700
        .FontSize = 12
        .Width = 3000
        .Height = 1000
    End With
    ' Create new command button.
    Set ctlNew = CreateControl(frm.Name, acCommandButton, , , , 500, 500)
    ' Set control's caption.
    ctlNew.caption = "New Command Button"
    ' Restore form.
    DoCmd.Restore
End Sub

上页:Access VBA教程:DDETerminateAll方法 下页:Access VBA教程:DefaultWorkspaceClone方法

Access VBA教程:DefaultControl属性

Access VBA教程:DefaultWorkspaceClone方法 Access VBA教程:Delete方法
Access VBA教程:DeleteControl方法 Access VBA教程:DeleteLines方法
Access VBA教程:DeleteReportControl方法 Access VBA教程:DFirst方法
Access VBA教程:DiscardConflict方法 Access VBA教程:DLast方法
Access VBA教程:DLookup方法 Access VBA教程:DMax方法
Access VBA教程:DMin方法 Access VBA教程:Dropdown方法
Access VBA教程:DStDev方法 Access VBA教程:DStDevP方法
Access VBA教程:DSum方法 Access VBA教程:DVar方法
Access VBA教程:DVarP方法 Access VBA教程:Echo方法
Access VBA教程:Eval方法 Access VBA教程:ExportXML方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号