Обращение к элементам управления в цикле

@ghjyby · Регистрация: 25.06.2012

Студворк — интернет-сервис помощи студентам

Есть несколько элементов управления (например: Label1, Label2,...,Label100). Как можно обратиться к ним в цикле?
Это нужно для того, чтобы графически отобразить данные в таблице.
Например, если значение 1-ой ячейки не равно "", то Label1.BackColor = &HFF& и переходим к следующей ячейке, которой соответствует Label2 и т.д.

@VladConn · 26.07.2006, 19:27

Sdelat' ix elementami massiva elementov upravleniya i obraschat'sya k nim poindexno.

29.07.2006, 02:24

товарищ правду говорит, для этого существуют массивы:

рисуешь один label (Label1)

выделяешь его, и нажимаешь Ctr+C

щёлкаешь по форме и нажимаешь Ctrl+V

на вопрос отвечаешь "Yes"

теперь у тебя два лабеля, причём оба называются одинакого (Label1), но индексы (Index) у них разные: Label1(0) и Label1(1).

Теперь делай с ними что хочешь, например

for i = 0 to label1.count - 1

label1(i).caption = "Label" & i

next i

Хотя если уж очень хочется, то у формы есть коллекция Controls, можно заюзать её.

P.S. Господи, куда мы котимся........

@vbman · 29.07.2006, 20:58

Можно и без массивов:
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is Label Then
'Это метка, чегото делаем...
End If
Next

29.07.2006, 23:26

поправочка: next c

@vbman · 05.08.2006, 20:06

Insolent (29.07.2006)
поправочка: next c

Не а!

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

@ghjyby 0 / 0 / 0 Регистрация: 25.06.2012 Сообщений: 11

	Обращение к элементам управления в цикле 26.07.2006, 18:32. Показов 2732. Ответов 5 Метки нет (Все метки) Есть несколько элементов управления (например: Label1, Label2,...,Label100). Как можно обратиться к ним в цикле? Это нужно для того, чтобы графически отобразить данные в таблице. Например, если значение 1-ой ячейки не равно "", то Label1.BackColor = &HFF& и переходим к следующей ячейке, которой соответствует Label2 и т.д. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	26.07.2006, 19:27
	Sdelat' ix elementami massiva elementov upravleniya i obraschat'sya k nim poindexno. 0

Insolent
	29.07.2006, 02:24
	товарищ правду говорит, для этого существуют массивы: рисуешь один label (Label1) выделяешь его, и нажимаешь Ctr+C щёлкаешь по форме и нажимаешь Ctrl+V на вопрос отвечаешь "Yes" теперь у тебя два лабеля, причём оба называются одинакого (Label1), но индексы (Index) у них разные: Label1(0) и Label1(1). Теперь делай с ними что хочешь, например for i = 0 to label1.count - 1 label1(i).caption = "Label" & i next i Хотя если уж очень хочется, то у формы есть коллекция Controls, можно заюзать её. P.S. Господи, куда мы котимся........

@vbman 0 / 0 / 0 Регистрация: 27.11.2009 Сообщений: 28
	29.07.2006, 20:58
	Можно и без массивов: Dim c As Control For Each c In Me.Controls If TypeOf c Is Label Then 'Это метка, чегото делаем... End If Next 0