Массивы

  • Автор темы kaskad755
  • Дата начала
K

kaskad755

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

XOXOJI

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

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

kaskad755

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

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
 
T

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

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

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

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

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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!