Access VBA教程:SizeToFit方法

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

expression.SizeToFit

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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

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

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

VBA示例

下面的示例创建一个新窗体并在该窗体上创建一个新的命令按钮。然后设置控件的 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

上页:Access VBA教程:SetOption方法 下页:Access VBA教程:StringFromGUID方法

Access VBA教程:SizeToFit方法

Access VBA教程:StringFromGUID方法 Access VBA教程:SysCmd方法
Access VBA教程:TextHeight方法 Access VBA教程:TextWidth方法
Access VBA教程:TransferSQLDatabase方法 Access VBA教程:Undo方法
Access VBA教程:UseDefaultFolderSuffix方法 Access VBA教程:AccessObject对象
Access VBA教程:AccessObjectProperty对象 Access VBA教程:AllFunctions集合
Access VBA教程:Application对象 Access VBA教程:BoundObjectFrame对象
Access VBA教程:CheckBox对象 Access VBA教程:CodeData对象
Access VBA教程:CodeProject对象 Access VBA教程:ComboBox对象
Access VBA教程:CommandButton对象 Access VBA教程:Control对象
Access VBA教程:CurrentData对象 Access VBA教程:CurrentProject对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号