Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите с циклом 
:(
    Опции темы
gangsterovich
Дата 9.11.2017, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1
добрый день.  у меня множество текстбоксов.в коде я блоки кода что написал ниже копипастю и меняю вместо 1 двойку,тройку и тд ( TextBoxZap2.BackColor ,extBoxPutZap2.Text  ,  TextBoxZap3.BackColor,extBoxPutZap3.Text).  как тексбоксы в цикле перебирать? спасибо

Код

 If Not IO.File.Exists(TextBoxPutVosmoy.Text + Parameters.UserProverka1 + ".txt") Then
                TextBoxZap1.BackColor = Color.Red
                Process.Start(TextBoxPutZap1.Text)
                System.Threading.Thread.Sleep(60000)
            Else
                TextBoxZap1.BackColor = Color.Olive
            End If
PM MAIL   Вверх
Akina
Дата 9.11.2017, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 453
Код

for i = 1 to 10
    controls("TextBoxZap" & cstr(i)).BackColor = Color.Red
next



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
gangsterovich
Дата 9.11.2017, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1
както вот неработает
 
Код

  Controls("TextBoxZap" & CStr(1)).BackColor = Color.Red

воттак пробую один текстбокс подсветить.ошибку выдает. думал из под кнопки неработает.поставил назагрузку формы-тоже ошибка
PM MAIL   Вверх
gangsterovich
Дата 11.11.2017, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1
получается если 
Код

Controls("TextBox" & CStr(17)).BackColor = Color.Red 
 текстбокс не переименовывать то все работает.а  с переименованием нефига не работает.спасибо
PM MAIL   Вверх
Akina
Дата 11.11.2017, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 453
Цитата(gangsterovich @  9.11.2017,  20:38 Найти цитируемый пост)
воттак пробую один текстбокс подсветить.ошибку выдает.

Во-первых, текст ошибки принято цитировать.
Во-вторых, следует указать, какая из многочисленных Controls используется - указанием конкретного экземпляра формы. А не обращаться к абстрактной коллекции.
Цитата(gangsterovich @  11.11.2017,  12:52 Найти цитируемый пост)
с переименованием нефига не работает

ЯННП. Зачем переименовывать контрол? Ну и сразу - а почему не создан массив контролов, если они однотипны?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1238 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.