office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access自动调整控件大小至合适

2018-01-30 16:55:00
tmtony8
原创
9040

在Access中,我们创建的窗体里面有各种的控件。但是有时因为样式排版等问题,导致控件的标题显示不完整。

例如,在一个太小、无法显示其标题属性中全部文本的命令按钮 ,我们需要自动适应大小

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


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


创建源码:

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交流网 创建控件标题"
    ctl.SizeToFit
End Sub



注意:

SizeToFit 方法只能在窗体设计视图 报表设计视图中对控件应用 SizeToFit 方法。

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

    分享