حصريا شرح بالصور لطريقة عمل برنامج لاغلاق الجهاز بالفجوال بيسك+المشروع

السلام عليكم ورحمة الله وبركاتة
تحية طيبة اخواني المشاغبين
قدملكم درس لطريقة عمل برنامج بالفجوال بيسك مع الشرح الممل بالصور
كفانة كلامأ ولندخل في صلب الموضوع

افتح الفجوال بيسك الذي سبك تنصيبة على جهازك ومن ليس لديه الفجوال بيسك يستطيع تحميلة
من الموضوع التالي من اخونة المقني
http://www.absba.org/showthread.php?t=650173

بعد ما فتحنا الفجوال بيسك نختار مشروع ستنادرد كما توضحه الصورة



بعد ذلك سوف يضهر لنا فورم رقم وحد form يعني الشكل او اطار البرنامج كما في الصورة التالية



نقوم بتغير اسم الفورم من خصائصة ومن الخاصية caption كما توضحه الصورة التالية



سنلاحظ ان اسم الفورم قد تغير كما في الصورة التالية


والان نقوم بادراج ادة الي الفجوال بيسك سمها Microsoft Shell Control
ولادراجها نتبع الخطوات التالية

من الخيار بروجكت الموجود بالاعلى Project نختار كما في الصورة التالية


سوف تضهر نافذة جديدة نبحث عن الاداة المطلوبة ونضيفها بالضغط على الز اوكي



سنلاحظ ان هذه الاداة تم اضافتها الى الادوات


نضغط على الاداة التي تم اضافتها دبل كلك لاضافتها الي البرنامج



سنلاحظ ان شئ ما قد انضاف على شكل اطار

الان نضيف زر كما توضحه الصورة بالضغط دبل كلك على الاداة command button


سنلاحظ انها انضافت



نغير اسمها من خاصية caption الى shutdown



ثم دبل كلك على الزر,سوف تنفتح لنا صفحة الكود



الان نضيف الكود


وها هو الكود



كود:
Dim shll32 As New Shell

كود:
If MsgBox("Shut Down your PC?", vbExclamation + vbYesNo, "SHELL32") = vbYes Then
shll32.ShutdownWindows
End If

السطر الاول Dim shll32 as new shell
لقد قمنا بتعريف الاداة المدرجة على انها نوع جديد من الدوال من النوع shell التي تستخدم لاستدعاء ملف موجود بالنظام
والسطر الثاني استخدمنا قاعدة IF الشرطية ومعها رسالة ذات الخيارين yes and no
وعلامية اليساوي والكواد الذي بعدها يعني اذا المستخدم ضغظ على يس فقوم
باستعداء الملف الموجود بالسطر الاخير وهو المسؤال عن اغلاق الجهز واذا
اختار نو فتجاهل ذلك
واخر شئ
End if لانهاء عبارة الشرط

والان بعد ان اضفت الكود الي مشروعك
عدل البرنامج كما تريد
وبعد التعديلات سوف يكون بهذا الشكل



الان تقوم بتشغيل البرنامج لتجربتة
بالضغط على زر التشغيل كما توضحه الصورة



وبعد الضغط على زر لاطفء ستضهر لنا الرسالة الاطفاء


والان مبروك عليك عملت برنامج بسيط سهل بالفجوال بيسك


ولتحميل المشروع كامل مع الاكواد

يتفضل بالتحميل من هنا

http://www.2shared.com/file/3922720/...utdown_pc.html

السلام عليكم
لاتنسو الردود