VB: Sortierung einer ListView

[Lady1201]

Hallo,

Wie kann man denn Einträge einer ListView immer sortiert nach einer bestimmten Spalte (absteigend) anzeigen lassen?

Gruß

[-roTekuGeL-]

Also sortierung geht per listview.SortOrder = lvwDescending / oder lvwAscending...

und dann mit lvwDateien.SortKey = ColumnHeader.Index angeben welche spalte du sortieren willst

[Lady1201]

Hallo,

erst mal danke für deine Antwort! Sag mal, ich habe da einiges ausprobiert, aber das klapptt alles nicht.

Wie würde den der Code aussehen, wenn die Spalte, nach der ich sortieren möchte Beispiel heißt?

Danke für die Hilfe!!

[-roTekuGeL-]

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...