Массивы

[kaskad755]

Есть массив text1(1 to 10) Надо поменять цвет с 1 по 5, не могу сообразить?( подскажите: что и где почитать, не хочу переписывать чужие мозги...........)

 

[XOXOJI]

Поменять цвет текста чтоли? если да то так

for i=1 to 5
with text1(i)
.forecolor=(здесь указываешь цвет)
end with
next i

 

[kaskad755]

Я, не так объяснил (цвет меняется клавишей "Z"), но из 10 полей только 5 или 2, или 7 ???????????????

 

[kaskad755]

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
KeyCode = vbKeyZ
For i = 0 To 255
With Text(0) 'меняется только 0(а надо от 0 до 16 и 21,27,61,54)(застрял)
.BackColor = vbRed
End With
Next i

End Select

End Sub

 

[Tanya]

К чему цикл от 0 до 255, если в скобочках явно пишем : от 0 до 16 и 21,27,61,54
For i=0 to 16
Text(i).BackColor = vbRed
Next i
Text(21).BackColor = vbRed
Text(27).BackColor = vbRed
Text(54).BackColor = vbRed
Text(61).BackColor = vbRed

а вообще, неплохо немного указывать контекст
ибо вообще непонятно о чем идет речь

поменять цвет текста, ячейки, как определить какой ячейки
известно ли какой ячейки цвет нужно менять и т.п.

не бойтесь раскрывать немного больше, никто не будет использовать ваши задумки в коммерческих целях
наверное

 

[kaskad755]

Это головоломка судоку 16х16 (БОЛЬШОЕ СПАСИБО, но высветилась другая проблемка- при вводе символа в text(0)...(2)...(3)...и т. д. поле закрашивается красным, а должно оставаться белым????

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index

Case 0
KeyCode = vbKeyZ
For i = 0 To 16
Text(i).BackColor = vbRed
Next i
Text(21).BackColor = vbRed
Text(27).BackColor = vbRed
Text(54).BackColor = vbRed
Text(61).BackColor = vbRed

End Select

End Sub