[عبسي الحمديني]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته



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


الحدث :

كود PHP:

MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 


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

كود PHP:

كود PHP:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "Your Text"
End Sub 


جرب تشغيل البرنامج بالنقر على زر F5 بالكيبورد وبعد ذلك اضغط إي زر من الأزرار على واجهة الفورم لتلاحظ تنفيذ الحدث مباشرة وتنفيذ الكود الذي كتبنه الذي يعرض الرسالة بالحال حسنا ألان نود إن نتعرف على المتغيرات الموجودة داخل هذا الحدث وما وظيفة كل متغير وما عمله أولا المتغير Button يعمل هذا المتغير وضيفه المتغيران KeyCode و KeyAscii في إحداث الكيبورد فهو يقوم بخزن رمز معين للزر الذي تم ضغطه بالفائر وإما بالنسبة للمتغير Shift فهو يقوم بخزن قيمة ما لتعلمنا إذا ما كان المستخدم ضاغط زر Shift إثناء الضغط بالفائر أم لا وبالنسبة للمتغيران X و Y فهما متغيران لخزن موقع الفائرة فالمتغير X يقوم بخزن الموقع الأفقي للمكان الموجودة فيه الفائرة وبالنسبة للمتغير Y فهو يخزن الموقع ألعامودي التي توجد فيه الفائرة ألان كيفية نستطيع معرفة رمز كل زر من أزرار الفائرة الجواب سهل نستخدم نفس الطريقة في الشرح السابق نقوم بكتابة أمر لعرض رسالة لنا بقيمة المتغير Button الذي يحمل رمز الزر المضغوط وبهذه الطريقة نقوم قد حصلنا على رمز كل زر نبدأ بكتابة الكود كآلاتي

كود PHP:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single(
MsgBox Button
End Sub 


جرب تشغيل البرنامج وأضغط زر ألأيمن وبعدها الأيسر ولاحظ القيم كيف نستطيع استخدامها بعد أن عرفنا رمز كل زر سوف نستطيع أن ننفذ أجراء معين حسب الزر الذي قد يضغطه المستخدم فمثلا لو أردنا إن يقوم البرنامج بعرض رسالة فقط لو قام المستخدم بضغط الزر الأيمن نقوم بالأتي أولا نتحقق من رمز زر الفائرة الأيمن الذي هو = 2 وبعد ذلك نبدأ بكتابة جملة ألاف إذا كان المتغير Button الذي يحمل قيمة وهي رمز المفتاح المضغوط بالفائرة = 2 فقم بالاتي يكون الكود هكذا

كود PHP:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single(
If Button = 2 Then
MsgBox "Ahmed Feras "
End If
End Sub 


وجرب تشغيل البرنامج لتلاحظ أن الرسالة لا تظهر ألا في حالة كان الزر هو زر الفائرة الأيمن ألان انتهينا من شرح المتغير ألأول وعرفنا كيفية استخدامه بالإضافة إلى تنفيذ حدث حسب الزر الذي ضغطه ألان ننتقل للمتغير التالي المتغير Shift كما ذكرت هو يقوم بحمل قيمة رقمية تمثل فيما أذا كان المستخدم قد ضغط زر Shift أثناء ضغطه لزر بالفائرة أم لم يقم لمعرفة القيم في حال قام والقيمة في حال لم يقم نتبع الطريقة السابقة التي تقوم بعرض رسالة لقيمة المتغير نكتب الكود ألأتي

كود PHP:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single(
MsgBox Shift
End Sub 


نجرب في المرة الأولى ضغط الزر من دون ضغط زر Shift بالكيبورد معه لنلاحظ أن القيمة تكون صفر دائما بغض النظر عن الزر المضغوط بعد ذلك نضغط زر Shift سواء الأيمن أو الأيسر في الكيبورد مع استمرار الضغط وبعدها نضغط أي زر من أزرار الفائرة على الفورم لنلاحظ ظهور رسالة تخبرنا بان القيمة قد تغيرت وأصبحت = 1 وهذه ميزة يمكن استخدامها لبرنامجك ويمكنك كتابة الكود بنفس الصور السابقة إليك مثال بسيط

كود PHP:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single(
If Shift = 1 Then
MsgBox "You Click Shift Button"
Else
MsgBox "You Did not Click Shift Button"
End If
End Sub 


الفكرة كالسابق أذا كانت قيمة المتغير = كذا قم ببالاتي وإذا لم تكن كذا قم بالاتي ألان انتهينا من أول متغيران وهما Button و ألــ Shift ألان بقى المتغيران البسيطان X وألــ Y اللذان يعطيان موقع الفائرة لن أشرح عنهما لأنهما بغاية البساطة كل ما فيهما أنهما يعطيان قيم تمثل موقع الفائرة داخل الفورم ( واجهة البرنامج ) جرب الكود ألأتي وسوف تفهم بإذن الله

كود PHP:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single(
MsgBox X
MsgBox Y
End Sub 


ألان انتهيت من شرح الحدث السابق بالإضافة إلى جميع متغيراته وتوابعه بقى علي لأنهي الدرس إن أعرفك على باقي الإحداث

الحدث :

كود PHP:

MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 


يتم تفجير هذا الحدث فور تحرك الفائرة فوق الفورم والمتغيرات التي فيه نفس السابقة وبنفس ألاستعمال

الحدث الأخير الحدث :

كود PHP:

MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 


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

شكر خاص الي (أحمد فراس نبيل)
وللموضوع بقية