Klasse hinzufügen von Wertepaaren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Klasse hinzufügen von Wertepaaren

    Hallo,

    ich habe eine Klasse welche dynamisch viele Werte nutzen kann. Und genau da ist mein Problem, wie kann ich Werte hinzufügen.


    Das ist die Klasse:

    VB.NET-Quellcode

    1. Partial Public Class CLSSettings
    2. Private menusField() As CLSSettingsMenu
    4. Public Property menus() As CLSSettingsMenu()
    5. Get
    6. Return Me.menusField
    7. End Get
    8. Set
    9. Me.menusField = Value
    10. End Set
    11. End Property
    13. End Class
    15. Partial Public Class CLSSettingsMenu
    17. Private idField As Integer
    19. Private xField As Integer
    21. Private yField As Integer
    23. Private widthField As Integer
    25. Private heightField As Integer
    27. Private collectionField As String
    29. Public Property id() As Integer
    30. Get
    31. Return Me.idField
    32. End Get
    33. Set
    34. Me.idField = Value
    35. End Set
    36. End Property
    38. Public Property x() As Integer
    39. Get
    40. Return Me.xField
    41. End Get
    42. Set
    43. Me.xField = Value
    44. End Set
    45. End Property
    47. Public Property y() As Integer
    48. Get
    49. Return Me.yField
    50. End Get
    51. Set
    52. Me.yField = Value
    53. End Set
    54. End Property
    56. Public Property width() As Integer
    57. Get
    58. Return Me.widthField
    59. End Get
    60. Set
    61. Me.widthField = Value
    62. End Set
    63. End Property
    65. Public Property height() As Integer
    66. Get
    67. Return Me.heightField
    68. End Get
    69. Set
    70. Me.heightField = Value
    71. End Set
    72. End Property
    74. Public Property collection() As String
    75. Get
    76. Return Me.collectionField
    77. End Get
    78. Set
    79. Me.collectionField = Value
    80. End Set
    81. End Property
    82. End Class


    und hiermit möchte ich weitere Wertepaare hinzufügen:

    VB.NET-Quellcode

    1. Dim temp As New CLSSettingsMenu()
    2. Public Settings As New CLSSettings()
    4. 'irgendeine Funktion:
    5. temp.id = 99
    6. temp.x = 1
    7. temp.y = 1
    8. temp.width = 2
    9. temp.height = 2
    10. temp.collection = "irgendwas"


    Wie kann ich jetzt temp der Klasse Settings.menus hinzufügen. Ich kenne Concat, aber ich hier raffe ich nicht, wie ich es einsetzen kann. Es sollen später verschiedene Werte-paare hinzugefügt werden, welche dann wieder ausgelesen werden können:

    VB.NET-Quellcode

    1. meineid = settings.menus(0).id
    2. meinx = settings.menus(0).x
    3. 'etc.

    sodah schrieb:

    Wie kann ich jetzt temp der Klasse Settings.menus hinzufügen
    Da ein Array nicht dafür ausgelegt ist, dynamisch zu wachsen, sondern man die einzelnen Elemente kompliziert hin- und hertransferieren muss, nimm statt

    VB.NET-Quellcode

    1. Public Property menus() As CLSSettingsMenu()

    eine

    VB.NET-Quellcode

    1. Public ReadOnly Property menus As New List(Of CLSSettingsMenu)

    Dann geht es ganz einfach:

    VB.NET-Quellcode

    1. settings.menus.Add(temp)
    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.

    @VaporiZed war schneller.
    @sodah Die Settings-Klasse etwa so:

    VB.NET-Quellcode

    1. Public Class CLSSettings
    2. Private menusField As List(Of CLSSettingsMenu)
    3. Public Sub New()
    4. menusField = New List(Of CLSSettingsMenu)
    5. End Sub
    6. Public Sub AddEntry(entry As CLSSettingsMenu)
    7. menusField.Add(entry)
    8. End Sub
    9. Public Function GetEntry(index As Integer) As CLSSettingsMenu
    10. If index < 0 OrElse index >= menusField.Count Then
    11. Return Nothing
    12. End If
    13. Return menusField(index)
    14. End Function
    15. End Class
    die Menu-KLasse so:

    VB.NET-Quellcode

    1. Public Class CLSSettingsMenu
    2. Public Property id() As Integer
    3. Public Property x() As Integer
    4. Public Property y() As Integer
    5. Public Property width() As Integer
    6. Public Property height() As Integer
    7. Public Property collection() As String
    8. End Class
    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!

Facebook
Telefonspende