[mazen55]

اريد اضافة ملف  او فولدر بة ملفات للريسورس وحفظة

واريد اعادة تصديرة الملف من الريسورس الي اي مجلد اختار  مرة اخري لجهاز اخر عند وضع البرنامج علية

انا استخدمت الكود دة  لكتابة الملف لفولدر معين

 Dim j
        j = My.Resources._859b7d3c5c
        Dim file As StreamWriter
        file = New StreamWriter("d:\859b7d3c5c.jpg")
        file.WriteLine(j)
        file.Close()
بعد النقل وجدت الصورة فارغة وتم ارسالها للفولدر لاعلم ما الخطا

[eng.khalidvb]

السلام عليكم ورحمه الله وبركاته
 اخي جرب هذا التعديل على الكود

كود :

 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

[mazen55]

الاكواد لم تعمل معي وايضا الملف فارغ بعد تصديرة للكمبيوتر

[eng.khalidvb]

السلام عليكم

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

لاحظ الشرح :

[youtube]Xiv5ls4RpQ0[/youtube]

والمثال في المرفقات

[mazen55]

اسف لان انا عندي بالريسورس صور كتير اخطات باسم الواجة  مشكور جدا البرنامج يعمل جيد جدا

اريد كود الحفظ بالريسورس ضروري لاكمال  برنامجي

يعني احفظ ملف داخل الريسورس او داخل برنامجي بحيث يمكن نقلة لجهاز اخر

[eng.khalidvb]

اخي يمكن حفظ الكثير من الملفات داخل الريسورس عن طريق البرنامج نفسه بدون كود


اتبع الخطوات التاليه :

 Project >> Application name propertie >>  Resources

 ثم قم باختيار   Add resources

وبعدها قم باضافة الملفات التي ترغب  في الريسورس ويتم حفظها في البرنامج

[mazen55]

انا اريد بالكود اثناء عمل البرنامج وليس option هل ممكن ذاللك