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]
رابط قناتي على اليوتيوب :
https://www.youtube.com/user/OsamaAhmadGalal
رابط حساب الفيسبوك :
https://www.facebook.com/P.Osama.Ahmad.Galal
رابط حساب التويتر :
https://twitter.com/osamaahmadgalal
البريد الإلكتروني للتواصل :
OsamaAhmadGalal@Hotmail.Com
OsamaAhmadGalal@Yahoo.Com
OsamaAhmadGalal@Gmail.Com
رقم الموبايل :
00201122777845
https://www.youtube.com/user/OsamaAhmadGalal
رابط حساب الفيسبوك :
https://www.facebook.com/P.Osama.Ahmad.Galal
رابط حساب التويتر :
https://twitter.com/osamaahmadgalal
البريد الإلكتروني للتواصل :
OsamaAhmadGalal@Hotmail.Com
OsamaAhmadGalal@Yahoo.Com
OsamaAhmadGalal@Gmail.Com
رقم الموبايل :
00201122777845