[ali.alfoly]

السلام عليكم ورحمة الله
هل من الممكن انشاء متغير في الـ Settings من نوع خاص
اعرف انه يمكن ذلك عن طريق

ثم ستظهر المكتبات

ولاكن كيف لو المكتبة في نفس المشروع وليست في مشروع مضاف
وجزاكم الله خيرا

[ربيع]

نحمده ونصلي على رسوله الكريم

استخدم النوع object وعند التعامل معه استخدم دوال التحويل ctype
او ادخل لكود الاعدادات واكتب فيه ما تشاء

[ali.alfoly]

جزاك الله خيرا اخي ربيع علي ردك
بالنسبة للنوع object غير موجود في الـ Settings انظر الصورة الاولي

او ادخل لكود الاعدادات واكتب فيه ما تشاء

ارجو شرح او توضيح هذه المعلومة

[Aly El-Haddad]

النوع Object موجود داخل مكتبة mscorlib في الـNamespace System
لكني جربت أن أستخدم النوع Object مع Class للتجربة لكن ظهر خطأ عند التجربة

[ali.alfoly]

جزاك الله خيرا اخي الكريم Aly El-Haddad علي ردك واعلامنا بتجربتك
طيب في انتظار توضيح الاخ ربيع للنقطه

او ادخل لكود الاعدادات واكتب فيه ما تشاء

او انتظار اي احد من الاخوة يكون وصل لحل في ذلك
وجزاكم الله خيرا

[ربيع]

نحمده ونصلي على رسوله الكريم

ما نوع المتغير؟ هل هو كلاس مثلا؟

[ali.alfoly]

نعم اخي ربيع هو كلاس

[ربيع]

نحمده ونصلي على رسوله الكريم

اضف متغير في الإعدادات من نوع 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

[ali.alfoly]

جاري التجربة
جزاك الله خيرا اخي ربيع