DefInt A-Z
 
Dim ASCIStart
 
Sub Form_Load()
 
    ListView1.Height = 2655
    ListView1.Width = 2500
    Command1.Height = 495
    Command1.Width = 2000
    Command1.Caption = "<Neu laden>"
    ASCIStart = 64
    Call FillListView(ASCIStart)
 
End Sub
 
Sub Command1_Click()
 
    If ASCIStart = 64 Then
       ' Kleinbuchstaben
       ASCIStart = 96
    Else
       ' Grossbuchstaben
       ASCIStart = 64
    End If
    Call FillListView(ASCIStart)
 
End Sub
 
Sub FillListView(ASCIStart)
 
    ' ListView Inhalte löschen
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
 
    ' ListView Header schreiben
    ListView1.ColumnHeaders.Add , , "Dat1", 1000
    ListView1.ColumnHeaders.Add , , "Dat2", 1000
 
    ' ListView beschreiben
    For i = 1 To 10
        r = ASCIStart + i
        ListView1.ListItems.Add i, , Chr$(r) + Chr$(r) + Chr$(r) + Chr$(r)
        ListView1.ListItems(i).ListSubItems.Add , , CStr(r) + CStr(r) + CStr(r)
    Next
 
 
End Sub
 
Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
 
    ' ListView Spalten sortieren
    With ListView1
        If .SortOrder = lvwAscending Then
           .SortOrder = lvwDescending
        Else
           .SortOrder = lvwAscending
        End If
        .SortKey = ColumnHeader.Index - 1
        .Sorted = True
    End With
 
End Sub