[anasmoner]

(21-08-16, 02:58 AM)الوادي كتب : فقط البرنامج وانا اجرب ملفات pdf من عندي
بس احذف ملفات exe واحذف مجلد obj كامل

ما ادري ايش فيه كمان حتى يكون المشروع كبير!

حسنا

---

او هذا إذا كان الأخر لا يعمل

---

او هذا إذا كان الأخر لا يعمل

[الوادي]

البرنامج ما فتح معاي على 2010 لكن انا فتحت ملف Form1.vb ووجدت أكواده طويله ومكررة

انا جربت فتح ملف pdf من الريسورس بهذا الكود، شوف كيف صار اسم الملف بعد اضافته وحاول تطبيق نفس الفكرة على بقية الأسطر
بدل السطر الطويل اللي يبدأ ب Process.Start استخدم هذا بدل منه بعد ما تضع كل ملفات pdf في الريسورس، وبعدها ما تحتاج لارفاق هذه الملفات في برنامج exe

PHP كود :

Dim fn As String = IO.Path.GetTempFileName & ".pdf"
IO.File.WriteAllBytes(fn, My.Resources._1__المجلد_الأول___شروط_التعاقد)
Process.Start(fn) 


انا حنتظر قليلاً لآرى ردك هل وضحت الفكرة أم لا.

[anasmoner]

(21-08-16, 03:21 AM)الوادي كتب : البرنامج ما فتح معاي على 2010 لكن انا فتحت ملف Form1.vb ووجدت أكواده طويله ومكررة

انا جربت فتح ملف pdf من الريسورس بهذا الكود، شوف كيف صار اسم الملف بعد اضافته وحاول تطبيق نفس الفكرة على بقية الأسطر
بدل السطر الطويل اللي يبدأ ب Process.Start استخدم هذا بدل منه بعد ما تضع كل ملفات pdf في الريسورس، وبعدها ما تحتاج لارفاق هذه الملفات في برنامج exe

PHP كود :

Dim fn As String = IO.Path.GetTempFileName & ".pdf"
IO.File.WriteAllBytes(fn, My.Resources._1__المجلد_الأول___شروط_التعاقد)
Process.Start(fn) 


انا حنتظر قليلاً لآرى ردك هل وضحت الفكرة أم لا.

جاري التجريب وإن شاء الله يشتغل

---

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