نحمده ونصلي على رسوله الكريم
استخدم النوع object وعند التعامل معه استخدم دوال التحويل ctype
او ادخل لكود الاعدادات واكتب فيه ما تشاء
النوع Object موجود داخل مكتبة mscorlib في الـNamespace System
لكني جربت أن أستخدم النوع Object مع Class للتجربة لكن ظهر خطأ عند التجربة
نحمده ونصلي على رسوله الكريم
ما نوع المتغير؟ هل هو كلاس مثلا؟
نحمده ونصلي على رسوله الكريم
اضف متغير في الإعدادات من نوع byte ثم افعل كما بالصور:
عدل الكود ليصبح المتغير من نوع مصفوفه بايت باضافة الأقواس
ثم استخدم الكود التالي لحفظ المتغير في الإعدادات:
كود :
Dim c As New Class1()
c.Name = "Ali"
My.Settings.Test = ToByteArray(c)
My.Settings.Save()
والتالي لاسترجاعه:
كود :
Dim c As Class1 = FromByteArray(My.Settings.Test)
MessageBox.Show(c.Name)
واضف الكود التالي للتحويل:
كود :
Private Function ToByteArray(c As Class1) As Byte()
If (c Is Nothing) Then Return Nothing
Dim bf As New BinaryFormatter()
Dim ms As New MemoryStream()
bf.Serialize(ms, c)
Return ms.ToArray()
End Function
Private Function FromByteArray(arrBytes As Byte()) As Class1
Dim ms As New MemoryStream()
Dim bf As New BinaryFormatter()
ms.Write(arrBytes, 0, arrBytes.Length)
ms.Seek(0, SeekOrigin.Begin)
Dim c As Class1 = CType(bf.Deserialize(ms), Class1)
Return c
End Function
جاري التجربة
جزاك الله خيرا اخي ربيع
