TabStripのタブを切り替えるには？

解決

スライム 2005-08-30 02:39:12 No: 124598

Private Sub TabJoho_Click()

    '基本情報フレーム非表示
    fraKihon.Visible = False

    '詳細情報フレーム非表示
    fraSyosai.Visible = False

    '基本情報タブ選択時の場合
    If TabJoho.SelectedItem.Caption = "基本情報" Then

        '基本情報フレーム表示
        fraKihon.Visible = True

    '詳細情報タブ選択時の場合
    ElseIf TabJoho.SelectedItem.Caption = "詳細情報" Then

        '詳細情報フレーム表示
        fraSyosai.Visible = True

    End If

End Sub

これだとタブをクリックすることによって切り替えることができますが
たとえばコマンドボタンをクリックすることによってタブを切り替えたい場合は
どうすればいいでしょうか？

通ってみた 2005-08-30 02:45:50 No: 124599

Private Sub Command1_Click()

TabJoho_Click

End Sub

スライム 2005-08-30 02:53:51 No: 124600

返信ありがとうございます。
すみません。
質問が間違ってました。
タブの切り替えではなくてタブをクリックせずに特定のタブを開きたい場合はどうすればいいでしょうか？

id_rsa+ 2005-08-30 02:56:20 No: 124601

Private Sub Command1_Click()
TabStrip1.Tabs(TabStrip1.SelectedItem.Index + 1).Selected = True
End Sub

スライム 2005-08-30 21:09:44 No: 124602

'基本情報タブ表示
TabJoho.Tabs(1).Selected = True

これでうまくいきました。
ありがとうございました。

スライム 2005-08-30 21:10:15 No: 124603

チェックし忘れ。