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

2018-01-15 15:44:00
tmtony8
原創
1718

在程序設計中,會根據要求設置多箇窗體供客戶操作使用。窗體控件也會按要求設置相關樣式。

但是在後續的設計的美觀,或者客戶需求的改變,往往樣式都需要微調。比如字體大小。如果逐箇窗體去修改。這無疑是一項艱辛的工作。如何批量更改窗體控件的字體大小呢?


如原程序,控件字體爲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)


運行效果,如圖所示:

    分享