0

その場でオブジェクトやプロパティを作成しようとしています...これは可能ですか?

CLIENT_INFO
  NAME
    F_NAME (= "LoriBeth")
    L_NAME (= "Johnson")
  ADDRESS
    ADDY1 (= "123 MyStreet")
    ETC (= "Etc")

どこ：

Dim objCreated as Object
Dim objName AS String = "CLIENT_INFO"
Dim 1stProp as String = "NAME"
etc...

objCreated = makeObject(objName, objProp1, etc...)

Function makeObject(byval objName as String, byval objProp1 as String, etc...)
  Class &objName
    Property &objProp1
    End Property
  End Class

  Return &objName
End Function

(VFP の方法を使用して、実行時に変数をその値に置き換えました)

次のようなアドレス指定可能なオブジェクトになります。

CLIENT_INFO.NAME.F_NAME = "ロリベス"

4

2 に答える 2

0

として型指定された単一のプロパティを作成してDictionary(Of String, Object)、拡張機能を実現できます。

しかし、この全体は本当に悪い考えのようです。

于 2012-07-23T18:24:55.663 に答える
0

Hans さん、それはいいことですが、最初に投稿したことを実行できません。このようなものでさえもっと役に立ちます：

Option Strict Off 
Imports System.Dynamic  
Module Module1     
   Sub Main()         
      Dim OldBag As Object = New ExpandoObject         
      OldBag.Name = "Hans"         
      OldBag.Age = 21         
      OldBag.NewName = "NewBag"
      Console.WriteLine(NewBag.Name)         
      Console.WriteLine(NewBag.Age)
   End Sub 
End Module
于 2012-07-27T19:04:55.390 に答える