ListView und Late Binding
01.02.2009 15:26:00
Alfons
ich habe eine UserForm mit einem ListView.
Den Verweis: Microsoft Windows Common Controls 6.0 (SP6)
habe ich wg 'Late Binding' rausgenommen.
Jetzt kommt an einer Stelle noch die Fehlermeldung: 'Benutzerdefinierter Typ nicht definiert'
markiert ist die ganze Zeile mit Private Sub...
Wie muss die aussehen damit das funktioniert?
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ColumnHeader = "Datei" Then
'Spalte Datei auf- absteigend sortieren
If ListView1.SortOrder = 0 Then
ListView1.SortKey = 0 '1. Spalte
ListView1.SortOrder = 1 'lvwDescending '= lvwAscending
ListView1.Sorted = True
Else
ListView1.SortKey = 0 '1. Spalte
ListView1.SortOrder = 0 'lvwDescending '= lvwAscending
ListView1.Sorted = True
End If
End Sub
--- nach klick auf Spaltenkopf wird die Zeile sortiert.
Danke
Alfons
http://vba1.de