安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

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

在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 方法使控件变大还是变小,取决于它所包含的文本或图像的大小。

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.21
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假