if文からcase文への置き換え

Question

ピクチャボックスをクリックしたら、チェック
ボックスがチェックされるメソッドを作りたいと
思っています。

Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click,PictureBox2.Click 

            'ここから
If sender Is PictureBox1 Then
            If Me.CheckBox1.Checked = False Then
                Me.CheckBox1.Checked = True
            Else
                Me.CheckBox1.Checked = False
            End If
        ElseIf sender Is PictureBox2 Then
            If Me.CheckBox2.Checked = False Then
                Me.CheckBox2.Checked = True
            Else
                Me.CheckBox2.Checked = False
            End If
        End If
       'ここまで
 End Sub

上記のif文をCase文に置き換えたくて、
'ここから
Select Case sender
            Case PictureBox1
                If Me.CheckBox1.Checked = False Then
                    Me.CheckBox1.Checked = True
                Else
                    Me.CheckBox1.Checked = False
                End If
            Case PictureBox2
                If Me.CheckBox2.Checked = False Then
                    Me.CheckBox2.Checked = True
                Else
                    Me.CheckBox2.Checked = False
                End If
        End Select
       'ここまで
上記のように書き換えたのですが、エラーが出てしまいます（ビルドは通るのですが）。

Case文の使い方が間違っているんだとは思いますが、どこがどう
間違っているのがよくわかりません。
ご教授いただけないでしょうか？

NOBNNN · Accepted Answer

SENDER は　iS ｘｘｘ　としかかけません。
ですから　答えは
======================================================
    Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click
        Select Case True
            Case sender Is Me.PictureBox1
                If Me.CheckBox1.Checked = False Then
                    Me.CheckBox1.Checked = True
                Else
                    Me.CheckBox1.Checked = False
                End If
            Case sender Is Me.PictureBox2
                If Me.CheckBox2.Checked = False Then
                    Me.CheckBox2.Checked = True
                Else
                    Me.CheckBox2.Checked = False
                End If
        End Select

    End Sub
======================================================
です。
もっとコーディング数を減らすには
=========================================================
    Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click
        Select Case True
            Case sender Is Me.PictureBox1
                Me.CheckBox1.Checked = Not Me.CheckBox1.Checked

            Case sender Is Me.PictureBox2
                Me.CheckBox2.Checked = Not Me.CheckBox2.Checked
        End Select

    End Sub
================================================================
でも同じ動作をします。
なお、VB.NET 2005 で動作テスト済みです。

if文からcase文への置き換え

SENDER は iS ｘｘｘ としかかけません。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

SENDER は　iS ｘｘｘ　としかかけません。