Erstellen Sie benutzerdefinierte Klasse dynamisch

Question

Ich arbeite an einem Projekt, wo ich eine Vielzahl von benutzerdefinierten Klassen erstellen muss, um ordnungsgemäß mit einer API interagieren (Während ich weiß, es könnte Fragen zu warum und so, aber die kurze ist es muss sei so).

Gibt es eine Möglichkeit, eine vollständige benutzerdefinierte Klasse dynamisch im laufenden Betrieb zu erstellen? Also statt

Ich möchte in der Lage sein, ein neues Objekt zu erstellen und durch andere Eingabe dynamisch erstellen.

dim NewClass as object 
dim NewProperty as property 
NewProperty.name="Height" 
NewProperty.datatype=string 
NewClass.AddProperty(NewProperty) 

Ist das möglich? Es würde mir viel Zeit sparen, wenn es ist.

Answer 1

Ich mag keine späte Bindung, aber es gibt Optionen (Ich mag meine Option streng auf). Wie die Verwendung der DynamicObject oder ExpandoObject Klasse. Deine Frage ist vage, also habe ich keine Ahnung, ob es funktionieren kann.

Sub Main() 

    Dim test As Object = New SampleDynamicClass() 

    test.SomeProperty = "123" 

    Console.WriteLine(test.SomeProperty) 
    Console.ReadLine() 

End Sub 

Public Class SampleDynamicClass 
    Inherits DynamicObject 

    Private _values As New Dictionary(Of String, String) 

    Public Sub New() 

    End Sub 

    Public Function GetPropertyValue(ByVal propertyName As String) As String 

     Return _values(propertyName) 
    End Function 

    Public Function SetPropertyValue(ByVal propertyName As String, ByVal value As Object) As Boolean 

     If _values.ContainsKey(propertyName) Then 
      _values(propertyName) = value.ToString() 
     Else 
      _values.Add(propertyName, value.ToString()) 
     End If 

     Return True 
    End Function 

    Public Overrides Function TryGetMember(ByVal binder As GetMemberBinder, 
              ByRef result As Object) As Boolean 
     result = GetPropertyValue(binder.Name) 
     Return If(result Is Nothing, False, True) 
    End Function 

    Public Overrides Function TryInvokeMember(ByVal binder As InvokeMemberBinder, 
               ByVal args() As Object, 
               ByRef result As Object) As Boolean 
     result = GetPropertyValue(binder.Name) 
     Return If(result Is Nothing, False, True) 
    End Function 

    Public Overrides Function TrySetMember(binder As SetMemberBinder, value As Object) As Boolean 
     Return SetPropertyValue(binder.Name, value) 
    End Function 

Answer 2

Dim person = New With {Key .Height = 12} 
Dim personTypes = New With {Key .Happy = 1, .Sad = 2} 
Dim personsAndTypes = New With {Key .Person = person, .Type = personTypes} 

Die Frage ist eine Art vage, aber wenn Sie keine Notwendigkeit für andere Felder und Methoden haben oder Wiederverwendung Anonymous Types