タブダイアログのフォーカスの移動について

質問

タブダイアログを使った場合の
フォーカスの移動についての質問です。

状態としましては
フォームにタブ数３のタブダイアログがあり、
それぞれのタブに３つテキストボックスがあります。
また、タブダイアログとは別にフォーム上に
閉じるボタンが１つあります。

現在１つ目のタブの１つ目のテキストボックスに
フォーカスがあり、Tabキーでフォーカスを
移動させていくのですが、
３つ目のテキストボックスでtabキーを押すと
フォーカスがどこに行ったのか
行方不明になってしまいます。

なぜか２つ目と３つ目のタブの
３つ目のテキストからは
閉じるボタンへフォーカスが移動するのですが、
１つ目のテキストだけが行方不明になってしまいます。
（shift+tabで戻ってきません）
また、３つ目のタブのキャプションからの
フォーカス移動も行方不明となってしまうます。

タブインデックスは
タブダイアログボックスが０
１つ目のタブの１つ目のテキストが１
１つ目のタブの２つ目のテキストが２
１つ目のタブの３つ目のテキストが３
２つ目のタブの１つ目のテキストが４
　　　　　　　・
　　　　　　　・
３つ目のタブの３つ目のテキストが９
閉じるボタンが１０
となっています。

タブダイアログのフォーカス移動を制御するには
どうしたら良いのでしょうか？

また、行方不明になってしまうフォーカスの
現在位置を見つけるようなことはできますでしょうか？

よろしく回答のほどお願いします。

回答No.1

2ch · ベストアンサー

＞フォーカスがどこに行ったのか行方不明になってしまいます。
カレントではないタブに乗ったテキストボックスなどに、フォーカスが移動しているため。

回避策
SSTab1_Clickのイベントで現在のカレントタブを認識し、全てのテキストボックスのTabStopの状態を切り替える。

お礼

早速の返事ありがとうございます。
回避策にて無事に希望通りの動きをしてくれました。
適切な回答どうもありがとうございました。

回答No.2

todo36

フォーカスが移った時のタブの切り替えを面倒みるとか

Private Sub Text1_GotFocus(Index As Integer)
Select Case Index
Case 0, 1, 2
SSTab1.Tab = 0
Case 3, 4, 5
SSTab1.Tab = 1
Case 6, 7, 8
SSTab1.Tab = 2
End Select
End Sub

お礼

2chさんの回避策にて希望の動きを実現できましたが、
todo36さんの意見も参考にさせていただきます。
すばやい返答ありがとうございました。