01-03-16, 01:28 AM
أهلا أخي عبدالعزيز , بالنسبة للكود في الصورة التي أرفقتها أنت تستخدم أداة الـDrive1 الخاصه بالأقراص وأداة الـ Dir1 والخاصه بالمجلدات على القرص المحدد , لكن أنت وضعت الملفات في مجلد بإسم abdelaziz وهذا المجلد مكانه دائماً في داخل مجلد البرنامج أي بجانب ملف البرنامج لذلك أعتقد أنك لاتحتاج أداة الـ Drive1 وأداة الـ Dir1 لتحديد مكان وجود الملفات التي بداخل المجلد abdelaziz لأننا نعرف مكان وجود هذا المجلد لذلك أنت فقط تحتاج أداة الـ File1 لكي نعرض فيها الملفات الموجوده في المجلد abdelaziz , لذلك هذا الجزء من الكود أعتقد انك لاتحتاجه إلا إذا كنت تريده في أغراض أخرى أنا لا أعلم إخبرني إن كنت تريد إستخدامها , إذا مسار الملفات الذي يجب أن تضعه في الأداة File1 هو :
- تعديل الكود الموجود بالصور , سيصبح هكذا :
- والمعذرة لم أشاهد الكود الموجود في الفورم3 ولا الكود الموجود في الفورم1 لذلك عدلتها .
PHP كود :
'المسار القديم بإستخدام أداة الـDir1
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
'المسار الجديد
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\" & File1.FileName
- تعديل الكود الموجود بالصور , سيصبح هكذا :
PHP كود :
Private Sub File1_DblClick()
Form3.WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Form_Load()
Form3.WindowsMediaPlayer1.Controls.stop
File1.Path = App.Path & "\abdelaziz"
File1.Pattern = "*.mp3;*.wav;*.mp4;*.flv;*.mkv"
End Sub
- والمعذرة لم أشاهد الكود الموجود في الفورم3 ولا الكود الموجود في الفورم1 لذلك عدلتها .

