hejza!
hvordan putter jeg ting på min listviewer ?
men ikke sådan her
ListView1.ColumnHeaders.Add Text:="Filename"
ListView1.ColumnHeaders.Add Text:="Mega byte"
ListView1.ColumnHeaders(1).Alignment = lvwColumnLeft
ListView1.ColumnHeaders(2).Alignment = lvwColumnLeft
ListView1.ColumnHeaders(1).Width = 2000
ListView1.ColumnHeaders(2).Width = 2000
exsempel: (en bil-liste fra et program jeg engang lavede)
Dim item As ListItem
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.add , , "Nr", 400
ListView1.ColumnHeaders.add , , "Navn", 1500
ListView1.ColumnHeaders.add , , "Bemærkning", 2800
ListView1.ColumnHeaders.add , , "Status", 1000, lvwColumnCenter
ListView1.View = lvwReport
For i = 1 To biler.curAntal // fra en tabel med et antal elemneter af biler
Set item = ListView1.ListItems.add()
no = toStr(biler.Nr(i)) // laver en integer til streng uden foranstillede blanke (min egen)
item.text = Space(2 * (3 - Len(no))) + no // laver tre cifret højre justering, et ciffer=2 blanke
item.SubItems(1) = biler.navne(i) // det her fra tabel
item.SubItems(2) = biler.Bemærkninger(i) // fra tabel
If biler.inUse(i) = 0 Then // igen fra tabellen
item.SubItems(3) = "<ubrugt>"
Else
item.SubItems(3) = "<i brug>"
End If
item.Tag = i // til senere søg
Next i
bemærk at et object laves på en ny linie i viewet (add ny), og så bruges subitems(xxx) til at adressere de enkelte kolonner i item'et.
[Redigeret d. 08/08-02 10:08:34 af Martin Klausen Andersen]