[VB6] 1/2 bzw 1/4 von list1 zu text1 kopieren

[nicok]

Hi,


ich habe ein Problem undzwar habe ich 8 Einträge in einer Listbox, von denen ich mit einen Klick erstmal die eine Häflte (also Eintrag 1-4) und dann mit einem erneuten Klick die andere Häflte (4-8) in eine Textbox kopieren möchte.

Den Code um alle Einträge von einer Listbox zu einer Textbox zu kopieren habe ich:

Dim i As Long
  ' Inhalt der Textbox löschen
  Text1.Text = ""
  ' Inhalt der Listbox in Textbox kopieren
  With List1
    For i = 1 To .ListCount - 1
      Text1.Text = Text1.Text & .List(i) & vbCrLf
    Next i
  End With

Ich hatte schon ewig rumprobiert, den Code umgeschrieben etc., nur habe ich keine Lösung gefunden.

 

[wincnc]

Hallo, versuch´s mal so:

Private i As Integer

Private Sub Command1_Click()
  With List1
    If i = 0 Then
      Do While Not i = 4
        Text1.Text = Text1.Text & .List(i) & vbCrLf
        i = i + 1
      Loop
    Else
      Do While Not i = .ListCount
        Text1.Text = Text1.Text & .List(i) & vbCrLf
        i = i + 1
      Loop
    End If
  End With
 
End Sub

Private Sub Form_Load()
  Text1.Text = ""
End Sub