[أسامة أحمد]

السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى My.Settings بدون الحاجة إلى مسارها
كل الفكرة أن الـSettings ليس بها النوع Image ففكرت أني أضيف الصورة كـByte Array لكن وجدت أن الـSettings ليس بها هذا النوع أيضاً فبحثت في الأنواع التي يمكن إضافتها من خلال آخر أختيار في القائمة (Browse) و وجدت النوع ArrayList و الذي يمكن تحويله إلى Byte Array بكل بساطة

فكتبت دالتين، الأولى تحول من صورة إلى ArrayList و الثانية تحول من ArrayList إلى صورة
الدالة الأولى:

كود :

Public Function ImageToArrayList(ByVal img As System.Drawing.Image) As System.Collections.ArrayList
        Dim MS As New System.IO.MemoryStream()
        img.Save(MS, System.Drawing.Imaging.ImageFormat.Jpeg)
        Return (New System.Collections.ArrayList(MS.GetBuffer()))
    End Function

الدالة الثانية:

كود :

Public Function ArrayListToImage(ByVal arrLst As System.Collections.ArrayList) As System.Drawing.Image
        Dim MS As New System.IO.MemoryStream(arrLst.ToArray(GetType(Byte)))
        Return System.Drawing.Image.FromStream(MS)
    End Function

يوجد بالمرفقات مثال على حفظ خلفية الـForm في My.Settings
السلام عليكم و رحمة الله و بركاته

[ATTACH]121[/ATTACH]
[ATTACH]120[/ATTACH]