オプションボタンのイベント処理

オプションボタンで用意されているイベントは以下の通りです。

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

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

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

Private Sub option1_Click()
    nameLabel.Caption = option1.Caption
End Sub

Private Sub option2_Click()
    nameLabel.Caption = option2.Caption
End Sub

クリックされたオプションボタンに表示されている文字列の値をラベルに表示するようにします。

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

Sub テスト()
    Load sampleForm
    sampleForm.nameLabel.Caption = ""
    sampleForm.option1.Caption = "既婚"
    sampleForm.option1.Value = True
    sampleForm.option2.Caption = "未婚"
    sampleForm.Show
End Sub

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

違うオプションをクリックするとラベルに表示されている内容が変更されます。

OfficePro