[أسامة أحمد]

السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى 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]

[insilulse]

Hi this is uninterested

http://www.dipGVO7ixdfHpa.cz

<a href="http://www.dipGVO7ixdfHpa.cz/">dipGVO7ixdfHpa</a>

[sooriaty03]

جزاك الله خيرا وأحسن إليك

[3amo]

جزاك الله خيرا

[kebboud]

(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]

السلام عليكم أخي الكريم
أرجو رفع المرفقات من جديد حتى اعم الفائدة

[أبو جودة]

الرابط لا يعمل

[justforit]

هذا كود بديل

فقط اضف بند في my.settings  من نوع string

الصورة المعروضة بعد استخراجها الى مجلد الـtmp

PHP كود :

Private Function IsImage(pic As String) As Boolean
     Try
         Dim img As New Bitmap(Image.FromFile(pic))
         Return True
     Catch ex As Exception
         Return False
     End Try
 End Function
 Private Sub btnaddpic_Click(sender As Object, e As EventArgs) Handles btnaddpic.Click
     Dim o As New OpenFileDialog
     If o.ShowDialog = DialogResult.OK Then
         If IsImage(o.FileName) = False Then
             MsgBox("الملف ليس صورة", MsgBoxStyle.Critical, "")
             Exit Sub
         End If
         My.Settings.myimage = System.Text.Encoding.Default.GetString(My.Computer.FileSystem.ReadAllBytes(o.FileName))
         My.Settings.Save()
     End If
 End Sub
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim tmpfile As String = IO.Path.GetTempFileName
     My.Computer.FileSystem.WriteAllBytes(tmpfile, System.Text.Encoding.Default.GetBytes(My.Settings.myimage), False)
     pic.Image = Image.FromFile(tmpfile)
 End Sub 


الدالة الاولى للتحقق من ان الملف المحدد من قبل المستخدم  صورة

الثانية كود بزر يستعرض ويختار صورة و يحولها ثم يحفظها في البند اللذي اضفته و هو هنا myimage  من نوع string

الثالثة استخراج الصورة المحولة  المخزنة في الـmy.setting بعد ارجاعها الى اصلها اي صورة

[أبو جودة]

و الله انا مش عارف اشكرك ازاى
جزاك الله خيرا فى الدنيا و الآخرة
لكن عندى طلب لو ممكن .......
كنت اريد فهم الكود و ليس نقله فقط
و بمساعدتك قربت انتهى من البرنامج اللى شغال فيه بقالى 10 شهور و مش عاوز يخلص

[أبو جودة]

الكود شغال تمام
الله يبارك فيك و يبارك عليك

[justforit]

(14-04-24, 09:04 AM)أبو جودة كتب : الكود شغال تمام
الله يبارك فيك و يبارك عليك

اذا تقصد مشاركتي فعفوا اخي الكريم لانك لم تقتبس الرد اللذي تود الرد عليه