brug af listview kontrol

hvad skal det bruges til.. er det en oversigt over filer eller hvad.. skal der være Ikoner osv..

nej det er feks komma separerede filer med statistik data så hver linie i tekstfilen skal smides ind på en række i listview kontrollen og hver komma separerede værdi skal ha sin egen kolonne

Jeg ville læse hver linie ind i en variabel, bruge split på variablen, og smide ind i listview:

  Dim MinString As String
  Dim FilNummer as Integer
  Dim MitArray() as String
  Dim i as long

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(#Filnummer)
    Line Input #Filnummer, MinString
    MitArray = Split(MinString, ",")
    for i = 0 to Ubound(MitArray)   
      'smid posterne fra MitArray ind i ListBox
    Next i
  Close #Filnummer

Har ikke VB her, og kan ikke huske hvordan man smider ind i flere kolonner. Måske er det så simpelt som

  List1.Additem post1 & vbtab & post2

Hvis det er sådan kan du jo danne en string med vbtabs i dit loop

Søgte lige på eksperten. Du kan gøre sådan her:

ListView1.ListItems.Add 1, , "Peter"
ListView1.ListItems(1).SubItems(1) = "Møller"
ListView1.ListItems(1).SubItems(2) = "12345678"

ok jamen jeg prøver

Altså - når man kombinerer mine to svar:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(#Filnummer)
    Line Input #Filnummer, MinString
    intNr = intNr + 1
    MitArray = Split(MinString, ",")
    ListView1.ListItems.Add intNr, , MitArray(0) ' første kolonne
    for i = 1 to Ubound(MitArray)   
      ListView1.ListItems(intNr).SubItems(i) = MitArray(i) 'øvrige kollonner
    Next i
  Close #Filnummer

Der er muligvis fejl - lavet uden VB til at teste. Du kan jo så putte en masse ekstra ind, så programmet ikke crasher, hvis der fx. er en linie uden komma eller en tom linie i filen ;o)

martin moth fandt også selv det samme
men hvis jeg gør sådan her

Form1.lview.ListItems.Add 1, , "bipbip"
Form1.lview.ListItems(1).SubItems(1) = "hejhej"

så adder den bipbip men ved mit subitem der siger den "invalid property value"

Har kikket på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmctl198/html/vbobjlistview.asp og på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusinglistviewcontrol.asp

Kan se at de der skriver ListSubItems og ikke SubItems.

Se hvor simpelt det er med en ListBOX i VBA:

ListBox1.AddItem "Row 1, Col 1"
ListBox1.List(0, 1) = "Row 1, Col 2"
ListBox1.List(0, 2) = "Row 1, Col 3"

prøv den her:
http://home.get2net.dk/sjh/eksperten/430552/ListView.zip

hmm nu har jeg prøvet med de her to måder at gøre det på

    Form1.lview.ListItems(1).ListSubItems.Add 1, , " 1-55615-906-4"

    Form1.lview.ListItems(1).ListSubItems.Add(1) = "hejhej"

ingen af dem melder fejl men de tilføjer heller ikke nogle subitems i listview kontrollen
tænkte at det måske så var fordi at der kun var default kolonne dvs den første
og at den så derfor måske ikke kunne smide data i en ikke eksisterende
men så burde den sige fejl plus at jeg prøvede at oprette en masse tomme kolonner i properties sheetet
så jeg fatter det simpelthen ik hehe

sjh ok kigger lige på den

ok sjh det der spiller perfekt !!
tak :)

sjh det eksempel du har lavet der
er det til den listview der er med i components 5.0 pakken? for hvis jeg prøver at bruge din metode med den fra component 6.0 pakken så siger den fejl :/

Ja det er den nok..

ved du i en hurtig vending hvad der er galt når den siger "type mismatch" ved Set Litem = .ListItems.Add(, , arrData(0)) i det her kodestykke?

Private Sub Form_Load()
Dim i As Long
Dim intFree As Integer
Dim strSplit As String
Dim arrData As Variant
Dim Litem As ListItem

  With ListView1 '<- ListView1
      .View = 3
      .GridLines = True
      .ColumnHeaders.Add , , "Navn1", 1500
      .ColumnHeaders.Add , , "Navn2", 1500
      .ColumnHeaders.Add , , "Navn3", 1500
      .ColumnHeaders.Add , , "Navn4", 1500

      intFree = FreeFile
      Open "File.txt" For Input As #intFree
        While Not EOF(intFree)
          Line Input #intFree, strSplit

          arrData = Split(strSplit, "|")

          Set Litem = .ListItems.Add(, , arrData(0))

          For i = 1 To UBound(arrData)
            Litem.SubItems(i) = arrData(i)
          Next i

        Wend
      Close #intFree
  End With
End Sub

har lige prøvet den med:
Micro$oft Windows Common Controls 5.0 (SP2)
Micro$oft Windows Common Controls 6.0 (SP4)

og det virker fint med dem...

ok underligt jeg får bar een type mismatch
men detvar først da jeg satte den fra common controls 6.0 ind

ellers prøv den sådan:

Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim intFree As Integer
Dim strSplit As String
Dim arrData As Variant

  With ListView1 '<- ListView1
      .View = 3
      .ColumnHeaders.Add , , "Navn1", 1500
      .ColumnHeaders.Add , , "Navn2", 1500
      .ColumnHeaders.Add , , "Navn3", 1500
      .ColumnHeaders.Add , , "Navn4", 1500

      intFree = FreeFile
      Open "File.txt" For Input As #intFree
        While Not EOF(intFree)
          Line Input #intFree, strSplit

          arrData = vbSplit(strSplit, "|"): j = j + 1
          Call .ListItems.Add(j, , arrData(0))

          For i = 1 To UBound(arrData)
            .ListItems(j).SubItems(i) = arrData(i)
          Next i

        Wend
      Close #intFree
  End With
End Sub

Er det ikke principielt ikke præcis det samme jeg skrev 21/11-2003 12:41:35 ?

Jo det er det sq også :D

martin_moth < har du også problemer med Set Litem .....?

ok så virkede det jeg siger rigtig mange tak !! :)

Selv tak. Hrmpf...

hrmpf?

Jeg retter:
Hrmpf ;o)

hehehehe ok :) jamen jeg takker sgu en gang til.. til jer begge to ! :)

Jeg fandt aldrig ud af hvilken af de forskellige løsninger du fik til at virke?

jeg prøvede din dengang du skrev den men fik det aldrig til at spille
så denne gang har jeg brugt den fa sjh
kan dog ikke lige se hvorfor det eksempel du skrev ikke sku virke
jeg har nok selv fået fucket det hehe

men shj kom jo med to forskellige. Brugte du det sidste eller det første forslag? Bare nysgerrig...

brugte det sidste der hvor så vidt jeg kan se den eneste forskel er at han bruger Call .ListItems.Add(j, , arrData(0))
istedet for Set .ListItems.Add(j, , arrData(0))
:)

ok. Tak