VB 5. Элемент управления ListBox

Лабораторная работа №5

Инструментарий:

1. Поместите на новую форму текстовое поле TextBox c именем txt и элемент управления Список ListBox . Назовите новый элемент lst (свойство Name).
2. На панели свойств элемента управления ListBox выберите свойство Items и задайте для него четыре пункта списка (нажимая на Enter после каждого пункта): черный, красный, синий, зеленый.
3. Теперь запрограммируйте событие SelectedIndexChanged для списка, таким образом, чтобы при нажатии на определенный пункт c цветом, цвет текстового поля менялся бы на соответствующий. Используйте при этом оператор Case:

Private Sub lst_SelectedIndexChanged(...) ' здесь удалена часть кода 
Select Case lst.SelectedItem
  Case "черный"
   txt.BackColor = Color.Black
  Case "красный"
   txt.BackColor = Color.Red
  Case "синий"
   txt.BackColor = Color.Blue
  Case "зеленый"
   txt.BackColor = Color.Green
End Select
End Sub

Событие SelectedIndexChanged происходит при выделении различных пунктов в элементе управления список данных.

4. Все работает, но теперь мы рассмотрим второй способ задания элементов списка: с помощью программного кода.
5. Удалите все цвета из свойства Items элемента управления lst. Теперь необходимо добавить в обработку события Load формы следующий код (дважды щелкните на пустом месте дизайна формы, чтобы открыть код):

Private Sub Form2_Load(...)...
  lst.Items.Add("черный")
  lst.Items.Add("красный")
  lst.Items.Add("синий")
  lst.Items.Add("зеленый")
End Sub

6. Запустите и отладьте программу.

Если у Вас возникли вопросы, предлагаем просмотреть видео урок visual basic по выполнению данного дополнительного задания к лабораторной работе.
youTube

Предлагаем просмотреть видео о работе с конструкцией Case в Visual Basic:
youTube

Видео-фрагмент о событии Load формы:
youTube