Сортировка данных в combobox по убыванию - VB

Узнай цену своей работы

Формулировка задачи:

Помогите в решение проблемы. Список в combobox подливается из файла. Мне нужно что бы этот список в combobox был отсортирован по убыванию. Как сделать по возрастанию (тоесть по алфавиту) нашла, в combobox есть свойство Sorted, если оно TRUE, то сортировка по алфавиту происходит нормально. Но мне нужна сортировка в обратную сторону. Можна ли это сделать? Вот часть кода, в котором подливаются данные в combobox. Как сюда добавить сортировку?

Решение задачи: «Сортировка данных в combobox по убыванию»

textual
Листинг программы
Private Sub Form_Load()
Dim dt As String, i&
 
Open App.Path + "\AppData\repdates_day.dat" For Input As #99
While Not EOF(99)
    Input #99, dt
    Combobox2.AddItem dt
Wend
Close #99
For i = Combobox2.ListCount - 1 To 0 Step -1
  Combobox1.AddItem Combobox2.List(i)
Next
Combobox1.ListIndex = 0
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5