تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها!
#1
السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى 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]


الملفات المرفقة
.rar   Example in VS 2008.rar (الحجم : 92.93 ك ب / التحميلات : 225)
.rar   Example in VS 2010.rar (الحجم : 93.67 ك ب / التحميلات : 243)
رابط قناتي على اليوتيوب :
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

الرد }}}
تم الشكر بواسطة:
#2
Hi this is uninterested

http://www.dipGVO7ixdfHpa.cz

<a href="http://www.dipGVO7ixdfHpa.cz/">dipGVO7ixdfHpa</a>
الرد }}}
تم الشكر بواسطة:
#3
جزاك الله خيرا وأحسن إليك
الرد }}}
تم الشكر بواسطة:
#4
جزاك الله خيرا
الرد }}}
تم الشكر بواسطة:
#5
(17-09-12, 09:01 PM)أسامة أحمد كتب :
السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى 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]
السلام عليكم أخي الكريم
أرجو رفع المرفقات من جديد حتى اعم الفائدة


    Heart ربي زدني علما  Heart

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عمل نسخة لتثبيت فيجوال ستوديو بدون نت معاند الحظ 12 8,086 11-12-21, 04:26 PM
آخر رد: اسلام الكبابى
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 8 6,264 01-07-18, 01:21 AM
آخر رد: YousefOkasha
  تنزيل يوتيوب فيديو بدون برنامج Abu Ehab 2 2,580 22-03-18, 03:53 PM
آخر رد: عبد العزيز البسكري
  [درس فيديو] شرح ربط البرنامج بقاعدة بيانات, إدراج حذف تعديل جلب البيانات ( بدون أن تكتب سطر واحد) عبدالله الدوسري 4 6,449 08-02-18, 12:55 AM
آخر رد: Ameer Eagle
  إخفاء تكست في صورة silverlight 0 2,494 02-07-17, 09:31 AM
آخر رد: silverlight
  [نقاش] هل تعلم هذا عن Select Case ali.alfoly 3 3,400 30-12-16, 07:00 PM
آخر رد: Basil Abdallah
  معلومة ::: ListBox Blue Sky 14 22,012 14-11-16, 11:32 PM
آخر رد: فارس جراح
  طريقة مميزة لعمل إعدادات Setting لحفظ اعدادات برنامجك بدون أكواد kslawy 6 6,044 26-05-16, 12:07 PM
آخر رد: CLARO
  [درس فيديو] حل مشكلة صلاحيات قواعد البيانات عند تغيير مسارها على الجهاز Operating System Error 5 أحمد النجار 1 3,333 31-12-15, 02:52 AM
آخر رد: WAEL ABED
  كيفية تغيير خلفية محرر الكود في Visual Studio 2010 إلى صورة أبو عمر 0 4,193 06-09-15, 06:44 PM
آخر رد: أبو عمر

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


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