تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انشاء متغير في الـ Settings من نوع خاص
#1
السلام عليكم ورحمة الله
هل من الممكن انشاء متغير في الـ Settings من نوع خاص
اعرف انه يمكن ذلك عن طريق

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

ولاكن كيف لو المكتبة في نفس المشروع وليست في مشروع مضاف
وجزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
نحمده ونصلي على رسوله الكريم

استخدم النوع object وعند التعامل معه استخدم دوال التحويل ctype
او ادخل لكود الاعدادات واكتب فيه ما تشاء
الرد
تم الشكر بواسطة: prj
#3
جزاك الله خيرا اخي ربيع علي ردك
بالنسبة للنوع object غير موجود في الـ Settings انظر الصورة الاولي

إقتباس :او ادخل لكود الاعدادات واكتب فيه ما تشاء

ارجو شرح او توضيح هذه المعلومة
الرد
تم الشكر بواسطة:
#4
النوع Object موجود داخل مكتبة mscorlib في الـNamespace System
لكني جربت أن أستخدم النوع Object مع Class للتجربة لكن ظهر خطأ عند التجربة
الرد
تم الشكر بواسطة: ali.alfoly
#5
جزاك الله خيرا اخي الكريم Aly El-Haddad علي ردك واعلامنا بتجربتك
طيب في انتظار توضيح الاخ ربيع للنقطه
إقتباس :او ادخل لكود الاعدادات واكتب فيه ما تشاء
او انتظار اي احد من الاخوة يكون وصل لحل في ذلك
وجزاكم الله خيرا
الرد
تم الشكر بواسطة:
#6
نحمده ونصلي على رسوله الكريم

ما نوع المتغير؟ هل هو كلاس مثلا؟
الرد
تم الشكر بواسطة:
#7
نعم اخي ربيع هو كلاس
الرد
تم الشكر بواسطة:
#8
نحمده ونصلي على رسوله الكريم

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


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 14.51 ك ب / التحميلات : 103)
الرد
تم الشكر بواسطة: kslawy , prj
#9
جاري التجربة
جزاك الله خيرا اخي ربيع
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انشاء قاعدة بيانات SQL SERVER +عمل أتاتش + جداول+حقول بالكود DR.YASER 4 397 20-05-22, 02:47 PM
آخر رد: DR.YASER
  [سلسلة تعليمية] انشاء قاعدة بيانات +جداول+حقول بالكود .تطوير للمشروع السابق DR.YASER 3 175 19-05-22, 07:05 PM
آخر رد: DR.YASER
  [كورس] انشاء قاعدة بيانات فارغة و جديدة أثناء التشغيل-درس مهم و مثال DR.YASER 9 310 19-05-22, 04:43 AM
آخر رد: DR.YASER
  [VB.NET] انشاء داتابيز اكسس بالكود flawer69 3 165 17-05-22, 11:17 PM
آخر رد: DR.YASER
  [VB.NET] انشاء قاعدة بيانات access فارغة وقت التشغيل mmaalmesry 2 208 14-05-22, 11:20 PM
آخر رد: mmaalmesry
  ممكن طريقة اضافة باسورد عند انشاء برنامج للقنوات لكي عندما احد يريد ان يدخل الى البرن omar dz 6 915 20-03-22, 07:37 PM
آخر رد: omar dz
Question [سؤال] انشاء برنامج بلغه فجول بيسك نسيم الشباطي 1 614 20-03-22, 01:19 PM
آخر رد: عدنان الشمري
Question [VB.NET] كود انشاء كلمة مرور بمواصفات قوية نسيم الشباطي 2 357 15-03-22, 09:16 PM
آخر رد: نسيم الشباطي
Question [VB.NET] كود انشاء كلمة مرور بمواصفات قوية نسيم الشباطي 0 201 15-03-22, 07:05 PM
آخر رد: نسيم الشباطي
  ابحث عن كود VB انشاء اختصار سطح مكتب لبرنامج محدد bilgacim 2 395 26-02-22, 06:33 PM
آخر رد: bilgacim

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم