Tipp 0163 Mehrere Collections (Listen) zusammenführen
Autor/Einsender:
Datum:
  Michael Werner
06.06.2007
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
Es ist eigentlich ganz einfach, man muss nur wissen, dass verschiedene Collections (Listen) in eine gemeinsame Auflistung mit der Methode AddRange zusammengeführt werden können.
Im Tipp werden drei typisierte List-Objekte (List(Of ...)) mit Daten gefüllt und über die Methode AddRange in ein weiteres List-Objekt überführt.
 
Dim liste1, liste2, liste3, liste4 As New List(Of String)

Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
  With liste1
    liste1.Add("eins")
    liste1.Add("zwei")
    liste1.Add("drei")
  End With

  With liste2
    liste2.Add("vier")
    liste2.Add("fünf")
    liste2.Add("sechs")
  End With

  With liste3
    liste3.Add("sieben")
    liste3.Add("acht")
    liste3.Add("neun")
  End With

  ListBox1.DataSource = liste1
  ListBox2.DataSource = liste2
  ListBox3.DataSource = liste3
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
  liste4.AddRange(liste1)
  liste4.AddRange(liste2)
  liste4.AddRange(liste3)
  ListBox4.DataSource = liste4
End Sub
 
Weitere Links zum Thema
Collection serialisieren
List mit typsicherer Structure

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (17,3 kB) Downloads bisher: [ 316 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Mittwoch, 18. Januar 2012