✔ Listview auslesen

[Primus852]

Hallo

folgendes Problem: ich habe eine Listview die ich nacheinander mit Daten fülle:

With ListView1
  
      .ListItems.Add = txttitel.Text
      .ListItems(i).SubItems(1) = txtenglisch.Text
      .ListItems(i).SubItems(2) = txtid.Text
      .ListItems(i).SubItems(3) = txtjahr.Text
End With

vorher habe ich noch

Private Sub Form_Load()
Dim Breite As Long
  Dim i As Long
  With ListView1
    Breite = Int(.Width / 3.2)                   ' Spaltenbreite
    .ColumnHeaders.Add , , "Titel", Breite    ' Überschrift
    .ColumnHeaders.Add , , "Orig. Titel", Breite
    .ColumnHeaders.Add , , "ID", Breite
    .ColumnHeaders.Add , , "Jahr", Breite
    .View = lvwReport
  

  End With

End Sub

jetzt möcht ich gerne mit einem Klich auf eine Reihe alle 4 Spalten auslesen und einzeln in Textboxen füllen

ich habe leider nur folgenden Code

Private Sub ListView1_Click()
Text2.Text = ListView1.SelectedItem

End Sub

aber das hilft nur um den ersten Item in eine Textbox zu laden

kann mir einer helfen

danköö

PrimuS

 

[Jacka]

Hi!

Probier es mal so:

Private Sub ListView1_DblClick()
Dim i As Integer
Dim intIndex As Integer
Dim strAusgabe As String

intIndex = ListView1.SelectedItem.Index
strAusgabe = ListView1.ListItems(intIndex)

For i = 1 To ListView1.ColumnHeaders.Count - 1
    strAusgabe = strAusgabe & "," & ListView1.ListItems(intIndex).SubItems(i)
Next i

MsgBox strAusgabe

End Sub

strAusgabe kann natürlich auch ein Array sein, indem du alle Werte speicherst.

Viele Grüße,
Jacka

 

[Primus852]

*verdammtearbeit*

Hmm, sieht schonmal gut aus, werde das gleich ma probieren wenn ich @home bin

Danke

PrimuS

//EDIT Danke funktioniert super

*solved*