Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

SizeToFit方法_调整控件的大小

时 间:2020-12-12 00:05:17
作 者:杨雪   ID:42182  城市:南京
摘 要:使用 SizeToFit 方法可以调整控件的大小,使其能够容纳所包含的文本或图像。
正 文:

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

expression.SizeToFit
expression     必需。返回“应用于”列表中的一个对象的表达式。


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

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

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

注   释:

并非所有包含文本或图像的控件都能通过 SizeToFit 方法调整大小。对于某些绑定到数据的控件,其大小根据记录的不同而不同。这些控件包括文本框、列表框、组合框和绑定对象框控件。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 = "Extremely Long Control Caption"
    ' 设置控件尺寸自适应标题
    ctl.SizeToFit

End Sub


图   示:



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助