Проблемка

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

  1. kaskad755

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    Господа подскажите застрял...

    после (Next i), возможно ли написать это одной строкой????

    Text(64).BackColor = vbRed
    Text(80).BackColor = vbRed
    Text(96).BackColor = vbRed
    Text(112).BackColor = vbRed
    Text(128).BackColor = vbRed
    Text(144).BackColor = vbRed
    Text(160).BackColor = vbRed
    Text(176).BackColor = vbRed
    Text(192).BackColor = vbRed
    Text(208).BackColor = vbRed
    Text(224).BackColor = vbRed
    Text(240).BackColor = vbRed
    ==========================================================


    Select Case Index
    Case 0 '-----------------------0------------------------------
    If Check1.Value = vbChecked Then
    For i = 0 To 19
    For a = 48 To 51
    For a1 = 32 To 35
    Text(i).BackColor = vbRed
    Text(a).BackColor = vbRed
    Text(a1).BackColor = vbRed
    Next a1
    Next a
    Next i
    Text(64).BackColor = vbRed
    Text(80).BackColor = vbRed
    Text(96).BackColor = vbRed
    Text(112).BackColor = vbRed
    Text(128).BackColor = vbRed
    Text(144).BackColor = vbRed
    Text(160).BackColor = vbRed
    Text(176).BackColor = vbRed
    Text(192).BackColor = vbRed
    Text(208).BackColor = vbRed
    Text(224).BackColor = vbRed
    Text(240).BackColor = vbRed
    End If
    ============================
     
  2. skysun

    skysun Гость

    Не понял вопроса?
     
  3. kaskad755

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0

    Можно ли записать это, одной строкой?
    Text(64).BackColor = vbRed
    Text(80).BackColor = vbRed
    Text(96).BackColor = vbRed
    Text(112).BackColor = vbRed
    Text(128).BackColor = vbRed
    Text(144).BackColor = vbRed
    Text(160).BackColor = vbRed
    Text(176).BackColor = vbRed
    Text(192).BackColor = vbRed
    Text(208).BackColor = vbRed
    Text(224).BackColor = vbRed
    Text(240).BackColor = vbRed
     
  4. XOXOJI

    XOXOJI Гость

    да

    for i=64 to 241 step 16
    Text(i).BackColor = vbRed
    next i
     
  5. kaskad755

    kaskad755 Active Member

    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
     
Загрузка...
Похожие Темы - Проблемка
  1. Tarik
    Ответов:
    3
    Просмотров:
    557
  2. Antiseptik
    Ответов:
    3
    Просмотров:
    882
  3. Wolfises
    Ответов:
    2
    Просмотров:
    2.100
  4. Sangitam
    Ответов:
    4
    Просмотров:
    3.306

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