vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: TextBox, ListBox & ComboBox15.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.

 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.