通过

Form.DefaultControl 属性 (Access)

  • 项目

DefaultControl 属性返回一个 Control 对象，您可以使用该对象为特定窗体上的特定类型的控件设置默认属性。 此为只读属性。

语法

表达式。DefaultControl (ControlType)

expression：表示 Form 对象的变量。

参数

名称 必需/可选 数据类型 说明
ControlType 必需 长整型 AcControlType 常量，指示要设置默认属性设置的控件的类型。

备注

DefaultControl 属性使您可以从代码中设置控件的默认属性。 为特定类型的控件设置默认属性后，该类型的每个后续创建的控件将具有相同的默认值。

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

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

DefaultControl 属性返回 ControlType 参数指定的类型的 Control 对象。 此 Control 对象并不代表窗体上的实际控件，但随后是所有模板的默认控件而不是创建该类型的控件。 设置默认的 控件 对象以相同的方式，您将设置单个窗体上控件的属性由 DefaultControl 属性返回控件属性。

只能在窗体设计视图或报表设计视图中，可以使用 DefaultControl 属性。 如果您尝试将此属性应用于窗体或报表设计视图中所没有，将产生运行时错误。

如果您尝试将不能设置为使用 DefaultControl 属性的默认属性的属性设置，将导致运行时错误。 若要确定哪些属性可以是默认属性，列出了由 DefaultControl 属性返回 控件 对象的 属性 集合。

示例

以下示例创建一个新窗体，并使用 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。