Rubrik: TextBox, ListBox & ComboBox | 15.07.03 |
Mehrfachauswahl aus ListBox in TextBox übernehmen VB-Version: VB5, VB6 | ||
Views: 24.128 |
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.