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

前提・実現したいこと

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文を使用するのは理解しています。
アドバイスお願いいたします。

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

KoichiSugiyama

2021/01/21 07:21

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

maaaakio

2021/01/21 07:36

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

YAmaGNZ

2021/01/21 21:19

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

maaaakio

2021/01/22 00:32

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

kaina

2021/01/22 02:31

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

VB
1Dim clickCount As Integer = 0
2
3Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
4    clickCount += 1
5    Me.TabControl1.SelectTab(clickCount Mod Me.TabControl1.TabPages.Count)
6End Sub

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

投稿2021/01/22 02:16