2017年11月20日

【Access】トグルボタンのオン・オフのときの表示を変える

2017年11月20日 (月) 22:00 in ,


トグルボタンのオン・オフのときの表示を変える方法です。

例

たとえば、このようなフォームにトグルボタンが貼り付けてあるとします。


このトグルボタンをオン・オフしたときに、ボタンのキャプションと前景色を変更するには次のように記述します。
Private Sub toggle1_AfterUpdate()

    If Me.toggle1.Value Then
        'ON
        Me.toggle1.Caption = "ON"
        Me.toggle1.ForeColor = RGB(255, 0, 0)
    Else
        'OFF
        Me.toggle1.Caption = "OFF"
        Me.toggle1.ForeColor = RGB(0, 0, 0)
    End If
    
End Sub
イベントは、更新後処理です。
ボタンが押されているか押されてないかは、Valueプロパティで判断します。
ValueがTrueなら押されている。ValueがFalseなら押されていないことになります。


実行結果
OFFのとき


ONのとき



＜関連記事＞
【Access】トグルボタンのベベル効果を設定する






スポンサーリンク