Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Элемент, который должен быть выделен в списке по умолчанию, устанавливается с помощью свойства 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
Приведенный способ может быть использован для малых списков. В противном случае целесообразно использовать более эффективные способы поиска, например, половинного деления.
Дата публикования: 2014-12-28; Прочитано: 175 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!