(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
اختكم الاصيله