これを機能させることはできません！system.dynamic.dynamicobject から継承する基本クラスから継承する派生クラスで動的プロパティを作成できるようにしたいですか?
この抽象クラスから継承するインスタンスの動的プロパティを使用して継承したい VB.net 抽象クラスを作成しました。基本クラスは XML ドキュメントを読み取り、要素と属性をプロパティ リスト Dictionary に置き換えます。
派生クラスがインスタンス化されると、抽象クラスの propertyList にリストされているすべての項目がパブリック プロパティとして公開されるという考え方です。以下にリストしたコードから、プロパティ ID がプロパティ リストに追加された場合、Feed.id を利用できるようにしたいと考えています。
抽象クラスは次のようになります。
Public MustInherit Class ItemClass
Inherits DynamicObject
Protected Shared propertyList As New Dictionary(Of String, String)
Protected Shared p_client As Phm.Adfero.Client
Protected Shared p_id As Integer
Protected Shared p_uri As Phm.Adfero.Uri
Protected Shared p_data As Phm.Adfero.Data
Protected Shared p_paramList As New Dictionary(Of String, String)
Sub New(ByRef client As Client, ByVal id As Integer)
Dim instance As New Instance(Me)
Dim instanceName = instance.getInstanceName()
instance = Nothing
If Not IsNothing(client) Then
p_client = client
Else
Throw New ArgumentException("Object Parameter client is required!")
End If
If Not IsNothing(id) Then
p_id = id
Else
Throw New ArgumentException("Integer Parameter id is required!")
End If
p_paramList.Add("identifier", instanceName & "s/" & p_id.ToString)
p_uri = New Phm.Adfero.Uri(client, p_paramList)
p_data = New Phm.Adfero.Data(client, p_uri)
End Sub
Protected Shared Sub transposeXML()
Dim rootElement As String = p_data.Xml.DocumentElement.Name
For Each baseElement As XmlNode In p_data.Xml.SelectSingleNode(rootElement)
For Each element As XmlNode In baseElement
If element.Name <> "fields" Then
propertyList.Add(element.Name, element.InnerText)
Else
For Each field As XmlNode In baseElement.SelectSingleNode(element.Name).ChildNodes
For Each attrib As XmlAttribute In field.Attributes
propertyList.Add(attrib.Value, field.InnerText)
Next
Next
End If
Next
Next
End Sub
Public Overrides Function TryGetMember(ByVal binder As GetMemberBinder, _
ByRef result As Object) As Boolean
Dim name As String = binder.Name.ToLower()
Return propertyList.TryGetValue(name, result)
End Function
Public Overrides Function TrySetMember(binder As SetMemberBinder, value As Object) As Boolean
propertyList(binder.Name.ToLower()) = value
Return True
End Function
End Class
上記のクラスを継承する派生クラスの例は次のとおりです。
Public Class Feed
Inherits ItemClass
Sub New(ByRef client As Client, ByRef id As Integer)
MyBase.New(client, id)
End Sub
Public Overrides Function TryGetMember(binder As GetMemberBinder, ByRef result As Object) As Boolean
Dim res As Object = Nothing
Dim retVal As Boolean = MyBase.TryGetMember(binder, res)
result = res
Return retVal
End Function
Public Overrides Function TrySetMember(binder As System.Dynamic.SetMemberBinder, value As Object) As Boolean
Return MyBase.TrySetMember(binder, value)
End Function
End Class
事前に助けてくれてありがとう。