全部显示

使用 SizeToFit 方法可以调整控件的大小，使其能够容纳所包含的文本或图像。

expression.SizeToFit

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

例如，可以对一个太小、无法显示其 Caption 属性中全部文本的命令按钮应用 SizeToFit 方法。

使用 SizeToFit 方法等效于在一个窗体或报表中选择一个控件，指向“格式”菜单中的“大小”，然后单击“正好容纳”。只能在窗体“设计”视图或报表“设计”视图中对控件应用 SizeToFit 方法。

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

可以将 SizeToFit 方法与 CreateControl 方法一起使用，以便调整代码中创建的新控件的大小。

注释  并非所有包含文本或图像的控件都能通过 SizeToFit 方法调整大小。对于某些绑定到数据的控件，其大小根据记录的不同而不同。这些控件包括文本框、列表框、组合框和绑定对象框控件。SizeToFit 方法不适用于数据访问页上的控件。

示例

下面的示例创建一个新窗体并在该窗体上创建一个新的命令按钮。然后设置控件的 Caption 属性并调整控件的大小以容纳标题。

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