タブのページを切り替えたらイベントを発生させたい

質問

図のようにフォーム上にタブを乗せました。
ページ１とページ２があるのですが
ページ２がアクティブになったら（ページ2をクリックしたら）イベントを発生させたいのですが、どうすればいいでしょうか？

Private Sub ページ2_Click()
MsgBox "ページ2_Click"
End Sub
として実験してみましたが
タブの部分（ページ2と書かれているつまみの部分）にカーソルを当てて、アクティブにしただけではダメで
つまみの下をクリックしないと発生しませんでした。

なのでページ１からページ２を上にしてイベントを発生させるには
1回目→つまみの部分をクリック
2回目→つまみの下の部分をクリック
と言うように2回クリックしないとイベントが発生しません。

理想はつまみの部分をアクティブに（クリック）すると
イベントを発生させたいです。

よろしくお願いします。

回答No.1

nag0720 · ベストアンサー

タブコントロールにChangeイベントがあります。
また、タブのValueプロパティを見れば表示ページが分かります。

お礼

できました！
ありがとうございます。

回答No.2

imogasi

#1でお答えが出ていますが
エクセルVBAでテストをやりました例ですが、
ユーザーフォーム上にマルチページを２ページ作りました。
Private Sub MultiPage1_Change()
MsgBox "multipage" & MultiPage1.Value + 1 & "が選択されました"
End Sub
で切り替えるごとに、選択したページ番号を表示します。
ーー
また
UserForm1 で
Private Sub UserForm_Click()
If UserForm1.MultiPage1.Value = 1 Then
UserForm1.MultiPage1.Value = 0
Else
UserForm1.MultiPage1.Value = 1
End If
End Sub
を入れると、ユーザーフォーム上のクリックで、マルチページが２つしかない場合は、相互に入れ替わります。

お礼

ありがとうございます。参考になりました。