Visual Basic Forum

Basicor · Newbie Anmeldedatum: 21.09.2002 Beiträge: 2

Ich hab nun schon überall danach gesucht: nach dem ListView-Steuerelement. Es ist nirgendwo. Nicht auf meiner Festplatte, nicht im Internet,
Ich brauche auf jeden Fall ein Steuerelement, dass eine Listenansicht mit Icons bietet und eine Kopfzeile mit verschiedenen Attributen hat, nach denen ich per Klick sortieren kann.
Genau wie in der Windowssuche, Detailansicht im Explorer, WinZip, WinRAR, etc.
Das muss es doch irgendwo geben!

_________________

Hanno · Coder Anmeldedatum: 22.08.2001 Beiträge: 82

Projekt => Komponenten => Steuerelemente => Microsoft Windows Common Controls 6.0 (oder 5.0 je nach version

)
Das sollte bei dir installiert sein, und da ist das dabei...

_________________
Bin Admin - wer noch? Wink

Anonymous · Gast

Danke, ich werde mal nachsehen! Wenn das da wirklich ist, werde ich eine Applikation schreiben, von der man noch in 20 Jahren sprechen wird.

Basicor · Newbie Anmeldedatum: 21.09.2002 Beiträge: 2

Ich verzweifel noch.
ListView bietet keine Methode AddItem, keine Eigenschaft List(n), kein Selected, SelCount, ich kann keine Columns oder Rows hinzufügen.

Ich wiederhole meine Anforderungen an das Steuerelement, das ich suche:

Ich brauche auf jeden Fall ein Steuerelement, dass eine Listenansicht mit Icons bietet und eine Kopfzeile mit verschiedenen Attributen hat, nach denen ich per Klick sortieren kann.

Und um einige Beispiele nochmals zu nennen:

Genau wie in der Windowssuche, Detailansicht im Explorer, WinZip, WinRAR, etc.

Dieses Steuerelement ist das einzige, was mir noch fehlt, um mein Programm fertigzustellen!

_________________

Hanno · Coder Anmeldedatum: 22.08.2001 Beiträge: 82

Also das gibt es alles... die Sachen heissen nur etwas anders

Mal als Beispiel:

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Header1"
ListView1.ColumnHeaders.Add , , "Header2"
ListView1.ColumnHeaders.Add , , "Header3"
ListView1.ColumnHeaders.Add , , "Header4"

Dim LI As ListItem
Set LI = ListView1.ListItems.Add(, , "blabla")
LI.SubItems(1) = "subitem1"
LI.SubItems(2) = "subitem2"
LI.SubItems(3) = "subitem3"

Set LI = ListView1.ListItems.Add(, , "zweiter eintrag")
LI.SubItems(1) = "1"
LI.SubItems(2) = "2"
LI.SubItems(3) = "3"

ListView1.ListItems(1).Bold = True

Für Selected gibts
Listview1.SelectedItem
Icons und so geht auch alles... und soriteren geht so:
(übernimm einfach die ganze Funktion so)

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ListView1.SortKey = ColumnHeader.Index - 1 Then
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
Else
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub

_________________
Bin Admin - wer noch? Wink