Hi,



der Explorer verwendet das Listview-Steuerelement.

Das kann dann auch schon fast alles was du benötigst.



Standardmäßig findet man es nicht im Werkzeugkasten, sonder muß es Über Komponenten

bei Microsoft Common Contorls... hinzufügen.



In der Hilfe indest du dann auch ein Beispiel und noch weitere Informationen.

Hier mal das leicht modifizierte Beispiel.

Mit sortierung der einzelnen Spalten (Sotierung nach Text-Kriterien)







      

Option Explicit



Private Sub Form_Load()

Dim clmX As ColumnHeader

Dim itmX As ListItem

Dim i As Integer

    

ListView1.AllowColumnReorder = True

ListView1.Sorted = True

ListView1.View = lvwReport

For i = 1 To 3

   Set clmX = ListView1.ColumnHeaders.Add()

   clmX.Text = "Spalte" & i

Next i



' 10 Elemente mit dem gleichen Symbol der Liste hinzufügen



For i = 1 To 10

   Set itmX = ListView1.ListItems.Add()

'      itmX.SmallIcon = 1

   itmX.Text = "Listenelement " & i

   itmX.SubItems(1) = "Unterelement 1 " & 10 - i

   itmX.SubItems(2) = "Unterelement 2" & i

Next i

End Sub



Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)

   ListView1.SortKey = ColumnHeader.Index - 1

End Sub 





Code eingefügt mit Syntaxhighlighter 3.0






Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von Klapperstorch , 19.03.2006, 17:47 Uhr , 27 mal gelesen