[viv]

ليت الامر بهذه البساطة اخ خظر

احتاج ان ادخل قيم مختلفة تواريخ صور ارقام نصوص يعني النوع يكون Object ويكون اما Coolection  او List هو ليس تابث بنوع معين
فانا احتاج ان يكون له عدة خصائص مثلا

كود :

MyClass.Field("Date").Value= Now
Dim myInt as integer = MyClass.Field("Date").count

لاحظ العنصر له العديد من الخصائص Value او Count او toDate اي خصائص فيما بعد اضيفها
ويجب ان تظهر للمستخدم فانا لا ابرمج شئ لنفسي 

يعني مصفوفة لها حصائص كل واحدة برقم فهرس او اسم ولها قيمة

---

توصلت الى طريقة مع انها ليست التي ابحث عنها ولكنها شغالة

كود :

Public Class Class1

   Dim _Feild As New Collection
   Public ReadOnly Property Feild(str As String) As mycls
       Get

           Dim p As New mycls
           p.Name = str

           Try
               _Feild.Add(p, str)
           Catch ex As Exception

           End Try

           Return _Feild(str)

       End Get
   
   End Property
End Class

Public Class mycls

   Public Sub New()

   End Sub

   Public Sub New(int As Object)
       Me.Value = int
   End Sub

   Dim _value As Object
   Public Property Value As Object
       Get
           Return _value
       End Get
       Set(value As Object)
           _value = value
       End Set
   End Property

   Dim _Name As String
   Public Property Name As String
       Get
           Return _Name
       End Get
       Set(value As String)
           _value = _Name
       End Set
   End Property

End Class

وضع قيم

كود :

Dim m As New Class1
       m.Feild("V1").Value = 345
       m.Feild("V2").Value = Date.Now

الاستعلام عن قيم

كود :

 TextBox1.Text = m.Feild("V1").Value
   
       TextBox1.Text = m.Feild("V2").Value