OK, спасибо, но помучиться пришлось.
Наиболее доходчивый пример откопался на .NET
http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/60200f5a-5612-4322-934a-8016ee99d2b1
Ну а вот энто слегка помогло "отформатировать под VB6"
http://www.bigresource.com/VB-Can-039-t-get-text-to-right-justify--s6kTnNb38c.html
+немного экспериментов методом тыка
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
Public Const LVCF_FMT = &H1
Public Const LVCF_IMAGE = &H10
Public Const LVCFMT_IMAGE = &H800 'IE 3+ only
Public Const LVCFMT_BITMAP_ON_RIGHT = &H1000
'SendMessage function
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
'=======================================================
Private Sub ListView1_ColumnClick(Index As Integer, ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim lvFormat As LV_COLUMN
Dim i As Integer
Dim SK As Integer
SK = ListView1(Index).SortKey 'запоминаем предыдущий ключ сортировки
If ColumnHeader.Index = ColStructMas(Index).StartTimeN + 1 Then
'..........................
Else
If ColumnHeader.Index = 1 Then Exit Sub 'сортировку по иконке не производим
If (SK = ColumnHeader.Index - 1 ) Then 'ключ сортировки не меняется,меняем порядок сортировки
If ListView1(Index).SortOrder = lvwAscending Then
ListView1(Index).SortOrder = lvwDescending
'установка иконки "Descending"
'ListView1(Index).ColumnHeaders(SK + 1).Icon = "Descending"
With lvFormat
.mask = LVCF_FMT Or LVCF_IMAGE
.fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
.iImage = ImageListHead.ListImages("Descending").Index - 1
End With
Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, SK, lvFormat) 'SK=sortkey(не меняется)
Else
ListView1(Index).SortOrder = lvwAscending
'установка иконки "Ascending"
'ListView1(Index).ColumnHeaders(SK + 1).Icon = "Ascending"
With lvFormat
.mask = LVCF_FMT Or LVCF_IMAGE
.fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
.iImage = ImageListHead.ListImages("Ascending").Index - 1
End With
Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, SK, lvFormat) 'SK=sortkey(не меняется)
End If
Else 'если ключ сортировки меняется, порядок сортировки делаем по возрастанию
ListView1(Index).SortOrder = lvwAscending
ListView1(Index).SortKey = ColumnHeader.Index - 1
ListView1(Index).ColumnHeaders(SK + 1 ).Icon = 0
'установка иконки "Ascending"
ListView1(Index).ColumnHeaders(ColumnHeader.Index).Icon = "Ascending"
With lvFormat
.mask = LVCF_FMT Or LVCF_IMAGE
.fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
.iImage = ImageListHead.ListImages("Ascending").Index - 1
End With
Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, ColumnHeader.Index - 1 , lvFormat)
'ColumnHeader.Index - 1=new sortkey(меняется)
End If
'ListView1(Index).Sorted = True
End If
