Microsoft Access 掲示板

標準フォームでコントロール名を使用する方法 / 1

2 コメント
views
4 フォロー
1

引数で対象コントロールを渡せはいいでしょう。

標準モジュール

Public Sub initButton(btn as Control)
    Const Chrsize = 10
    With btn
        .FontSize = Chrsize
        .BackColor = RGB(191, 191, 191)
    End With
End Sub

フォームモジュール

Private Sub Form_Load()
    Call Module1.initButton(Me.button1)
    Me.button1.Caption = "01_Japanese"
End Sub
通報 ...