фильтрация данных в раскрывающимся списке

  • Автор темы segail
  • Дата начала
S

segail

#1
Здравствуйте.
Подскажите, как создать порядковую фильтрацию данных по именам (например камаз) в объекте раскрывающийся список, при выполнение команды ComboBox1_Change?
 

Вложения

alex77755

Well-known member
15.02.2009
128
0
#2
у комбобокса нет свойства сортировки. Я бы воспользовался вспомогательным контролом ListView. После каждого пополнения комбобокса скопировать данные в листвиев, а потом назад. Ну или загонять всё в массив и использовать алгоритм сортировки
Код:
Private Sub CommandButton1_Click()
Dim li As Long, bYes As Boolean: bYes = False
With Me.TextBox1
If .Value <> "" Then
For li = 0 To Me.ComboBox1.ListCount - 1
If Me.ComboBox1.List(li) = .Value Then bYes = True: Exit For
Next li
If bYes = False Then Me.ComboBox1.AddItem .Value: .Value = "" Else MsgBox "Введенное значение уже имеется в списке	 ", 64, "Информационное сообщение"
ComboBox1.Value = ""
.Value = ""
End If
End With
сортировка
End Sub
Private Sub сортировка()
Dim i
ListView1.ListItems.Clear
For i = 0 To ComboBox1.ListCount - 1
ListView1.ListItems.Add , , ComboBox1.List(i)
Next i
ComboBox1.Clear
For i = 1 To ListView1.ListItems.Count
ComboBox1.AddItem ListView1.ListItems(i)
Next i
End Sub