Access Study | Vol.21 デザインで使えるプログラム50

4 特定のコントロールのプロパティを一括変更する

フォームのControlsコレクションからControlオブジェクトをループで取り出し、「ControlType」プロパティや「Name」プロパティ、あるいはその他のプロパティ値に応じて条件分岐することで、条件に一致する特定のコントロールだけのプロパティを取得・設定することができます。

それによってデザイン上の複数のコントロールに対して同じプロパティ値に一括変更することができ、色やスタイルなど外観をすべて同じように整えることができます。
プログラム

Sub SampleCode_04()
'特定のコントロールのプロパティを一括変更する

  Dim ctl As Control

  'アクティブフォームのすべてのコントロールのループ
  For Each ctl In Screen.ActiveForm.Controls
    With ctl
      If .ControlType = acLabel Then
        'ラベルなら背景スタイルを普通にして背景色を変更する
        .BackStyle = 1
        .BackColor = RGB(240, 170, 220)
      End If
    End With
  Next ctl

End Sub

実行例
■実行前

■実行後
| Index | Prev | Next |
Copyright © T'sWare All rights reserved