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