if文からcase文への置き換え
ピクチャボックスをクリックしたら、チェック
ボックスがチェックされるメソッドを作りたいと
思っています。
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文の使い方が間違っているんだとは思いますが、どこがどう
間違っているのがよくわかりません。
ご教授いただけないでしょうか?