أحداث الفأرة (مبتدئين)

بسم الله الرحمن الرحيم

يمكن أن تكون الفأرة هي أكثر الأدوات استخداما في الفيجول بيزك ولذا فإن لهذه الأداة أحداث يجب أن نعرفها ونستعملها في برامجنا الجدية والعملية فلنبدأ على بركة الله :

الحدث Mouse Down ويتم تنفيذ هذا الحدث عند الضغط على زر من أزرار الفأرة دون تحريره أي نظل ضاغطين على هذا الزر جرب أن تضع زر أمر في نموذج فارغ واكتب هذا الكود في Mouse down التابعة للنموذج :

Command1.Move X, Y

X و y يمثلان الإحداثي السيني والصادي لموقع مؤشر الفأرة وعندما يتم الضغط على زر الفأرة فإنه سيتم تحريك زر الأمر إلى موقع مؤشر الفأرة الحالي.

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

MsgBox "لقد تم تغيير موقع  الزر بنجاح  "

الحدث mouse move يتم تنفيذه عندما يتم تغيير مكان مؤشر الفأرة جرب أن تضع صورة وجهك الوسيم داخل النموذج ولتسمها picmyface ثم اكتب هذا الكود في mouse move التابع للنموذج :

picmyface.Move X, Y

وهنا نلاحظ أن الصورة عند تشغيل النموذج تكون ثابتة في مكانها لذلك اكتب هذا الكود في الحدث form_load

picmyface.Visible = False

وغير كود mouse move إلى

picmyface.Visible = True
picmyface.Move X, Y

بقي علينا أن عرف أنه بإمكاننا أن نعرف ما الزر الذي يضغط عليه المستخدم الآن عن طريق الوسيط button

وتكون قيمة هذا الوسيط 1 عندما يكون زر الفأرة الأيسر مضغوطاً وتكون قيمته 2 عندما يكون زر الفأرة الأيمن مضغوطاً و3 عندما يكون الزر الأوسط للفأرة مجنياً عليه والجاني هو إصبع المستخدم

جرب كتابة الكود التالي في الحدث mouse down التابع للنموذج

Select Case Button

 Case 1
Me.Caption = " الزر الأيسر مضغوط الآن"
 Case 2
Me.Caption = " الزر الأيمن مضغوط الآن"
Case 3
Me.Caption = " الزر الأوسط  مضغوط الآن"
End Select

ولا تنسى أن نكتب في الحدث mouse up التابع للنموذج

Me.caption = ""