vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: TextBox, ListBox & ComboBox15.07.03
Mehrfachauswahl aus ListBox in TextBox übernehmen

VB-Version:  VB5, VB6
 Views:  21.832 

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.

Diese Seite wurde bereits 21.832 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel