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

Access批量更改所有窗体控件的字体大小

2018-01-15 15:44:00
tmtony8
原创
1585

在程序设计中,会根据要求设置多个窗体供客户操作使用。窗体控件也会按要求设置相关样式。

但是在后续的设计的美观,或者客户需求的改变,往往样式都需要微调。比如字体大小。如果逐个窗体去修改。这无疑是一项艰辛的工作。如何批量更改窗体控件的字体大小呢?


如原程序,控件字体为8号


在模块中创建以下代码:

Function frmFontSize(intFontSize As Integer)
   On Error Resume Next
    Dim obj As AccessObject, dbs As Object
    Dim ctl As Control
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        DoCmd.OpenForm obj.Name, acDesign, , , , acHidden
        For Each ctl In Forms(obj.Name).Controls   '循环更改窗体控件的字体大小
            ctl.fontsize = intFontSize
        Next
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
End Function


调用改代码,设置控件字体为12

frmFontSize(12)


运行效果,如图所示:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.19
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    快船vs步行者 跳跳猫猫援彩金 海豚礁投注 自由精神注册 手机电玩城水果拉霸 猛龙雄鹿回放2019 玉皇大帝姓什么 宁夏福彩快三开奖结果 前区时时彩走势图 三倍猴子彩金