+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! (/showthread.php?tid=4171)
الصفحات:
1
2
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - أسامة أحمد - 17-09-12
السلام عليكم و رحمة الله و بركاته،
اليوم إن شاء الله سنتعلم كيفية حفظ صورة إلى 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]
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - insilulse - 13-11-12
Hi this is uninterested
http://www.dipGVO7ixdfHpa.cz
<a href="http://www.dipGVO7ixdfHpa.cz/">dipGVO7ixdfHpa</a>
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - sooriaty03 - 16-12-12
جزاك الله خيرا وأحسن إليك
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - 3amo - 16-12-12
جزاك الله خيرا
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - kebboud - 18-07-21
(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]
أرجو رفع المرفقات من جديد حتى اعم الفائدة
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - أبو جودة - 12-04-24
الرابط لا يعمل
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - justforit - 13-04-24
هذا كود بديل
فقط اضف بند في 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 بعد ارجاعها الى اصلها اي صورة
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - أبو جودة - 13-04-24
و الله انا مش عارف اشكرك ازاى
جزاك الله خيرا فى الدنيا و الآخرة
لكن عندى طلب لو ممكن .......
كنت اريد فهم الكود و ليس نقله فقط
و بمساعدتك قربت انتهى من البرنامج اللى شغال فيه بقالى 10 شهور و مش عاوز يخلص
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - أبو جودة - 14-04-24
الكود شغال تمام
الله يبارك فيك و يبارك عليك
RE: معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! - justforit - 14-04-24
(14-04-24, 09:04 AM)أبو جودة كتب : الكود شغال تمام
الله يبارك فيك و يبارك عليك
اذا تقصد مشاركتي فعفوا اخي الكريم لانك لم تقتبس الرد اللذي تود الرد عليه
