.NET 4.x Изменение всех label на форме - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, знатоки! Такой вопрос - Как сделать изменение цвета ВСЕХ label на форме. Т.е я имею 37 label на одной форме, и как мне сменить цвет сразу всех, а не по одной. Вот такой код имею:
Листинг программы
  1. If Me.BackColor = Color.Black Then
  2. 'тут должна быть смена всех цветов label на белый
  3. Else
  4. 'на чёрный
  5. End If
Цвет текста изменить надо (forecolor)

Решение задачи: «.NET 4.x Изменение всех label на форме»

textual
Листинг программы
  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2.         Dim frm As New Form2
  3.         frm.Show()
  4.         For Each f As Form In Application.OpenForms
  5.             Update(f)
  6.         Next
  7.     End Sub
  8.     Private Overloads Sub Update(ByVal ctrl As Control)
  9.         For Each c As Control In ctrl.Controls
  10.             If TypeOf c Is Label Then
  11.                 c.BackColor = Color.LightGreen
  12.             End If
  13.             Update(c)
  14.         Next
  15. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут