بسم الله الرحمن الرحيم
هنشرح اليوم كيفية التعامل مع ادوات
DriveListBox
DirListBox
FileList Box
أسماء المشغلات DriveListBox :
وهذه الأداة تتعامل مع محركات الأقراص الصلبة.
عرض المجلدات DirListBox:
تظهر كل المجلدات الموجودة داخل أحد المجلدات أو أحد المجلدات الموجودة داخل أحد المشغلات و تعطينا إمكانية الاختيار منها.
عرض الملفات FileList Box :
تعرض لنا قائمة من الملفات الموجودة داخل مجلد معين و تعطينا إمكانية اختيار أحدها. و التعامل معها.
ما الفائدة من هذه الادوات:
نستطيع
عن طريق استخدام هذه الادوات الثلاث الوصول لاي ملف نحتاجه وكأنك تتصفح
الكمبيوتر للوصول لملف انت بحاجه له او لتشغيله ايا كان فيديو صوت ملف فلاش
ملف كتابي الخ
طيب وايه لزمتها ما انا ممكن اتصفح وخلاص من خارج البرنامج واجيب اللي انا محتاجه
طيب
متفكر كدا معايا بما ان معانا داخل برنامجنا هذه الادوات نقدر نستغلها في
تشغيل الملفات اللي محتاجنها داخل برنامجنا علي سبيل المثال نعمل برنامج
لتشغيل الصوتيات مثلا او الفيديو او مشغل فلاش او تصفح ملفات كتابيه مثلا
الخ
طريقة العمل سيتم تحديد الدريف من اول اداة DriveListBox
وبناء عليها يتم سرد المجلدات في الاداة الثانية DirListBox
ويتم الاختيار من الاداة الثانية المجلد الهدف
وبناء على المجلد الهدف يتم سرد الملفات الموجودة به في الاداة الثالثة FileList Box
وبناء علي اختيار الملف من الاداة الثالثة يتم تشغيل الملف تلقائي داخل برنامجنا
خلاص توكلنا علي الله ونعمل برنامج مشغل صوتيات وفيديو كمان
ودا مجرد مثال لشرح طريقة عمل الادوات وصولا لتشغيل الملف الهدف في النهاية
يلا كله يفتح البرنامج
الادوات مشروع جديد
الاداوت الثلاثة المذكورة كما بالصورة
طيب
يلا كدا نربط الثلاثة ادوات ببعض عشان لما نقوله هات البارتشن كذا تروح
الاداة الاخرى تلقائي تفتح المجلدات اللي في نفس البارتشن وعند الضغط علي
المجلد المحدد يتم فتح الملفات بداخله
وعند الضغط علي الملف يتم تشغيله
اكواد ربط الادوات
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
شرح الاكواد في حدث التغيير عند اختيار احد الدريفات يبقي مسار الاداة الثانية بيساوي مسار الدريف ويبقي كدا ظهر لنا ملفات الدريف في الاداة الثانية
الكود الثاني عند اختيار مجلد من الاداة الثانية يبقي مسار الاداة الثالثة بيساوي مسار الاداة الثانية ويتم عرض الملفات الموجودة به
طيب كدا الملفات كلها هتظهر واحنا عاوزين نخصص برنامجنا لبعض الامتدادات فقط كيف نخصص امتدادات تظهر فقط
عن طريق الكود التالى
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv"
End Sub
نضع هذا الكود مثلا في حدث تحميل الفورم
وهنا قمت بتحديد الامتدادات المراد عرضها وهي امتداد الصوت وبعض امتدادات الفيديو وبامكانكم وضع اي امتدادات اخرى
طيب احنا كدا وصلنا لاخر شئ بالنسبة للادوات وناقص شئ واحد وهو عند الضغط علي الملف يتم تشغيله
لعمل هذا نضيف هذه الاداة للفورم بتاعنا
كلنا عارفين الاداة دي وهيا ويندوز ميديا بلير ودا تقريبا في كل نسخ الويندوز يعني مش هنقابل مشكلة تسجيل الاداة ومش موجودة ومش بتفتح معايا لا ابدا البرنامج دا هيفتح باذن الله علي معظم الاجهزة بدون مشاكل
نيجي لاكواد التشغيل الملفات التي يتم اختيارها داخل الميديا بلير
Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub
عملت الكود في حدث الدبل كليك داخل الفايل ليست بوكس عشان مش كل ما اختار ملف يشتغل من اول كليك لا الملف اللي محتاج تشغله دبل كليك عليه يشتغل معاك
وطبعا ممكن نعمل ازرار تحكم لايقاف وتشغيل ما نريد
وطبعا الكل هيبدع في الموضوع دا وبلمسات المواضيع اللي فاتت هيبقي اجمل
وادي الكود كامل عشان تعرفو باقل كود ممكن نعمل حاجه كبيرة ومميزة
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv"
End Sub
وبكدا نكون انتهينا من نقطة تحديد الملفات وتشغيلها وقريبا باذن الله مثال اخر لملفات اخرى لتأكيد المعلومة وتداولها في اكثر من مسار
خالص تحياتي
ياسر العربي
يتبع
الإبتساماتإخفاء