Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0534: Listview nach Datum und Zahlen sortieren

VB 5/6-Tipp 0534: Listview nach Datum und Zahlen sortieren

 von Peter K. Sauer

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [3,21 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'--- Anfang Projektdatei Listview nach Datum und Zahlen sortieren.vbp ---
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX)' wird benötigt.

'--- Anfang Formular "Form1" alias ListviewSortierennachdatumundzahl.frm  ---
' Steuerelement: Listenanzeigesteuerungselement "ListView1"
'
'Autor: Peter K. Sauer       peter.k.sauer@web.de
'
' ListView nach Datum und Zahlwerten sortieren
' Ein ListView kann über die Zuweisung von Sortspalte, SortOrder und
' Sorted=True normalerweise bequem sortiert werden. Probleme gibt es
' erst, wenn Spalten mit Datum oder Spalten mit numerischen Werten
' sortiert werden sollen, da im ListView eigentlich nur Text darge-
' stellt wird.
' Ein Datum in europäischer Schreibweise ist aber nicht sortierbar
' und bei Zahlen wird nicht die Grösse bewertet sondern es geht nach
' dem Wert der ersten Ziffer, dann dem Wert der 2. Ziffer etc

Option Explicit

Private Sub Form_Load()
    Randomize            '-Zufallszahlen neu mischen
    Dim werte As Integer '-Zufallszahl als Ganzzahlvariable
    Dim Datums As String
    Dim Temp As Integer
    Dim i As Integer
    
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "Eintrag", 2000
    ListView1.ColumnHeaders.Add , , "Wert", 1000
    ListView1.ColumnHeaders.Add , , "Datum", 1500
    
    
    For i = 1 To 50
        ' Zufallszahl zuweisen
        werte = Rnd * 30000
        
        ' Erstellen eines Zufallsdatums
        ' mit dem Format
        ' //yyyy.mm.dd
        ' dd.mm.yyyy
        Temp = Rnd * 30 + 1
        Datums = Format(Temp, "00")
        Temp = Rnd * 11 + 1
        Datums = Datums & "." & Format(Temp, "00")
        Temp = Rnd * 60 + 1950
        Datums = Datums & "." & Format(Temp, "0000")
        
        ListView1.ListItems.Add i, , i
        ListView1.ListItems(i).ListSubItems.Add , , werte
        ListView1.ListItems(i).ListSubItems.Add , , Datums
    Next i
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ' Bei dem nachstehenden Trick wird eine Dummy-Spalte
    ' in das ListView eingefügt und vor dem Sort mit einem
    ' sortierbaren Datum (yyyy.mm.dd) bzw. Zahl(String mit
    ' vorlaufenden Spaces) gefüllt. Nach der Sortierung
    ' wird die Dummy-Spalte wieder eleminiert.
    
    Dim NewSub As Long
    Dim i As Long
    Dim sFormat As String
    Dim Li As ListItem
    
    sFormat = "yyyy.mm.dd hh:mm:ss"
   
    With ListView1
        'ListView ruhig halten, Sichtbarkeit bleibt trotzdem erhalten
        .Visible = False
        
        'zu sortierende Spalte bestimmen
        .SortKey = ColumnHeader.Index - 1
        
        'Dummy-Spalte einfügen mit Breite 0
        .ColumnHeaders.Add , , "Dummy", 0
        
        'Nummer der Dummy-Spalte
        NewSub = .ColumnHeaders.Count - 1
        
        'abfragen auf Spalte mit Datum
        If ColumnHeader.Index = 3 Then
            'Sortiere nach Datum
            For i = .ListItems.Count To 1 Step -1
                Set Li = .ListItems(i)
                
                'Dummy-Spalte mit sortierfähigem Datum belegen
                Li.SubItems(NewSub) = Format(CDate(Li.SubItems(2)), sFormat)
            Next i
            
            'zu sortierende Spalte umbiegen
            .SortKey = NewSub
        
        'abfragen auf Spalte mit Zahlen
        ElseIf ColumnHeader.Index = 2 Then
            
            'Sortiere nach Zahlen
            For i = .ListItems.Count To 1 Step -1
                Set Li = .ListItems(i)
                
                'Dummy-Spalte mit sortierfähiger Zahl belegen
                Li.SubItems(NewSub) = Right(Space(20) & Li.SubItems(1), 20)
            Next i
            
            'zu sortierende Spalte umbiegen
            .SortKey = NewSub
        End If
        
        'SortOrder bestimmen Asc oder Desc
        .SortOrder = lvwAscending
            
        'Sort anstossen
        .Sorted = True
      
        'Dummy-Spalte entfernen
        .ColumnHeaders.Remove .ColumnHeaders.Count
        
        'Zeiger auf 1. Zeile und scrollen
        .ListItems(1).Selected = True
        .ListItems(1).EnsureVisible
            
        'sichtbar machen
        .Visible = True
    End With
End Sub
'--- Ende Formular "Form1" alias ListviewSortierennachdatumundzahl.frm  ---
'--- Ende Projektdatei Listview nach Datum und Zahlen sortieren.vbp ---

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 5 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.