SizeToFit 方法

全部顯示

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

expression.SizeToFit

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

說(shuō)明

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

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

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

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

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

示例

下面的示例創(chuàng)建一個(gè)新窗體并在該窗體上創(chuàng)建一個(gè)新的命令按鈕。然后設(shè)置控件的 Caption 屬性并調(diào)整控件的大小以容納標(biā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