also soweit ich weiß kann man nicht nach dem namen der Spalte sortieren, sondern nach dem Index der Spalte... dürfte ja aber kein Problem sein herauszubekommen welchen index die Spalte Beispiel hat...
Dim intColumn As Integer
Private Sub Form_Load()
Dim itmx As ListItem
Dim i As Integer
Do While i <> 1000
Set itmx = ListView1.ListItems.Add(, , i)
itmx.SubItems(1) = i & "text"
itmx.SubItems(2) = i & "text"
i = i + 1
Loop
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If intColumn = ColumnHeader.SubItemIndex Then
ListView1.SortKey = ColumnHeader.SubItemIndex
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
Else
ListView1.SortKey = ColumnHeader.SubItemIndex
ListView1.SortOrder = lvwAscending
ListView1.Sorted = True
End If
Select Case ColumnHeader.SubItemIndex
Case 0
intColumn = 0
Case 1
intColumn = 1
Case 2
intColumn = 2
End Select
End Sub
hier mal etwas Code... pack das einfach mal in ein neues Projekt mit nem Listview (V6.0) dann siehst du schon wie das funktioniert...