トグルボタンのイベント処理

トグルボタンで用意されているイベントは以下の通りです。

イベント	発生条件
Click	マウスでクリック
DblClick	マウスで2 回クリック
Change	値が変更される
Enter	別のコントロールからフォーカスを受け取る前
Exit	別のコントロールにフォーカスを移す直前
MouseDown	マウスボタンを押す
MouseUp	マウスボタンを離す
MouseMove	マウスボタンを動かす
KeyDown	キーを押す
KeyUp	キーを離す
KeyPress	キーを押す
Error	コントロールでエラーが検出され、呼び出し元のプログラムにエラー情報を返せないとき
BeforeDragOver	ドラッグ アンド ドロップ操作の実行
BeforeDropOrPaste	データをオブジェクトにドロップしようとするか、または貼り付けようとする
BeforeUpdate	コントロールのデータを変更した時の変更される前
AfterUpdate	コントロールのデータを変更した後

例としてChangeイベントを試してみます。

フォームのコードウィンドウを開いて次のように入力します。

Private Sub toggle1_Change()
    If toggle1.Value = True Then
        toggle2.Enabled = True
    Else
        toggle2.Enabled = False
    End If
End Sub

トグルボタン1がチェックされた時だけトグルボタン2が有効となるようにします。

呼びだすマクロは次の通りです。

Sub テスト()
    Load sampleForm
    sampleForm.toggle1.Caption = "既婚"
    sampleForm.toggle2.Caption = "子持ち"
    sampleForm.toggle2.Enabled = False
    sampleForm.Show
End Sub

ではマクロを実行します。

トグルボタン1が押された時だけトグルボタン2が有効になります。

OfficePro