Ich glaube, dass das kein spezielles ListView-Problem ist, sondern mehr eine VBA-Technik:
In einem Formular verwende ich zwei ListView-Objecte. Im Modulkopf deklariere ich:
Dim objListView As MSComctlLib.ListView
Das Instanzieren ist nach Anforderung entweder
Set objListView = Me.lvw1.Object
oder
Set objListView = Me.lvw2.Object
je nachdem, was mit welchem ListView gemacht wird.
Die Einträge in einem ListView werden sortiert, wenn ein Klick auf einen Spaltenkopf erfolgt. Dafür hat jedes Listview eine eigene Prozedur. Beide sind bis auf die Instanzierung (s.o.) identisch.
Meine Frage: Wie kann ich beide Prozeduren zu einer zusammenfassen ...
Private Sub lvwSort(??? as ???)
Static intSpalte As Integer
Static bolAuf As Boolean
set objListView = ???
[...]
End Sub
und richtig aufrufen, a la:
Call lvwSort(???)
gefunden!
Private Sub lvwSort(objListView As ListView, ByVal ColumnHeader As Object)
[...]
End Sub
Über objListView wird die Instanz übergeben. Es muss dann keine neue erstellt werden.
Über ColumnHeader wird die Spalte übergeben.
Danke!