تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض الفيديو مع صور بجانبه على حسب مدة الفيديو
#11
(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
اختكم الاصيله
الرد
تم الشكر بواسطة: حسن الغزي , sendbad100 , جاسم عبد , جاسم عبد
#12
(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
السلام عليك
استاذتنا الموقره لك كل الشكر والتقدير لما تبذلينه من مساعدة الاخرين 
جعلها الله في ميزان اعمالك
تم التطبيق ونجح الامر

لك كل الود والتقدير
الرد
تم الشكر بواسطة: sendbad100 , جاسم عبد , جاسم عبد , الاصيله


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم