gibt es eine Möglichkeit sämtliche Attribute einer Klasse über eine Schleife auszulesen und deren Namen und/oder eine wie auch immer geartete ID in einer Arraylist abzulegen? Kann man, falls es diese Möglichkeit gibt, über die Arraylist mit Name/ID des Attributs auf seinen Wert zugreifen?
Vielleicht verdeutlicht ein Beispiel worum es mir geht. Die Teile wofür mir die Lösung fehlt, habe ich in Großbuchstaben geschrieben und zwischen [] in den Code eingebunden:
Public Class Customer
Private _CustomerID As Integer Public Property CustomerID() As Integer Get Return _CustomerID End Get Set(ByVal value As Integer) _CustomerID = value End Set End Property
Private _Nachame As Integer Public Property Nachname() As String Get Return _Nachname End Get Set(ByVal value As String) _Nachname = value End Set End Property
Public Function Attributliste() Dim Ergebnis as ArrayList Dim Attr as [ATTRIBUT] For Each Attr in Customer.[ATTRIBUTE] Ergebnis.Add(Attr.[NAME]) 'ODER ALTERNATIV Ergebnis.Add(Attr.[ID]) Next Attributliste = Ergebnis End Function
End Class
. . .
Dim custom as New Customer custom.CustomerID = 1 custom.Nachname = "Test" dim customList as Arraylist = custom.Attributliste dim cID as Integer = custom.[ATTRIBUTE(customlist(0))]