Probleme mit eigener List(of Klasse) - VB.NET

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Probleme mit eigener List(of Klasse) - VB.NET

    Hallo Zusammen. Ich bin neu hier und benötige eure Hilfe.

    Ich habe eine Klasse GraphKonfig erstellt, in der ich eine Liste mit Werten und die zum Graphen zugehörige Farbe hinterlegen möchte.

    VB.NET-Quellcode

    1. Public Class CLS_GraphKonfig
    3. Private _Farbe As System.Drawing.Brush
    4. Private _Werte As List(Of Integer)
    6. Public Sub New(farbe As System.Drawing.Brush, werte As List(Of Integer))
    7. _Farbe = farbe
    8. _Werte = werte
    9. End Sub
    11. End Class



    Im Form1_Load erstelle ich eine neue Liste mit Werten die vom Typ Integer sind und erstelle danach eine neue Liste vom Typ der Klasse CLS_GraphKonfig und möchte gerne die Farbe sowie die Liste mit Werten dieser Klasse übergeben. Ich benötige die Klasse GraphKonfig um den Graphen später mehrere Eigenschaften (Farbe, Bezeichnungen o.ä.) zuordnen zu können.
    Nachdem dies getan ist, möchte ich meinem UserControl11 die Liste vom Typ CLS_GraphKonfig übergeben, damit mein Graph im Diagramm gezeichnet wird. Hier habe ich allerdings noch Probleme mit der Übergabe der Liste an das Control.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Dim Werte As New List(Of Integer)
    7. Werte .Add(750)
    8. Werte .Add(500)
    9. Werte .Add(1000)
    10. Werte .Add(250)
    11. Werte .Add(0)
    13. Dim g As New List(Of CLS_GraphKonfig)
    14. g.Add(New CLS_GraphKonfig(Brushes.Black, Werte))
    16. ' Dieser Teil funktioniert noch nicht wie gewünscht:
    17. UserControl11.Kurven.Add(g)
    19. End Class


    Das UserControl soll nachher ein Diagramm mit verschiedenen Graphen zeichnen können.
    Hier habe ich allerdings noch Probleme :(

    VB.NET-Quellcode

    1. Public Class UserControl1
    3. Public Kurven as New List(Of CLS_GraphKonfig)
    5. Private Sub Paint(ByVal sender as Object, ByVAl e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    8. zeichneGraphen(e.Graphics, Kurven)
    10. End Sub
    12. Private Sub zeichneGraphen(ByVal g As Graphics, liste as List(Of CLS_GraphKonfig))
    13. ...
    14. With g
    15. stift = liste.Item(FARBE) ' Hier möchte ich gerne die Farbe aus der Liste dem Stift zuweisen!?
    17. ...
    19. For Each wert in liste.Item(WERTE) ' Hier möchte ich gerne auf die Werte der Liste zugreifen um den Graphen im Diagramm zeichnen zu können.
    20. .DrawLine(stift, New Drawing.Point(wert, 10)...)
    21. Next
    23. End With
    25. End Sub
    27. End Class


    Ich hoffe Ihr könnt mir weiterhelfen und bitte seid Nachsichtig mit mir.

    LG

    Kurz und knapp: Du hast UserControl11.Kurven.Add(g) misverstanden.

    Das Feld Kurven aus dem UserControl1 ist bereits vom Typ List(Of T). Das hat in der Tat eine Add-Methode, die du aufzurufen versuchst.
    Und jetzt tust du mir einen Gefallen: platziere den Cursor in deinem Code über dem Wort Add und drücke F1. Was erwartet die Methode als Parameter-Typ? List(Of CLS_GraphKonfig) oder CLS_GraphKonfig?

    Was für einen Typ hat g? List(Of CLS_GraphKonfig) oder CLS_GraphKonfig?

    Wenn du diese beiden Fragen sicher beantworten kannst, hast du dein Problem schon so gut wie gelöst.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    *Bitte keine unnötigen Vollzitate*

    Add erwartet => CLS_GraphKonfig

    und g ist vom Typ => List(Of CLS_GraphKonfig)

    Okay ...

    Ich habs jetzt so umgeschrieben!

    VB.NET-Quellcode

    1. Dim g as New CLS_GraphKonfig(Brushes.Black, Werte)
    3. Usercontrol11.Kurven.Add(g)


    Das UserControl1.vb sieht jetzt so aus:

    VB.NET-Quellcode

    1. Public Class UserControl1
    3. Public Kurven as New List(Of CLS_GraphKonfig)
    5. Private Sub Paint(ByVal sender as Object, ByVAl e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    7. zeichneGraphen(e.Graphics, Kurven)
    9. End Sub
    11. Private Sub zeichneGraphen(ByVal g As Graphics, liste as List(Of CLS_GraphKonfig))
    12. Dim anzahlGraphen as Integer = liste.count()
    13. ...
    14. With g
    16. For j as Integer = 0 To anzahlGraphen - 1
    18. For Each element in liste.Item(j).Werte
    20. ' Hiermit erhalte ich für jeden Graphen die vordefinierte Farbe:
    21. stift = new Pen(liste.item(j).Farbe, 2)
    23. ...
    25. .DrawLine(stift, New Drawing.Point(element, 10)...)
    26. ...
    28. Next
    29. Next
    31. End With
    33. End Sub
    35. End Class



    Zudem habe ich die Klasse CLS_GraphKonfig um 2 ReadOnly Properties erweitert um auf die Farbe und die Listen zugreifen zu können:

    VB.NET-Quellcode

    1. Public Class CLS_GraphKonfig
    3. Private _Farbe As System.Drawing.Brush
    4. Private _Werte As List(Of Integer)
    6. Public Sub New(farbe As System.Drawing.Brush, werte As List(Of Integer))
    7. _Farbe = farbe
    8. _Werte = werte
    9. End Sub
    11. ReadOnly Property Farbe As System.Drawing.Brush
    12. Get
    13. Return _Farbe
    14. End Get
    15. End Property
    17. ReadOnly Property Werte As List(Of Integer)
    18. Get
    19. Return _Werte
    20. End Get
    21. End Property
    23. End Class


    Kann oder muss man das so machen mit den Properties um auf die Farben und Werte zugreifen zu können?
    Also so wie es jetzt ist funktioniert es wunderbar.
    Vielen Dank an Arby für die Hinweise :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende