السلام عليكم
بعد عمل طريقتك اخت اميرة
كود :
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
و عندما حملته ع جهاز اخر ظهرت رساله عدم وجود لفيديو و هذا مرفق يوضح رساله الخطأ
السلام عليكم
اخت اميرة جربت الطريقتين و الفيديو لا يعمل فقط عند نقله لجهاز اخر ..........................................................
و لكن احب ان انبهه الى شيئين مهمين
و هو :
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 عند الانتهاء من اضافة الملفات
ستظهر لك شاشة جديده
ارجوكم سااااااااااااااااااااعدوني الوقت بدأ ينتهي و انا لسى ماحليت مشكلة الفيديو
meme1336
بخصوص الفيديو ...
ذكرت انه عند نقلك للمشروع الى الجهاز الاخر فان الفيديو يعمل
وعند استخدام طريقة تنصيب التي ذكرتها فان الفيديو لا يعمل ... وهذا قد يكون بسبب ان الفيديو نفسه لم تقم بارفاقه الى ملفات التنصيب
او انك قمت بارفاقه الى ملفات التنصيب ولكنك لم تكتب مسار قراءة الفيديو في كودك بشكل صحيح
حتى لا نتعرض لمشكلة مبدئيا
قم بوضع ملف الفيديو بجانب ملف المشروع التنفيذي ولا تضعه في مجلد داخلي
قم باستدعاء الفيديو بالكود وطلب مساره باستخدام هذا الكود مثلا مع تغيير اسم وامتداد الفيديو لديك
"Application.StartupPath & "\video.mp4
عند عمل ملف التنصيب لا تنس ابدا ارفاق ملف الفيديو ضمن ملفات المشروع الاساسيه
وبخصوص عمل ملف واحد للتنصيب سأقوم بشرح الموضوع الان باذن الله في الموضوع الخاص به كما طلبت
بالتوفيق ان شاء الله
شكرا لكم و جزاكم الله خيرا و نفع بكم
سانفذ ما ذكرتموه بردودكم و اكتب النتيجة
اميرة نعم جربت الطريقة
بعد حذف فولدر لفيديو و تغيير المسار .......... الحمدلله الفيديو اشتغل بالجهاز الاخر
اشكركم جميعا اخت اميره اخ سعود و الاخ DRsherif اتعبتكم معي جزاكم الله خيرا
انتظر شرحك دكتور شريف ........ لكيفية دمج الملفات جميعها
سبق ان عملت دمج للملفات باحدى البرامج و زبط معايا ..........
انتظر طريقتك و هل بالامكان دمج برنامج الفيجوال بيسك + مشروعي في ملف سيت اب واحد عشان ينزل مع بعض في جهاز المستفيد
meme1336
تم عمل شرح كيفية صنع ملف تنفيذي كما طلبت
تجده في الموضوع الاصلي له
بالتوفيق ان شاء الله
جزاك الله خيرا ماقصرت الله يعطيك العافية
شرح رااااااااااااااااااائع و جميل
طبقته و زبط معايا تمااااااام و اشتغلت الفيديوهات ع جهاز الاخر
و حملته ع جهاز اخر و زبط
و لكن اريد ان اسالك كيف يمكنني عمل ايقونة اختصار للبرنامج ع سطح المكتب حتى لا اضطر في كل مرة لفتح البرنامج من السي
انقر بزر الفارة الايمن على البرنامج بالسي وانقر من القائمة المنسدلة ارسال الى ثم من القائمة الفرعية انقر سطح المكتب (إنشاء إختصار)
ويمكنك عمل ذلك من ملف الاعداد setup حيث تنسخ الملف التنفيذي ضمن بيئة التطوير الى سطح المكتب.
(18-03-15, 04:02 PM)meme1336 كتب : [ -> ]جزاك الله خيرا ماقصرت الله يعطيك العافية
شرح رااااااااااااااااااائع و جميل
طبقته و زبط معايا تمااااااام و اشتغلت الفيديوهات ع جهاز الاخر
و حملته ع جهاز اخر و زبط
و لكن اريد ان اسالك كيف يمكنني عمل ايقونة اختصار للبرنامج ع سطح المكتب حتى لا اضطر في كل مرة لفتح البرنامج من السي
اللهم لك الحمد
بخصوص سؤالك عن كيفية انشاء اختصار لسطح المكتب
تمت الاجابة عليه في الموضوع الاصلي لشرح عمل التنصيب
فقمت بعمل فيديو يشرح لك كيفية عمل اختصار للبرنامج في سطح المكتب وفي قائمة إبدأ خلال التنصيب
يتم اضافة الايقونات مباشرة في سطح المكتب وقائمة إبدأ بعد تنصيب البرنامج مباشرة في جهاز العميل
بالتوفيق ان شاء الله