Массивы

Тема в разделе "Visual Basic", создана пользователем kaskad755, 29 мар 2009.

  1. kaskad755

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    Есть массив text1(1 to 10) Надо поменять цвет с 1 по 5, не могу сообразить?( подскажите: что и где почитать, не хочу переписывать чужие мозги...........)
     
  2. XOXOJI

    XOXOJI Гость

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

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

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    Я, не так объяснил (цвет меняется клавишей "Z"), но из 10 полей только 5 или 2, или 7 ???????????????
     
  4. kaskad755

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    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
     
  5. Tanya

    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

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

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

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

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    Это головоломка судоку 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
     
Загрузка...
Похожие Темы - Массивы
  1. Искушенный
    Ответов:
    0
    Просмотров:
    430
  2. Искушенный
    Ответов:
    1
    Просмотров:
    418
  3. Искушенный
    Ответов:
    1
    Просмотров:
    385
  4. Rpp
    Ответов:
    1
    Просмотров:
    809
  5. romanovbadboy2
    Ответов:
    0
    Просмотров:
    669

Поделиться этой страницей