Liste binden und DisplayMember

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Liste binden und DisplayMember

    Huhu
    ich habe schon gesucht aber leider nichts passendes gefunden.
    Ich binde eine Liste an eine Listbox und mit DisplayMember kann man die Propertys auswählen, die angezeigt werden sollen.
    Was ist aber wenn die ausgewählte Property selbst eine Klasse ist und ich davon die Property haben möchte.

    Bisher hab ich das so gelöst.

    VB.NET-Quellcode

    1. Dim kList As New List(Of Integer)
    2. For Each a In Maschine.Aufträge
    3. kList.Add(a.AuftragA.Auftragsnummer)
    4. Next
    5. ListBox1.DataSource = kList


    So funktioniert es leider nicht.

    VB.NET-Quellcode

    1. ListBox1.DataSource = Maschine.Aufträge
    2. ListBox1.DisplayMember = "AuftragA.Auftragsnummer"


    MFG vico
    In Arbeit...

    Mag sein, dass es anders auch geht. Ich würd es so lösen.... Einfach in der Klasse Auftrag die .ToString() Funktion überschreiben....

    VB.NET-Quellcode

    1. ​
    2. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim list As New List(Of Maschine)
    6. Dim a As New Auftrag(1234565)
    7. Dim m As New Maschine(a)
    8. Dim a1 As New Auftrag(309503)
    9. Dim m1 As New Maschine(a1)
    11. list.AddRange({m, m1})
    13. Me.ListBox1.DataSource = list
    14. Me.ListBox1.DisplayMember = "Auftrag"
    15. End Sub
    16. End Class
    18. Public Class Maschine
    19. Public Property Auftrag As Auftrag
    21. Public Sub New(auftrag As Auftrag)
    22. Me.Auftrag = auftrag
    23. End Sub
    24. End Class
    26. Public Class Auftrag
    27. Public Property Auftragsnummer As Integer
    29. Public Sub New(auftragsNummer As Integer)
    30. Me.Auftragsnummer = auftragsNummer
    31. End Sub
    33. Public Overrides Function ToString() As String
    34. Return Me.Auftragsnummer.ToString()
    35. End Function
    36. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Was auch noch geht ist, dass Du das Format-Event der ListBox nutzt und hier entsprechend eingreifst....

    VB.NET-Quellcode

    1. ​
    2. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim list As New List(Of Maschine)
    5. Dim a As New Auftrag(1234565)
    6. Dim m As New Maschine(a)
    7. Dim a1 As New Auftrag(309503)
    8. Dim m1 As New Maschine(a1)
    10. list.AddRange({m, m1})
    11. Me.ListBox1.DataSource = list
    12. End Sub
    14. Private Sub ListBox1_Format(sender As Object, e As ListControlConvertEventArgs) Handles ListBox1.Format
    15. Dim x As Maschine = DirectCast(e.ListItem, Maschine)
    17. e.Value = x.Auftrag.Auftragsnummer.ToString()
    18. End Sub
    19. End Class
    21. Public Class Maschine
    22. Public Property Auftrag As Auftrag
    24. Public Sub New(auftrag As Auftrag)
    25. Me.Auftrag = auftrag
    26. End Sub
    27. End Class
    29. Public Class Auftrag
    30. Public Property Auftragsnummer As Integer
    32. Public Sub New(auftragsNummer As Integer)
    33. Me.Auftragsnummer = auftragsNummer
    34. End Sub
    35. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Man hat also 2 Klassen. Maschine (bei mir Machine) und Auftrag (Order). Jede Maschine hat x Aufträge. In einer 1. ListBox stehen die Maschinen, in einer 2. die Aufträge der gewählten Maschine. Dann ergibt sich bei mir unter Verwendung 2er BindingSources:

    VB.NET-Quellcode

    1. Public Class FrmMain
    2. Private MachineList As New ComponentModel.BindingList(Of Machine)
    3. Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. MachineBindingSource.DataSource = MachineList
    5. End Sub
    7. Private Sub BtnCreateTestData_Click(sender As Object, e As EventArgs) Handles BtnCreateTestData.Click 'nur Befüllung; keine Relevanz für die Funktionalität
    8. MachineList.Add(New Machine With {.Name = "A"})
    9. MachineList.Last.OrderList.Add(New Order With {.ID = "a1"})
    10. MachineList.Add(New Machine With {.Name = "B"})
    11. MachineList.Last.OrderList.Add(New Order With {.ID = "b1"})
    12. MachineList.Last.OrderList.Add(New Order With {.ID = "b2"})
    13. MachineList.Add(New Machine With {.Name = "C"})
    14. MachineList.Last.OrderList.Add(New Order With {.ID = "c1"})
    15. MachineList.Last.OrderList.Add(New Order With {.ID = "c2"})
    16. MachineList.Last.OrderList.Add(New Order With {.ID = "c3"})
    17. End Sub
    19. End Class
    21. Public Class Machine
    22. Public Property Name As String
    23. Public Property OrderList As New ComponentModel.BindingList(Of Order)
    24. End Class
    26. Public Class Order
    27. Public Property ID As String
    28. End Class
    Bilder

    • AtRuntime.png

      13,47 kB, 1.142×331, 68 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende