[VB6] Hälfte/Viertel von List1 in Text1

[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.

[63N713M4N]

Weiß nicht genau wie du es meinst aber so hat es bei mir funktioniert ich denke mal es ist nicht die einfachste Methode aber es klappt auf jeden Fall:

Option Explicit
Dim check As Boolean

Private Sub cmd_Click()
Dim i As Long
  ' Inhalt der Textbox löschen
  Text1.Text = ""
  ' Inhalt der Listbox in Textbox kopieren
  If check = False Then
  With List1
    For i = 0 To .ListCount / 2 - 1
      Text1.Text = Text1.Text & .List(i) & vbCrLf
      check = True
    Next i
  End With
  Exit Sub
  
  
  ElseIf check = True Then
  With List1
    For i = 4 To .ListCount - 1
      Text1.Text = Text1.Text & .List(i) & vbCrLf
      check = False
    Next i
  End With
  Exit Sub
  End If
  
  
End Sub

Private Sub Form_Load()
check = False
End Sub

[nicok]

Hey danke, ja funktioniert, bis auf wenn die Anzahl der Items in der Listbox ungerade ist wird ein Eintrag immer ausgelassen.

Zb List1 hat 7 Einträge, dann wird Eintrag Nr4 ausgelassen =/

[63N713M4N]

Verdammt stimmt dann sollte man einfach abfragen ob die Zahl ungerade ist und wenn es zutrifft einfach einen draufrechnen so würde ich es machen