Сортировка в ListView

[SHURUP]

Очередной вопрос по ListView!
Как в этом контроле отсортировать колонку с численной информацией?
Проблема в том, что при использовании sortkey, данные сортируются по Asc-коду значений, т.е. 2 будет ити после 10
Заранее спасибо!

[kif]

есть два варианта:
1 - ручками
2 - заполнять в определенном формате, в данном случае не 2, а 02. Что, на мой взгляд, проще.

[Ennor]

Практика показала, что второй вариант проще. Он же и более читабелен, как ни странно...

[SHURUP]

Спасибо!

2 - заполнять в определенном формате, в данном случае не 2, а 02. Что, на мой взгляд, проще.

Мне это тоже не слишком подходит, так как диапазон чисел - long, и выглядеть это будет неприятно! Но я могу создавать невидимую колонку с числами типа 000001, 000002 и т.д.
Тогда 2 встречных вопроса
как перевести 1 в "000001", я так понимаю, что-то типа "Format(value, ????)"
как запретить изменение размера колонки?

[Andrey Fedorov]

Сортировку в ListView делать можно как угодно (хоть по нескольким колонкам одновременно) - с помощью API.

Попробуй скачать отсюда:

http://www.devcity.net/page.asp?p=afl

делал давно, но сортировка там должна быть - в проекте примера.

Впрочем, вот прямая ссылка для скачивания:

http://www.vbcity.com/download/AFileLib.zip

[SHURUP]

2 Andrey Fedorov:
Большое спасибо! Пример большой, но попробую разобраться! Уже много интересного нашел!

[Sedge]

Я делаю так -

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


lIntSortCol = <по какой колонке сортируем>
' форматируем поля для сортировки
    For Each oListItem In lsvMainLib.ListItems
      If Trim(oListItem.ListSubItems(lIntSortCol).Text) = "" Then  _
          oListItem.ListSubItems(lIntSortCol).Text = "-"
      oListItem.ListSubItems(lIntSortCol).Text =  _
          Format(oListItem.ListSubItems(lIntSortCol).Text, "000000000000")
    Next

' здесь сортировка

    ' возвращаем исходные значения
    For Each oListItem In lsvMainLib.ListItems
      If IsNumeric(oListItem.ListSubItems(lIntSortCol).Text) Then
        oListItem.ListSubItems(lIntSortCol).Text = _
           CLng(oListItem.ListSubItems(lIntSortCol).Text)
      Else
        If oListItem.ListSubItems(lIntSortCol).Text = "-" Then _
           oListItem.ListSubItems(lIntSortCol).Text = ""
      End If
    Next


[tyomitch]

как перевести 1 в "000001", я так понимаю, что-то типа "Format(value, ????)"

На всякий случай:

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

Format(Value, "000000")