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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عرض الفيديو مع صور بجانبه على حسب مدة الفيديو (/showthread.php?tid=10554)

الصفحات: 1 2

RE: عرض الفيديو مع صور بجانبه على حسب مدة الفيديو - الاصيله - 22-05-19

(16-05-19, 02:01 PM)حسن الغزي كتب : شكرا لك استاذنا الكريم
زادك الله علما فوق علمك

لي سؤال اخر اذا سمحت

هل نستطيع ان نجعل في هذا المثال خيار لفتح ملفات الحاسوب واختيار احد الفيديوات الموجوده
ارجو الافادة

لك مني فائق الود والاحترامك
وعليكم السلام ورحمة الله وبركاته
لعل الاستاذ Ahmed_Mansoor غير موجود او لم ينتبه لسؤالك حتى يحيب
وانا بعد الاذن منه سأجيبك 
نعم يمكن ان نضع خيار لاختيار اجد الفيديوهات من داخل ملف البرنامج
كل ماعليك فعله اضافة ليست وتيكست واحد
الليست تضع فيه امتدادات الفيدوهات والتيكس تضعه بدل الامتداد الموضوع داخل زر المشغل 
وتعطي المساوات بين التيكست والليست هكذا كما في هذا الكود

كود :
Private Sub Command1_Click()
Text1 = List1
WindowsMediaPlayer1.URL = Text1

WindowsMediaPlayer1.Controls.Play
End Sub

Private Sub Form_Load()
List1.List(0) = App.Path & "\Test.wmv"
 List1.List(1) = App.Path & "\Test.mp4"
 
End Sub


RE: عرض الفيديو مع صور بجانبه على حسب مدة الفيديو - حسن الغزي - 23-05-19

(22-05-19, 03:21 PM)الاصيله كتب :
وعليكم السلام ورحمة الله وبركاته
لعل الاستاذ Ahmed_Mansoor غير موجود او لم ينتبه لسؤالك حتى يحيب
وانا بعد الاذن منه سأجيبك 
نعم يمكن ان نضع خيار لاختيار اجد الفيديوهات من داخل ملف البرنامج
كل ماعليك فعله اضافة ليست وتيكست واحد
الليست تضع فيه امتدادات الفيدوهات والتيكس تضعه بدل الامتداد الموضوع داخل زر المشغل 
وتعطي المساوات بين التيكست والليست هكذا كما في هذا الكود

كود :
Private Sub Command1_Click()
Text1 = List1
WindowsMediaPlayer1.URL = Text1

WindowsMediaPlayer1.Controls.Play
End Sub

Private Sub Form_Load()
List1.List(0) = App.Path & "\Test.wmv"
 List1.List(1) = App.Path & "\Test.mp4"
 
End Sub
السلام عليك
استاذتنا الموقره لك كل الشكر والتقدير لما تبذلينه من مساعدة الاخرين 
جعلها الله في ميزان اعمالك
تم التطبيق ونجح الامر

لك كل الود والتقدير