Hallo

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

Code :

1 2 3 4 5 6 7

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

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

Code :

1 2 3 4

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

Hi!

Probier es mal so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

*verdammtearbeit*

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

Danke

PrimuS

//EDIT Danke funktioniert super

*solved*