![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (17,3
kB)
|
Downloads bisher: [ 326 ]
|
|
|