Access自動(dòng)調(diào)整控件大小至合適

在Access中，我們創(chuàng)建的窗體里面有各種的控件。但是有時(shí)因?yàn)闃邮脚虐娴葐栴}，導(dǎo)致控件的標(biāo)題顯示不完整。

例如，在一個(gè)太小、無法顯示其標(biāo)題屬性中全部文本的命令按鈕 ，我們需要自動(dòng)適應(yīng)大小

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

創(chuàng)建源碼：

Sub SizeNewControl()
    Dim frm As Form, ctl As Control
    Set frm = CreateForm
    Set ctl = CreateControl(frm.Name, acCommandButton, , , , 500, 500)
    DoCmd.Restore
    ctl.Caption = "Office交流網(wǎng) 創(chuàng)建控件標(biāo)題"
    ctl.SizeToFit
End Sub

注意：

SizeToFit 方法只能在窗體設(shè)計(jì)視圖 或報(bào)表設(shè)計(jì)視圖中對(duì)控件應(yīng)用 SizeToFit 方法。

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