うまくできない？？NO３

質問

If Index = 1 Or 6 Or 11 Or 16 Or 21 Then

If P1(1).BackColor = vbRed Then
P1(1).BackColor = vbBlue
Else
P1(1).BackColor = vbRed
End If

If P1(6).BackColor = vbRed Then
P1(6).BackColor = vbBlue
Else
P1(6).BackColor = vbRed
End If

If P1(11).BackColor = vbRed Then
P1(11).BackColor = vbBlue
Else
P1(11).BackColor = vbRed
End If

If P1(16).BackColor = vbRed Then
P1(16).BackColor = vbBlue
Else
P1(16).BackColor = vbRed
End If

If P1(21).BackColor = vbRed Then
P1(21).BackColor = vbBlue
Else
P1(21).BackColor = vbRed
End If

'--------------------------------------------------------------------

ElseIf Index = 2 Or 7 Or 12 Or 17 Or 22 Then
～～～省略

ElseIf Index = 5 Or 10 Or 15 Or 20 Or 25 Then

If P1(5).BackColor = vbRed Then
P1(5).BackColor = vbBlue
Else
P1(5).BackColor = vbRed
End If

If P1(10).BackColor = vbRed Then
P1(10).BackColor = vbBlue
Else
P1(10).BackColor = vbRed
End If

If P1(15).BackColor = vbRed Then
P1(15).BackColor = vbBlue
Else
P1(15).BackColor = vbRed
End If

If P1(20).BackColor = vbRed Then
P1(20).BackColor = vbBlue
Else
P1(20).BackColor = vbRed
End If

If P1(25).BackColor = vbRed Then
P1(25).BackColor = vbBlue
Else
P1(25).BackColor = vbRed
End If

End If

'---------------------------------------------------------------------

End Sub

※みにくくてすいません　リンクを張るのは禁止らしいので・・・できないですね・・・

関連URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=418248
関連URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=418250

回答No.2

taisuke555 · ベストアンサー

＃１で回答した者です。

daisuke-123さんのプログラムで

If Index = 1 Or 2 Or 3 Or 4 Or 5 Then
という書き方では、Index = 1 又は 2 又は 3・・・
であって、Index = 1 or Index = 2 or Index = 3 ではありません（たぶん）
ですから、どのピクチャーをクリックしてもこの条件を満たしてしまいます。

この場合、
If Index = 1 or Index = 2 or・・・・ Then
と書くか、
'横反転
Select Case Index
　　Case 1 To 5
　　　'１～５の場合の処理
　　Case 6 To 10
　　　'以下省略
End Select
'縦反転
Select Case Index
　　Case 1,6,11,16,21
　　　'１，６，１１，１６，２１の場合の処理
　　以下省略
End Select
のように書けばよいと思います。

＃１でも書きましたが、
このままでは、クリックしたピクチャーは２度反転しますので
２度反転しないようにしなければいけません。
縦反転の中に
If Index = 1 Or Index = 6 Or Index = 11 Or Index = 16 Or Index = 21 Then
　　If Index <> 1 Then
　　　　If P1(1).BackColor = vbRed Then
　　　　　　P1(1).BackColor = vbBlue
　　　　Else
　　　　　　P1(1).BackColor = vbRed
　　　　End If
　　End If
　　If Index <> 6 Then
　　　　If P1(6).BackColor = vbRed Then
　　　　　　P1(6).BackColor = vbBlue
　　　　Else
　　　　　　P1(6).BackColor = vbRed
　　　　End If
　　End If
　　'以下略
のようにすべての場所に「クリックしたピクチャーでなければ」という条件を入れます。
＃１のプログラムは、１つ１つ書かないでいいように、For...Nextでまわしています。
プログラムでわからない所があれば、補足してください。
２度書きすみません。

お礼

If Index = 1 or Index = 2 or・・・・ Then

>
と書き直すとうまくできました。
　ご回答ありがとうございました。

回答No.1

taisuke555

間違っていたらすみません。
たぶん、クリックした場所が、２度反転されているのではないでしょうか。

以下にプログラムを作ってみましたので、参考にしてください。

Private Sub P1_Click(Index As Integer)
　　Dim wrow As Integer
　　Dim wcol As Integer
　　Dim i As Integer

　　wrow = Int((Index - 1) / 5) * 5 + 1
　　wcol = (Index - 1) Mod 5 + 1
　　'横列反転
　　For i = wrow To wrow + 4
　　　　If P1(i).BackColor = vbRed Then
　　　　　　P1(i).BackColor = vbBlue
　　　　Else
　　　　　　P1(i).BackColor = vbRed
　　　　End If
　　Next i
　　'縦列反転
　　For i = wcol To 20 + wcol Step 5
　　　　If (i <> Index) Then 'クリックしたピクチャーの２度反転防止
　　　　　　If P1(i).BackColor = vbRed Then
　　　　　　　　P1(i).BackColor = vbBlue
　　　　　　Else
　　　　　　　　P1(i).BackColor = vbRed
　　　　　　End If
　　　　End If
　　Next i
End Sub

おかしな所は、補足してくだされば修正します。