Есть массив text1(1 to 10) Надо поменять цвет с 1 по 5, не могу сообразить?( подскажите: что и где почитать, не хочу переписывать чужие мозги...........)
-
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Поменять цвет текста чтоли? если да то так
for i=1 to 5
with text1(i)
.forecolor=(здесь указываешь цвет)
end with
next i
for i=1 to 5
with text1(i)
.forecolor=(здесь указываешь цвет)
end with
next i
Я, не так объяснил (цвет меняется клавишей "Z"), но из 10 полей только 5 или 2, или 7 ???????????????
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
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
К чему цикл от 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
а вообще, неплохо немного указывать контекст
ибо вообще непонятно о чем идет речь
поменять цвет текста, ячейки, как определить какой ячейки
известно ли какой ячейки цвет нужно менять и т.п.
не бойтесь раскрывать немного больше, никто не будет использовать ваши задумки в коммерческих целях
наверное
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
а вообще, неплохо немного указывать контекст
ибо вообще непонятно о чем идет речь
поменять цвет текста, ячейки, как определить какой ячейки
известно ли какой ячейки цвет нужно менять и т.п.
не бойтесь раскрывать немного больше, никто не будет использовать ваши задумки в коммерческих целях
наверное
Это головоломка судоку 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
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
Обучение наступательной кибербезопасности в игровой форме. Начать игру!