Сортировка списка

[Calvin]

Здраствуйте уважаемые...... что-то я совсем плохой стал и не могу сообразить как в VBA отсортировать список (ListBox). В поиске что-то не нашел........

[corgi]

ну ведь только что в трепе обсуждался вопрос по скорости сортировки, табе туды и надо

[Vitaly1]

Надо еще добавить, что индексация в ячейках указанного объекта начинается с нуля, и дать пару свойсв:

ListBox1.List(ИНДЕКС ЯЧЕЙКИ)

ListBox1.ListCount 'ВРОДИ БО количество ячеек, или индекс последней, не помню что конкретно


p.s.
Мой совет, сортируй через поиск максимального элемента и его индекса.

[corgi]

ListBox1.ListCount - количество item'ов это стопудово, а индекс последней ListBox1.ListCount-1

[Vitaly1]

Ладно уж, хотя Calvin умный, я ему все таки готовый пример напишу:

Код: Выделить всё

Dim i as long,j as long, k as long, n as long, max as string

n=ListBox1.ListCount-1
for i=0 to n-1
max= ListBox1.List(i)
k=i
for j=i+1 to n
if max<ListBox1.List(j) then
max= ListBox1.List(j)
k = j
end if
next j
ListBox1.List(k)=ListBox1.List(i)
ListBox1.List(i) = max
next i

если тип ПЕРЕМЕННОЙ МАХ не пройдет сделай ее Variant.