Изменить цвет Label на выбранный в ComboBox - VB
Формулировка задачи:
Добрый вечер!
Подскажите пожалуйста, что я делаю неправильно? Задача: при выборе итема с названием цвета окрашивать лейбл "color" - в красный цвет? Можно использовать не лейбл, а любое другое окошко.
Листинг программы
- Private Sub Form_Load()
- Combobox.AddItem "Red", 0
- Combobox.AddItem "Blue", 1
- Combobox.AddItem "White", 2
- Combobox.AddItem "Yellow", 3
- Combobox.AddItem "Green", 4
- Select Case Combobox.Text
- Case "Red"
- Color.BackColor = System.Drawing.Color.Red
- Case "Blue"
- Color.BackColor = System.Drawing.Color.Blue
- Case "White"
- Color.BackColor = System.Drawing.Color.White
- Case "Yellow"
- Color.BackColor = System.Drawing.Color.Yellow
- Case "Green"
- Color.BackColor = System.Drawing.Color.Green
- End Select
- End Sub
Решение задачи: «Изменить цвет Label на выбранный в ComboBox»
textual
Листинг программы
- Private Sub Combobox_Click()
- c = Array(vbRed, vbBlue, vbWhite, vbYellow, vbGreen)
- Frame1.BackColor = c(ComboBox.ListIndex)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д