17-09-12, 09:01 PM
السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى My.Settings بدون الحاجة إلى مسارها
كل الفكرة أن الـSettings ليس بها النوع Image ففكرت أني أضيف الصورة كـByte Array لكن وجدت أن الـSettings ليس بها هذا النوع أيضاً فبحثت في الأنواع التي يمكن إضافتها من خلال آخر أختيار في القائمة (Browse) و وجدت النوع ArrayList و الذي يمكن تحويله إلى Byte Array بكل بساطة
فكتبت دالتين، الأولى تحول من صورة إلى ArrayList و الثانية تحول من ArrayList إلى صورة
الدالة الأولى:
الدالة الثانية:
يوجد بالمرفقات مثال على حفظ خلفية الـForm في My.Settings
السلام عليكم و رحمة الله و بركاته
[ATTACH]121[/ATTACH]
[ATTACH]120[/ATTACH]
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى 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]
