SizeToFit 方法

全部顯示

使用 SizeToFit 方法可以調(diào)整控件的大小，使其能夠容納所包含的文本或圖像。

expression.SizeToFit

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達式。

說明

例如，可以對一個太小、無法顯示其 Caption 屬性中全部文本的命令按鈕應(yīng)用 SizeToFit 方法。

使用 SizeToFit 方法等效于在一個窗體或報表中選擇一個控件，指向“格式”菜單中的“大小”，然后單擊“正好容納”。只能在窗體“設(shè)計”視圖或報表“設(shè)計”視圖中對控件應(yīng)用 SizeToFit 方法。

SizeToFit 方法使控件變大還是變小，取決于它所包含的文本或圖像的大小。

可以將 SizeToFit 方法與 CreateControl 方法一起使用，以便調(diào)整代碼中創(chuàng)建的新控件的大小。

注釋  并非所有包含文本或圖像的控件都能通過 SizeToFit 方法調(diào)整大小。對于某些綁定到數(shù)據(jù)的控件，其大小根據(jù)記錄的不同而不同。這些控件包括文本框、列表框、組合框和綁定對象框控件。SizeToFit 方法不適用于數(shù)據(jù)訪問頁上的控件。

示例

下面的示例創(chuàng)建一個新窗體并在該窗體上創(chuàng)建一個新的命令按鈕。然后設(shè)置控件的 Caption 屬性并調(diào)整控件的大小以容納標題。

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