Sortierroutine für zwei ListViewObjekte

[klamotte]

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:

Code (vb) [Auswählen] Erweitern

Dim objListView As MSComctlLib.ListView
Das Instanzieren ist nach Anforderung entweder

Code (vb) [Auswählen] Erweitern

Set objListView = Me.lvw1.Object
oder

Code (vb) [Auswählen] Erweitern

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

Code (vb) [Auswählen] Erweitern


Private Sub lvwSort(??? as ???)
Static intSpalte As Integer
Static bolAuf As Boolean
     
      set objListView = ???
      [...]
End Sub

und richtig aufrufen, a la:

Code (vb) [Auswählen] Erweitern

Call lvwSort(???)

[klamotte]

gefunden!

Code (vb) [Auswählen] Erweitern

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!