カスタムクラスを動的に作成する

Question

私は、APIと適切にやりとりするためのカスタムクラスを多数作成する必要があるプロジェクトに取り組んでいます（なぜ、どういうことなのかといった疑問があるかもしれませんが、このようにしてください）。

オンザフライで完全なカスタムクラスを動的に作成する方法はありますか？代わりに

class person 
    Private _Height 
    Property Height As Integer 
    Get 
     Return _Height 
    End Get 
    Set(value As Integer) 
     _Height = value 
    End Set 
End Property 
'Continue for all properties of person 

私は新しいオブジェクトを作成し、他の入力を通じてこれを動的に作成したいと考えています。

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

これは可能ですか？それがあれば、それは私に多くの時間を節約するだろう。

Answer 1

私はレイトバインディングが好きではありませんが、オプションがあります（私は自分のオプションが厳密に好きです）。 DynamicObjectまたはExpandoObjectクラスを使用する場合と同様です。あなたの質問はあいまいなので、うまくいくかどうかわかりません。

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} 

質問は一種の曖昧ですが、他のフィールドやメソッドを必要としない、または再利用する場合Anonymous Typesは