Usercontrol mit List of Klasse - Codeseitiges hinzufügen

  • VB.NET
  • .NET (FX) 4.0

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

    Usercontrol mit List of Klasse - Codeseitiges hinzufügen

    Hallo Com,

    in meinem UserControl habe ich eine List of Klasse. Die sieht z.B. so aus wie hier:List (Of String) als Property mit _1 und _2 als String.
    Wie kann ich denn Codeseitig z.B. in Form1 _1 und _2 hinzufügen?
    Also z.B.

    VB.NET-Quellcode

    1. ​
    2. dim ucontrol as new usercontrol1
    3. usercontrol1.items.add("TEST1", "TEST2")

    @ErfinderDesRades Datentyp: String. Das Usercontrol heißt angenommen "Usercontrol1"
    Im Usercontrol soll die List of verwendet werden. In der Form1 soll die List of gefüllt werden.

    Im Endeffekt soll das ganze so aussehen:

    Form1

    VB.NET-Quellcode

    1. 'Im Load Event
    2. usercontrol1.items.add("TEST1", "TEST2")


    Das Usercontrol

    VB.NET-Quellcode

    1. 'hier steht Inhalt des Usercontrols
    2. '...
    3. Public items as list(of Test)
    4. public sub new
    5. end sub
    7. 'meine Idee zum durchreichen
    8. public sub fill(byval t1 as string, byval t2 as string)
    9. items.add(new Test(t1, t2)) '?? - klappt aber nicht wirklich
    10. end sub
    12. public Class Test
    13. public property t1 as string
    14. public property t2 as string
    15. '+Public sub new
    16. end class


    klyer schrieb:

    Im Endeffekt soll das ganze so aussehen:

    Form1

    VB.NET-Quellcode

    1. 'Im Load Event
    2. usercontrol1.items.add("TEST1", "TEST2")

    Das wird so nicht gehen, denn userControl1.Items ist vom Typ List(Of String), und deren Add-Methode ist numal anders.
    Guck doch einfach nach, wie die Add-Methode richtig geht, dann weisst du wies richtig geht.
    Weißt du, wie man Methoden nachguckt?
    VisualStudio richtig nutzen (Google ist nicht deine Mami)

    Habs jetzt. Danke @nafets3646
    Auch danke @ErfinderDesRades für den nützlichen Link.

    VB.NET-Quellcode

    1. Public Class UserControl1
    2. Private Items As New List(Of Test)
    4. Public Sub New()
    6. ' Dieser Aufruf ist für den Designer erforderlich.
    7. InitializeComponent()
    9. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    10. Items = New List(Of Test)
    11. 'Items.Add(New Test("Hallo", "Welt"))
    12. 'Items.Add(New Test("Hallo", "Welt"))
    13. End Sub
    15. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    16. MyBase.OnPaint(e)
    18. Dim y As Integer
    19. For Each I In Items
    20. 'Dim y As Integer
    21. e.Graphics.DrawString(I.T1 & " " & I.T2, Font, Brushes.Red, 10, y)
    22. y += 10
    23. Next
    24. End Sub
    26. Public Sub fill(ByVal t1 As String, ByVal t2 As String)
    27. Items.Add(New Test(t1, t2))
    28. End Sub
    30. Public Class Test
    31. Public Property T1 As String
    32. Public Property T2 As String
    34. Public Sub New(ByVal t1 As String, ByVal t2 As String)
    35. Me.T1 = t1
    36. Me.T2 = t2
    37. End Sub
    38. End Class
    39. End Class


    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. UserControl11.fill("Hallo", "Welt")
    3. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „klyer“ ()

    @klyer Wenn Du Text sehen willst, musst Du das UserControl nach dem Besücken mit Daten updaten:

    VB.NET-Quellcode

    1. Public Sub fill(ByVal t1 As String, ByVal t2 As String)
    2. Items.Add(New Test(t1, t2))
    3. Me.Update()
    4. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi
    am besten wäre, du würdest eine Klasse von System.Collections.ObjectModel.Collection(Of T) erben lassen und dort an das UserControl weiterleiten, sobald sich Items verändern. Das geht, indem du die Methoden ClearItems, InsertItem, RemoveItem und SetItem überschreibst, das im Konstruktor der Klasse übergebene UserControl darüber informierst, indem du bspw. Methoden (mit dem Friend-Modifikator) aufrufst und dort das Item und den Index übergibst. Clear kannst du in zwei Schritten behandeln: Clearing und Cleared. Clearing wird vor dem Aufruf von MyBase.ClearItems(), Cleared danach aufgerufen. Invalidate kannst du dazu verwenden, bestimmte Bereiche des Controls neuzeichnen zu lassen.

    Gruß
    ~blaze~

    @klyer
    Fehler noch:
    In deiner Paint Routine wird die Variable "y" nach jedem Schleifendurchgang wieder auf 0 gesetzt (Dim y as Integer).
    Das Erhöhen am Ende der Schleife um 10 bringt also nix.
    Deklariere y außerhalb der Schleife.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Das liegt an der Art der Variablenhaltung. Die Variable wird effektiv (d.h. im kompilierten Code) nicht an der Stelle deklariert, an der sie im Code steht und der Platz bleibt für alle y identisch. Da nach dem ersten Durchlauf keine Zuweisung mehr erfolgt, bleibt der Wert des alten Durchlaufs fälschlicherweise bestehen.

    Eine geeignete Webresource ist prinzipiell bereits die MSDN, aber hier:

    VB.NET-Quellcode

    1. Public Class MyUserControlItemsCollection
    2. Inhertis System.Collections.ObjectModel.Collection(Of MyItem)
    4. Private _control As MyUserControl
    6. Public Property Control As MyUserControl
    7. Get
    8. Return _control
    9. End Get
    10. Private Set(value As MyUserControl)
    11. If value Is Nothing Then Throw New ArgumentNullException("Control")
    12. _control = value
    13. End Set
    14. End Property
    16. Friend Sub New(control As MyUserControl)
    17. If control Is Nothing Then Throw New ArgumentNullException("control")
    18. Me.Control = control
    19. End Sub
    21. Protected Overrides Sub InsertItem(index As Integer, item As MyItem)
    22. MyBase.InsertItem(index, item)
    23. 'Control informieren
    24. Me.Control.SubmitItemInserted(index, item)
    25. End Sub
    27. Protected Overrides Sub RemoveItem(index As Integer)
    28. Dim oldItem As MyItem = Me.Items(index)
    29. MyBase.RemoveItem(index)
    30. 'Control informieren
    31. Me.Control.SubmitItemRemoved(index, oldItem)
    32. End Sub
    34. '...
    35. End Class
    37. Public Class MyUserControl
    38. Inherits Control
    40. Private _items As MyUserControlItemsCollection
    42. 'Die Items in Items sollen vom Designer serialisiert werden, damit die Elemente richtig übernommen werden
    43. <System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
    44. Public ReadOnly Property Items As MyUserControlItemsCollection
    45. Get
    46. Return _items
    47. End Get
    48. End Property
    50. Public Sub New()
    51. InitializeComponent()
    52. _items = new MyUserControlItemsCollection(Me)
    53. End Sub
    55. 'Wird aufgerufen, sobald ein Element in die MyUserControlItemsCollection eingefügt wird.
    56. Friend Sub SubmitItemInserted(index As Integer, item As MyItem)
    57. OnItemInserted(index, item)
    58. End Sub
    60. 'Überschreibbar machen, damit erbende Klassen das Verhalten verändern können
    61. Protected Overridable Sub OnItemInserted(index As Integer, item As MyItem)
    62. Me.Invalidate(GetItemBounds(item))
    63. End Sub
    65. Public Function GetItemBounds(item As MyItem) As Rectangle
    66. If item Is Nothing Then Throw New ArgumentNullException("item")
    67. End Function
    69. Friend Sub SubmitItemRemoved(index As Integer, item As MyItem)
    71. End Sub
    72. '...
    73. End Class


    Usw. Musst halt die Logik beachten.

    Gruß
    ~blaze~

    Ok danke für die Aufklärung. Mich hatte das nämlich etwas verwirrt. Aber eben getestet. Würde y nach dem Deklarieren auch initialisiert werden (zB mit = 0, was ich eigentlich automatisch erwartet hätte) wäre y immer 0 und würde halt am Ende der Schleife um 10 erhöht werden (dann wieder 0).

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Ja: List(Of T) informiert das Control nicht, wann es neugezeichnet werden soll. Dem Benutzer sollte man dies nicht überlassen, das sollte das Control schon selber übernehmen.
    Alternativ kann man sich auch gleich die Mühe machen, Datenbindung zu implementieren, dafür sollte man aber eine große Menge Zeit mitbringen.

    Gruß
    ~blaze~

Facebook
Telefonspende