Как описать нажатие на один из группы лейблов - VB

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

В общем. Пишу программу "график работы" Суть в том, что по нажатию на лейбл, он меняет цвет(желтый или зеленый) в зависимости от сотрудника который в этот день работает. Только не хочу я тыкать в каждый лейбл и прописывать каждому из них, что с ними должно произойти... Есть 31 лейбл (Leibl8(0) - Leibl8(30)) по нажатию на любой из них, тот на который нажал сначала меняет цвет на желтый, при повторном нажатии на зеленый и при третьем нажатии возвращает себе исходный цвет.))

Решение задачи: «Как описать нажатие на один из группы лейблов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Label8_Click(Index As Integer)
   With Label8(Index)
      If .BackColor = &H8000000F Then
         .BackColor = vbYellow
      ElseIf .BackColor = vbYellow Then
         .BackColor = vbGreen
      Else
         .BackColor = &H8000000F
      End If
    End With
End Sub

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

9 голосов , оценка 4.222 из 5

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

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

Похожие ответы