Visual Basic (VB): Компоненты ComboBox и ListBox (AddItem, ListIndex)

Продолжим знакомство с компонентами Visaul Basic. Рассмотрим выпадающий список ComboBox*:

Кинем его на форму и назовем СomboBox. Напишем обработчик события загрузки формы, что бы вызвать его шаблон, просто кликнем два раза мышкой по форме:

Private Sub Form_Load()
    ComboBox.AddItem ("Таня")
    ComboBox.AddItem ("Маша")
    ComboBox.AddItem ("Катя")
    ComboBox.AddItem ("Света")
End Sub

Затем кинем на форму метку, назовем ее Label и напишем для ComboBox обработчики событий Change и Click:

Private Sub ComboBox_Change()
Label.Caption = ComboBox.Text
End Sub

Private Sub ComboBox_Click()
Label.Caption = ComboBox.Text
End Sub

Запустим наш тестовый пример:

Как видим, при наборе текста вручную или выборе из выпадающего списка у нас текст метки принимает соответствующее значение:

Visual Basic (VB): Компоненты ComboBox и ListBox (AddItem, ListIndex)

Теперь перейдем к ListBox*:

Это у нас обычный, не выпадающий список. Для иллюстрации его работы напишем простейший тестовый приме. Начнем новый проект. Кинем на форму сам ListBox,назовем его lbItems, кинем метку Label (имя lbItem) а так же TextBox (имя edItem). Так же добавим кнопочку и назовем ее cmAdd*:

Напишем обработчик клика на кнопочку:

Private Sub cmAdd_Click()
lbItems.AddItem (edItem.Text)
End Sub

Теперь напишем обработчик клика на список (для открытия шаблона просто щелкните мышкой по компоненту два раза):

Private Sub lbItems_Click()
lbItem.Caption = lbItems.List(lbItems.ListIndex)
End Sub

Теперь запустим наш пример:

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Microsoft Visual Studio", авторское право на который принадлежит корпорации Microsoft..

Последнее обновление ( 12.11.2010 г. )