الموضوع شيق لمن يريد ان يشارك
زمان من ايام فيجوال 2005 كان عندي مكتبات عن الفيجوال ستوديو وكيفية استخدام الـ Class للاسف ضاعت كلها ولم اجدها
فيها طريقها لجعل الخاصية تاخذ الشكل التالي :
كنت قد برمجتها من كتب ضاعت اعتقد خاصية كانت تقوم بوراثة Class أخر .
لاحظ وجود القيمة Value وكانت البرمجة شئ مثل
هذه البرمجة ستعمل بشكل طبيعي
ويمكن استدعاء القيمة المحفوظة عادي كما بالشكل التالي :
المشكلة لن يظهر الرقم لان اخر قيمة ادخلناها هي التاريخ والحل هو تحويل الخاصية الى مصفوفة ربما
شئ مثل هذا مشكلة List تستدعي العناصر Items بالرقم وليس الاسم
لو كنت اذكر ربما كان هناك بحث عن اسم العنصر بواسطة IndexOf ربما لا اتذكر .
المهم المشكلة هنا انا توقفت عند هذا الباب فمن له معرفة وسبق وعملها .
زمان من ايام فيجوال 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 ربما لا اتذكر .
المهم المشكلة هنا انا توقفت عند هذا الباب فمن له معرفة وسبق وعملها .