通过

Label.SizeToFit 方法 (Access)

  • 项目

使用 SizeToFit 方法调整控件的大小，使其适合它包含的文本或图像。

语法

表达式。SizeToFit

表达 一个代表 Label 对象的变量。

备注

例如，可以将 SizeToFit 方法应用规模太小，在其 标题 属性中显示的所有文本的命令按钮。

您可以应用 SizeToFit 方法对仅在窗体设计视图中的控件或报表设计视图。

SizeToFit 方法使控件变大或变小，具体取决于它包含的文本或图像的大小。

将 SizeToFit 方法与 CreateControl 方法结合使用，以调整在代码中创建的新控件的大小。

注意

[!注释] 通过 SizeToFit 方法就可以调整大小并不是所有的控件包含文本或图像。 多个控件绑定到数据可以变化的大小从一条记录到下一步。 这些控件包括文本框、 列表框、 组合框和绑定的对象框控件。 SizeToFit 方法不适用于控件在数据访问页。

示例

以下示例在窗体上创建新窗体和命令按钮。 该过程然后设置控件的 标题 属性和控件的大小以容纳标题。

Sub SizeNewControl() 
 Dim frm As Form, ctl As Control 
 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create new command button. 
 Set ctl = CreateControl(frm.Name, _ 
 acCommandButton, , , , 500, 500) 
 ' Restore form. 
 DoCmd.Restore 
 ' Set control's Caption property. 
 ctl.Caption = "Extremely Long Control Caption" 
 ' Size control to fit caption. 
 ctl.SizeToFit 
End Sub

支持和反馈

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