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

[..._xX Bud Sever Xx_...]

Neues Label erstellen und folgende Eigenschaften zuweisen:

Name=EKopiert
Caption="0"
Visible=False

Neues Label erstellen und folgende Eigenschaften zuweisen

Name=EMaximal
Caption="4"
Visible=False

Dim i

'Vom Derzeitigen Eintrag bis zum Gewünschten Eintrag


For i = Ekopiert To EMaximal

'Kopieren

Text1.Text = Text1.Text & List1.List(i) & vbCrLf

'Eintrag auf das zuletzt kopierte setzen

Ekopiert = Val(Ekopiert) + 1


'Wenn der letzt Gewünschte Eintrag erreicht wurde
'Kopierverfahren beenden


If Ekopiert = EMaximal Then Exit Sub

'Nächster Eintrag

Next i

Du kannst die Eigenschaften vom Max. Eintrag oder Min. Eintrag folgendermaßen ändern:

'Festsetzen von welchem Eintrag kopiert werden soll
'dazu einfach dem Label eine zahl zuweisen
'Wenn du vom ersten kopieren willst, dann null

EKopiert.Caption=0

'Festsetzen bis zu welchem Eintrag kopiert werden soll
'dazu einfach dem Label eine zahl zuweisen

EMaximal.Caption=4 'Auf den vierten Eintrag gesetzt


'Oder

EMaximal.Caption=List1.ListCount 'Alle Einträge

So kannst du z.B. vom ersten Eintrag bis zum vierten Eintrag kopieren oder vom dritten bis zum sechsten. Du musst immer nur die Ausgangszahl setzen und festlegen bis zu welchem Eintrag kopiert werden soll. Hoffe das du damit was anfangen kannst...