[viv]

الموضوع شيق لمن يريد ان يشارك

زمان من ايام فيجوال 2005 كان عندي مكتبات عن الفيجوال ستوديو وكيفية استخدام الـ Class للاسف ضاعت كلها ولم اجدها

فيها طريقها لجعل الخاصية تاخذ الشكل التالي :

كود :

MyClass.Field("Date").Value=Now
MyClass.Field("PassWord").Value=34345

كنت قد برمجتها من كتب ضاعت اعتقد خاصية كانت تقوم بوراثة Class أخر .
لاحظ وجود القيمة Value وكانت البرمجة شئ مثل

كود :

Public Class Class1

   Dim _Feild As New mycls()
   Public Property Feild(str As String) As mycls
       Get
           Return _Feild
       End Get
       Set(value As mycls)
           _Feild = value
       End Set
   End Property
End Class

Public Class mycls

   Dim _value As Object
   Public Property Value As Object
       Get
           Return _value
       End Get
       Set(value As Object)
           _value = value
       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

المشكلة لن يظهر الرقم لان اخر قيمة ادخلناها هي التاريخ والحل هو تحويل الخاصية الى مصفوفة ربما

كود :

Dim _Feild As New List(Of mycls)
   Public Property Feild(str As String) As mycls
       Get

           Return _Feild("str").value
       End Get
       Set(value As mycls)
           _Feild(str).value = value
       End Set
   End Property

شئ مثل هذا مشكلة List تستدعي العناصر Items  بالرقم وليس الاسم 
لو كنت اذكر ربما كان هناك بحث عن اسم العنصر بواسطة IndexOf ربما لا اتذكر .
المهم المشكلة هنا انا توقفت عند هذا الباب فمن له معرفة وسبق وعملها .