for～nextを使ってテキストボックスのプロパティを変更したいのですが・・・

質問

ヨロシクお願いします。
VB2005でコード書いています。

現状は

For i = 0 To 80

If i = j(20) Then 'And 4 And 5 And 12 Or 13 Or 14 Or 21 Or 22 Or 23 Or 27 Or 28 Or 29 Or _
' 36 Or 37 Or 38 Or 45 Or 46 Or 47 Or 54 Or 55 Or 56 Then
With textbox(i)
.BackColor = Color.Black
.ForeColor = Color.White
End With

End If
Next
このような感じになっています。上の数字を大量に並べているところがコメント化されていて少しゴチャゴチャした感じ（現状では変えたいテキストボックスの番号を配列化して試しています。）になっていますが、基本的には飛び飛びのをif文を使って抽出しその部分のみのテキストボックスプロパティ（背景色等）を変更することができたらと考えているのですが、色々試しても自分の考えているように動いてくれません。

どなたかご存知の方がおられましたら、良きアドバイスをお願い致します。

回答No.2

noah7150 · ベストアンサー

対象の物も配列化して変数確保時の初期化で書くと楽かも

Dim miArray() As Integer = {4, 5, ...}

for i = 0 to miArray.Length - 1
With textbox(j(miArray(i)))
.BackColor = Color.Black
.ForeColor = Color.White
End With
next

お礼

ありがとうございました。
試してみましたが、完璧に自分の思い通りに動作してくれました。
また何かありましたら宜しくお願い致します。

回答No.1

AKARI0418

j(20)の中に4 And 5 And 12 Or 13 Or 14 Or 21 Or 22 Or 23 Or 27 Or 28 Or 29 Or _
' 36 Or 37 Or 38 Or 45 Or 46 Or 47 Or 54 Or 55 Or 56
の数字が格納されているんですよね？
今のロジックのままでは、if分での比較がj(20)の場合しか通りません、つまりi=56のときのみ変更されると思います。

for i = 0 to j.count-1
With textbox(j(i))
.BackColor = Color.Black
.ForeColor = Color.White
End With
next
とすればよいのではないでしょうか。