اريد اضافة ملف او فولدر بة ملفات للريسورس وحفظة
واريد اعادة تصديرة الملف من الريسورس الي اي مجلد اختار مرة اخري لجهاز اخر عند وضع البرنامج علية
انا استخدمت الكود دة لكتابة الملف لفولدر معين
Dim j
j = My.Resources._859b7d3c5c
Dim file As StreamWriter
file = New StreamWriter("d:\859b7d3c5c.jpg")
file.WriteLine(j)
file.Close()
بعد النقل وجدت الصورة فارغة وتم ارسالها للفولدر لاعلم ما الخطا
السلام عليكم ورحمه الله وبركاته
اخي جرب هذا التعديل على الكود
كود :
Dim j As Image
j = My.Resources.widget
Dim file As IO.StreamWriter
file = New IO.StreamWriter("D:\widget.png")
file.WriteLine(j)
file.Close()
اخي ايضا جرب هذا الكود اسهل من الكود الاخر
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
My.Resources.ms.Save("MS", System.Drawing.Imaging.ImageFormat.Png)
Dim finalPath As String = "d:\ms"
My.Resources.ms.Save(finalPath)
MsgBox(" تم نسخ الصورة بنجاح")
End Sub
الاكواد لم تعمل معي وايضا الملف فارغ بعد تصديرة للكمبيوتر
السلام عليكم
اخي الاكواد تعمل بشكل جيد والملف يكون موجود في الوجه التي ارسلت اليه
لاحظ الشرح :
[youtube]Xiv5ls4RpQ0[/youtube]
والمثال في المرفقات
اسف لان انا عندي بالريسورس صور كتير اخطات باسم الواجة مشكور جدا البرنامج يعمل جيد جدا
اريد كود الحفظ بالريسورس ضروري لاكمال برنامجي
يعني احفظ ملف داخل الريسورس او داخل برنامجي بحيث يمكن نقلة لجهاز اخر
اخي يمكن حفظ الكثير من الملفات داخل الريسورس عن طريق البرنامج نفسه بدون كود
اتبع الخطوات التاليه :
Project >> Application name propertie >> Resources
ثم قم باختيار Add resources
وبعدها قم باضافة الملفات التي ترغب في الريسورس ويتم حفظها في البرنامج
انا اريد بالكود اثناء عمل البرنامج وليس option هل ممكن ذاللك