[meme1336]

السلام عليكم

بعد عمل طريقتك اخت اميرة

كود :

Public videosPath As String = Application.StartupPath & "\videos\"

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim videofile As String = videosPath & "videochem.mp4"
    If IO.File.Exists(videofile) Then
        AxWindowsMediaPlayer1.URL = videofile
        AxWindowsMediaPlayer1.settings.setMode("Loop", True)
    Else
        MsgBox("الفيديو غير موجود" & vbNewLine & IO.Path.GetFullPath(videofile))
    End If
End Sub

الفيديو كان يعمل في جهازي ,,,,,,,,,,,,,,, كتبت الكود السابق ..........و عملت طريقة الاخ DR

و عندما حملته ع جهاز اخر ظهرت رساله عدم وجود لفيديو و هذا مرفق يوضح رساله الخطأ

[meme1336]

السلام عليكم

اخت اميرة جربت الطريقتين و الفيديو لا يعمل فقط عند نقله لجهاز اخر ..........................................................
و لكن احب ان انبهه الى شيئين مهمين

و هو :

1- عندما انقل فولدر المشروع كما هو الى جهاز اخر و اشغل الملف التنفيذي ...........    يعمل الفيديو


2- عندما اعمل طريقة DRsherif الموجودة في هذا الرابط
http://vb4arb.com/vb/Thread-%D8%B3%D8%A4...9%88%D9%83
و انصب المشروع ع الجهاز ثم اشغل المشروع من الملف التنفيذي .............. فالفيديو لا يعمل



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

---

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

---

لا ادري لماذا اشعر ان خطاي هي عند اضافة الملفات بطريقة الاخ Drsherif

ابع معي اخي وان شاء الله يصير كل خير

أولا  تفتح مشروعك وتعمل له Build من قائمة Build كما اظنك تعلم هذا

ثم  من داخل نفس مشروعك تذهب الى



ثم



في Location في الصورة السابقه بعد كتابة اسم مشروعك حدد مكان انشاء ملف التنصيب على جهازك

سيفتح لك بعد ذلك محرك عمل ملف التنصيب
اضغط next ثم next  
بعدها ستجد مربع اعلى الفورم اسمه Add
اضغط عليه ...  ثم قم باالتوجه الى مجلد الـ bin الخاص بمشروعك

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

ثم بعد ذلك تضغط Finish عند الانتهاء من اضافة الملفات
ستظهر لك شاشة جديده

---

ارجوكم سااااااااااااااااااااعدوني الوقت بدأ ينتهي و انا لسى ماحليت مشكلة الفيديو

[Dr.Sherif Alazizi]

meme1336

بخصوص الفيديو ...

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

حتى لا نتعرض لمشكلة مبدئيا
قم بوضع ملف الفيديو بجانب ملف المشروع التنفيذي ولا تضعه في مجلد داخلي
قم باستدعاء الفيديو بالكود وطلب مساره باستخدام هذا الكود مثلا مع تغيير اسم وامتداد الفيديو لديك
"Application.StartupPath & "\video.mp4

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

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

بالتوفيق ان شاء الله

[meme1336]

شكرا لكم و جزاكم الله خيرا و نفع بكم




سانفذ ما ذكرتموه بردودكم و اكتب النتيجة

---

اميرة نعم جربت الطريقة

---

بعد حذف فولدر لفيديو و تغيير المسار .......... الحمدلله الفيديو اشتغل بالجهاز الاخر




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

---

انتظر شرحك دكتور شريف ........ لكيفية دمج الملفات جميعها


سبق ان عملت دمج للملفات باحدى البرامج و زبط معايا ..........

انتظر طريقتك و هل بالامكان دمج برنامج الفيجوال بيسك + مشروعي في ملف سيت اب واحد عشان ينزل مع بعض في جهاز المستفيد

[Dr.Sherif Alazizi]

meme1336

تم عمل شرح كيفية صنع ملف تنفيذي كما طلبت
تجده في الموضوع الاصلي له

بالتوفيق ان شاء الله

[meme1336]

جزاك الله خيرا ماقصرت الله يعطيك العافية


شرح رااااااااااااااااااائع و جميل



طبقته و زبط معايا تمااااااام و اشتغلت الفيديوهات ع جهاز الاخر


و حملته ع جهاز اخر و زبط



و لكن اريد ان اسالك كيف يمكنني عمل ايقونة اختصار للبرنامج ع سطح المكتب حتى لا اضطر في كل مرة لفتح البرنامج من السي

[سعود]

انقر بزر الفارة الايمن على البرنامج بالسي وانقر من القائمة المنسدلة ارسال الى ثم من القائمة الفرعية انقر سطح المكتب (إنشاء إختصار)

---

ويمكنك عمل ذلك من ملف الاعداد setup حيث تنسخ الملف التنفيذي ضمن بيئة التطوير الى سطح المكتب.

[Dr.Sherif Alazizi]

(18-03-15, 04:02 PM)meme1336 كتب : جزاك الله خيرا ماقصرت الله يعطيك العافية


شرح رااااااااااااااااااائع و جميل



طبقته و زبط معايا تمااااااام و اشتغلت الفيديوهات ع جهاز الاخر


و حملته ع جهاز اخر و زبط



و لكن اريد ان اسالك كيف يمكنني عمل ايقونة اختصار للبرنامج ع سطح المكتب حتى لا اضطر في كل مرة لفتح البرنامج من السي

اللهم لك الحمد 

بخصوص سؤالك عن كيفية انشاء اختصار لسطح المكتب 
 تمت الاجابة عليه في الموضوع الاصلي لشرح عمل التنصيب
فقمت بعمل فيديو يشرح لك كيفية عمل اختصار للبرنامج في سطح المكتب وفي قائمة إبدأ خلال التنصيب

يتم اضافة الايقونات مباشرة في سطح المكتب وقائمة إبدأ بعد تنصيب البرنامج مباشرة في جهاز العميل


بالتوفيق ان شاء الله