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

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

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

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

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

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

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

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

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

No.2 回答者： todo36 回答日時： 2003/07/18 13:17

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

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さんの意見も参考にさせていただきます。
すばやい返答ありがとうございました。

お礼日時：2003/07/18 13:57

No.1 ベストアンサー 回答者： 2ch 回答日時： 2003/07/18 12:41

＞フォーカスがどこに行ったのか行方不明になってしまいます。

カレントではないタブに乗ったテキストボックスなどに、フォーカスが移動しているため。

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

この回答へのお礼

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

お礼日時：2003/07/18 13:54