VB.netでタブページ切り替え

Question

前提・実現したいこと

VB.netで開発しています。
ボタン押下後、タブページを順に切り替える処理を行っているのですがうまく切り替わりません。

VB.net

Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click

    clickCount += 1
    Select Case clickCount Mod 6
        Case 6
            Me.TabControl1.SelectTab(7)
        Case 5
            Me.TabControl1.SelectTab(6)
        Case 4
            Me.TabControl1.SelectTab(5)
        Case 3
            Me.TabControl1.SelectTab(4)
        Case 2
            Me.TabControl1.SelectTab(3)
        Case 1
            Me.TabControl1.SelectTab(2)
        Case 0
            Me.TabControl1.SelectTab(1)




    End Select
End Sub

Select case文を使用するのは理解しています。
アドバイスお願いいたします。

ここにより詳細な情報を記載してください。

Comments

[KoichiSugiyama]

mod 6 なのにCaseが0~6というのはタイプミスでしょうか？

[maaaakio]

タイプミスではありません

[YAmaGNZ]

まず作っているのはWinFormですか？WPFですか？
また「うまく切り替わらない」とは、ボタンを押しても全く切り替わらないのですか？
それとも、切り替わるべきタブが違うとか、このタブにだけ切り替わらないとかなのですか？

[maaaakio]

説明不足ですみません。
作っているのはWinFormです。
処理の流れとしては、Tabpageが合計で６個あり、Button54を1回押下すればTabpage2,もう1回押すとTabpage3,さらにもう１回押すとTabpage4と順に切り替わるような流れです。

[kaina]

KoichiSugiyamaさんの確認内容はclickCount Mod 6というのはclickCountを6で割った余りを
求めるという意味なので必ず0から5までの値になりますが、Case 6はあり得ない分岐なので
間違ってませんかという意味ですよ。

Answer 1

TabPage の Index はゼロから始まりますので、６つあるのであれば 0 ～ 5 の値を取ります。
clickCount の初期値がゼロなら１回目のボタン押下では SelectTab(2) が実行されるので TabPage3 が表示されます。
また、SelectTab(6)、SelectTab(7) は ArgumentOutOfRangeException になりますね。

Dim clickCount As Integer = 0

Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
    clickCount += 1
    Me.TabControl1.SelectTab(clickCount Mod Me.TabControl1.TabPages.Count)
End Sub

こんな感じでいかがでしょう？