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

[segail]

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

 

[alex77755]

у комбобокса нет свойства сортировки. Я бы воспользовался вспомогательным контролом 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