Установка начального значения

Date: 2015-10-07; view: 385.

Элемент, который должен быть выделен в списке по умолчанию, устанавливается с помощью свойства ListIndex. Предположим, что нужная вам фамилия расположена в представленном на экране списке третьим, и вы хотите, чтобы при открытии формы эта фамилия была выделена по умолчанию. Тогда воспользуйтесь приведенным ниже оператором :

Пример 1:

Combo1.ListIndex=2

Пример 2. Фрагмент программы позволяет ненулевое числовое значение, введенное в текстовую строку ComboBox, поместить в список после нажатия кнопки Соmmand1. Если условие ввода не выполняются, то выдаются соответствующие сообщения. Кроме того, при вводе не допускается повторение элементов в списке.

Private Sub Form_Load()

For i = 1 To 10

Combo1.AddItem i * 100

Next

End Sub

Private Sub Command1_Click()

If Not IsNumeric(Combo1.Text) Then

MsgBox "Элемент не является числом"

Combo1.Text = ""

Combo1.SetFocus

Exit Sub

End If

For i = 1 To Combo1.ListCount

If (Combo1.Text = Combo1.List(i - 1)) Then

MsgBox "Элемент имеется в списке"

Combo1.SetFocus

Exit Sub

End If

Next

Combo1.AddItem Combo1.Text

End Sub

Приведенный способ может быть использован для малых списков. В противном случае целесообразно использовать более эффективные способы поиска, например, половинного деления.