Mehrfachauswahl aus ListBox in TextBox übernehmen VB-Version:  VB5, VB6
	Views:  594

Der Anwender soll aus einer ListBox mehrere Begriffe auswählen können, diedann auf einmal in eine TextBox übernommen werden sollen. Starten Sie also einneues Projekt mit einer ListBox (Multiselect = 1 - Einfach oder 2 - Erweitert), einer TextBox (Multiline = True) und einem CommandButton. Dann benötigen Sienoch diesen Code:

Option Explicit
 
Private Sub Form_Load()
    ' ListBox mit Einträgen füllen
  Dim i As Integer
 
  For i = 1 To 10
    List1.AddItem "Eintrag " & CStr(i)
  Next i
End Sub
 
Private Sub Command1_Click()
  Dim i As Integer
  With List1
    For i = 0 To .ListCount - 1
    ' ausgewählte Einträge ermitteln ...
    If .Selected(i) Then
        ' ... und in die TextBox schreiben
        Text1.Text = Text1.Text & .List(i) & vbCrLf
      End If
    Next i
  End With
End Sub

Starten Sie Ihr Projekt, wählen Sie ein paar Einträge aus und drücken Sieden CommandButton.