Присвоить значения нескольким Label в цикле

@jkrnd · Регистрация: 22.12.2015

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

Как создать массив элементов в runtime я умею. Суть вопроса:
Пусть у меня есть 10 Label. Каждая из них имеет свой размер, позицию, внешний вид заданные мною в дизайнере.
И есть массив Dim sng(9) As Single проинициализированный какими-либо реальными значениями, изменяющимися в цикле таймера.

Нужно сделать так, чтобы каждое реальное значение выводилось (разумеется с форматированием) в свою Label.
На VB-6 это достигалось сопоставлением в цикле индекса элемента (Label), заданным в DesignTime, с индексом массива вещественных чисел:

Visual Basic

1
2
3

For i = 0 To 9
    Label(i).Caption = Format(sng(i),"0.00") 
Next i

В VB.Net предлагается для подобного использовать свойство Tag (элемента Label), задаваемое программистом в DesignTime.
Но тогда для сопоставления Label с sng(Tag) нужно будет перебрать всю коллекцию Label, затем выделить из неё элемент(ы) с нужным мне Tag и только затем занести в найденную Label значение sng(Tag).
Значения в метки передаются в реальном времени 2-3 раза в секунду, неужели каждый раз перебирать всю коллекцию Label? Ведь на форме есть ещё масса элементов Label не имеющих никакого отношения к значениям массива sng.

Есть ещё один вариант решения вопроса: переписать из кода дизайнера атрибуты созданных меток и удалить эти метки в дизайнере, метки создавать заново в RunTime в виде массива инициализируя их предварительно списанными из кода дизайнера атрибутами.
А если меток 50? А если мы захотим подкорректировать дизайн?

~~Shersh~~ · 04.08.2016, 08:45

Не увидел никаких проблем

На форме три лэйбла с пронумерованными именами и обращение к ним по именам в таймере -

VB.NET

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    For i As Integer = 1 To 3
      Controls("Label" & i).Text = Format(Now, "mm:ss")
    Next
  End Sub

@Step_UA · 04.08.2016, 08:48

При инициализации пройдитесь по всем Label и создайте массив или список только нужных, далее работайте с ним ... или задайте его явно

VB.NET

1	Dim arrLabel() As Label = {Label1, Label2, Label3, Label4 }

@jkrnd · 04.08.2016, 09:32 **[ТС]**

Step_UA, при попытке применить Ваше решение получил следующее:

Памирыч · 04.08.2016, 09:34

jkrnd, Инициализируйте массив меток тоже в загрузке

VB.NET

    Dim arrLabel() As Label
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        arrLabel = New Label() {Label1, Label2, Label3, Label4 }
        arrLabel(0).Text = "123"
    End Sub

@jkrnd · 04.08.2016, 09:46 **[ТС]**

Памирыч, задача решена

Присвоить значения нескольким Label в цикле

Решение

Решение

Решение

@jkrnd 178 / 68 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	04.08.2016, 09:32 [ТС]	4
	Step_UA, при попытке применить Ваше решение получил следующее: Миниатюры 0

@jkrnd 178 / 68 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	04.08.2016, 09:46 [ТС]	6
	Памирыч, задача решена 0