**************************
قبل ان انسى هناك خطوة واضافة اخرى مهمة
قم بادراج lable وضعة على المنيو ستريب بجوار stop كما سترى بالصورة واحذف اسمة من الخاصية تكست -- يعنى فى الخاصية تكست شيل كلمة ليبل وخليها فاضية عشان اسم الليبل يختفى
بعد كدا اضغط مرة واحدة على openfiledialog
وفى الخاصية فلتر اكتب الاتى
All Media|*.*
الواقع انه لابد لك ان تشاهد الصورة حتى تتمكن جيدا من كتابة الامر كتابة صحيحة
يمكنك كتابة all media|*.mp3
او
all media|*.rm
يعنى بعد علامة النجمة اكتب اسم الصيغة التى تريد لبرنامج ان يعرضها لك حين تفتح صندوق الاختيار الذى منه سوف تختار الملف المراد تشغيلة
بالنسبة للرمز | فكل ما ستفعله هو ان تضغط على زر شفت ثم الرمز \ بجوار حرف = فى لوحة المفاتيح
فتكون نتيجة الضغط عليهما هو الرمز ( | )
اتمنى ان يكونى كلامى واضحا
والان تبدأ المرحلة الشاقة وهى برمجة الفورد وادواته بالاكواد
نضغط Double Click الان على الحدث open
يعنى بالعربى ندوس مرتين على كلمة اوبن اللى كتبناها لما ادرجنا الاداه menustrip
وفى الحدث البرمجى الخاص بها نكتب الكود التالى يدويا
وانا انصح كل متابعينى بأن يكتبوا الاكواد كما بالصورة الموضحة
وتحسبا لحذفها من اساسا فسوف اقوم بنسخ الكود هنا
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
اسفل السطر السابق نقوم بكتابة
OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = (OpenFileDialog1.FileName)
Label1.Text = OpenFileDialog1.SafeFileName
End Sub
وهو يعنى انه حال الضغط على الزر اوبن يظهر لنا مربع الحوار
يظهر لنا صندوق نختار منه الملف المراد تشغيلة
وحين يبدأ فى العمل تظهر بدلا من عنصر الليبل واحد عبارة تحمل اسم الاغنية او الفيديو الحالى
والسطر الثانى يعنى ان الملف الذى يختارة المستخدم ضمن ملفات الفيديو سوف يعمل داخل اطار الويندوز ميديا بلاير طالما كان الميديا بلاير يدعم تشغيلة
اكتب الكود يدويا تجنبا للأخطاء
---------------------------------------
نعود مرة اخرى الى الفورم
ونغط دبل كليك على الحدث Play الموجود فى قائمة منيوستريب
ونقوم بكتابة الكود التالى
Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
اسفل السطر السابق نقوم بكتابة هذا السطر فقط
AxWindowsMediaPlayer1.URL = (OpenFileDialog1.FileName)
End Sub
حيث ان AxWindowsMediaPlayer1 هو اسم الاداة windows media player والتى ادرجناها كأول عنصر فى الفورم
عليك بمتابعة الصورة التالية وكتابة الكود يدويا
**-------------------------
والان نقوم ببرمجة الزر الثالث والاخير
والذى اصطلحنا على تسميته مثلا
pause او Stop
ايهما يروق لك
Private Sub PauseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseToolStripMenuItem.Click
اسفل السطر السابق نقوم بكتابة الكود التالى
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
والمعنى واضح لا يحتاج لشرح
والصورة خير دليل
ادعس على الخط الاصفر اعلى الصورة لترها بالحجيم الكبير
عقب كل تغيير لا تنسى الضغط على زر اف 5 ==== F5 ------ او دوس على حفظ من قائمة فايل اعلى برنامج الفجيوال بايسك
----------------------------
و
الان نقوم بالتجربة
والام ما الذى استفدته من الدرس السابق
--------
1- هذا المشروع لا يلبى مطالب الجميع -- لانه يعمل تحت منصفة الدوت نت فرام ويرك4 فقط
ولكن بقليل من الخطوات يمكننى جعله يعمل على اى جهاز ليس به النت فرام ويرك -- بل -- والعمل تحت اى CPU لاى جهاز متخلف حضاريا عن عام 2012
2- يمكن تحويل المشروع الى ملف سيت اب بكامل الملفات المساعدة " وهى ملفات الدل Dll"
3- يمكن اضافة ملف صوتى يعمل تلقائيا بمجرد تشغيل البرنامج كما تلاحظ الحال فى ال****
4- اذا اردت اى مشروع اخر فاكتب لى ردا بطلبك وسأحاول ان اقدمة لك اذا كنت اعرف طريقة تصميمه
5- الانسان غير مسؤل عن كامل تصرفاته الخبيثة فى الحياة -- ولا عن احلامة او كوابيسه
6- كلنا الى زوال يا اخوانى فى البشرية -- فلن العب دور مصلح اجتماعى كحصان عجوز لأقول لك اننا فى دولة ديموقراطية ودعونا نحب بعضنا الى حد الجنون
7- كما بدأت كلامة --- اختمة الان بعبارة
" اللهم لا سهل الا ما جعلته سهلا وانت تجعل الحزن ان شئت سهلا "
والسلام عليكم ورحمة الله وبركاتة