Как обратиться к Label, подставив в индекс переменную

@vfalex · Регистрация: 20.07.2012

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

Visual Basic

For i = 0 To 5
If rabotniki(i) = 0 Then
Label30(i).Visible = False
For t = 0 To 30
Labeli(t).Visible = False
Next t
End If
Next i

Имеются Label1(0-30) Label2(0-30) Label3(0-30) Label4(0-30) Label5(0-30) Label6(0-30)
В цикле пытаюсь вместо номера лейбла(не индекса) написать переменную i.
Но не выходит...
Как-то можно это обойти или как это сделать?
Лейблы для очистки выбираются хаотично, оттого и нет возможности писать вручную номер каждого лейбла...
Неужели нельзя их в цикле переназывать и придется писать 30 условий, чтобы работало..?

@Catstail · 10.11.2012, 19:42

Что-то непонятно... Сколько у тебя массивов Label?

"В цикле пытаюсь вместо номера лейбла(не индекса) написать переменную i" - но переменную можно писать только на месте индекса.

@~~Апострофф~~ · 10.11.2012, 19:45

Как-то так -

Visual Basic

for i=0 to 6
  for t=0 to 30
    me.controls("Label" & i)(t)="Label" & i & "(" & t & ")"
  next
next

@vfalex · 11.11.2012, 11:24 **[ТС]**

Похоже на то что надо)) Проверю только послезавтра)
Спасибо))

Добавлено через 15 часов 30 минут

Visual Basic

For i = 0 To 5
If rabotniki(i) = 0 Then
Label30(i).Visible = False
For t = 0 To 30
Me.Controls("Label" & i + 1)(t).Visible = False
Next t
End If
Next i

Проверил, работает так как надо)) Спасибо))

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,640 Записей в блоге: 13
	10.11.2012, 19:42	2
	Что-то непонятно... Сколько у тебя массивов Label? "В цикле пытаюсь вместо номера лейбла(не индекса) написать переменную i" - но переменную можно писать только на месте индекса. 0

	11.11.2012, 11:24

Как обратиться к Label, подставив в индекс переменную

Решение