Visual Basic Online Course - Mouse Cursor Events

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

التعامل مع الماوس Mouse Events In Visual Basic 6.0

و هو موضوع مرتبط ارتباطا كبيرا بالتعامل مع الـ Graphics الا اننى لا أعتبره بقيه للدرس السابق

Mouse Events In Visual Basic 6.0

و الـ Mouse هو أداه لصناعة الـ Graphics اكثر من أى اداه اخرى للمستخدم و نحن نستخدم الـ Mouse لعمل Click و DblClick على الكائنات Objects لخاصة بالـ VB 6.0 .

و هنا فى هذا الدرس نتعلم كيفية ستخدام باقى أحداث الـ Mouse للرسم Draw على الـ Form و Picture Boxes فى بيئة الـ Visual Basic 6.0 .

MouseDown Event

حدث الـ MouseDown : حيث يصبح الحدث فعال أو قيد التنفيذ عند الضغط على زر الماوس و مؤشر الماوس فوق الـ Object المراد تنفيذ الحدث عليه و شكل هذا الاجراء يكون بالنسبه للـ Form كالتالى :

Sub ObjectName_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)

.

.

End Sub

المعاملات السابقه تدل على :

Button : أى زر من أزرار الماوس تم الضغط عليه

Shift : يفيد حالة الضغط على مفتاح Shift - Ctrl - Alt

X,Y : احداثيات مؤشر الماوس عند الضغط عليه

و قيم المعامل Button تكون كالتالى :

vbLeftButton : قيمه (1) الزر الأيسر للماوس

vbRightButton : قيمه (2) الزر الأيمن للماوس

vbMiddleButton : قيمه (4) الزر الأوسط للماوس .

و قيم المعامل Shift تكون كالتالى :

vbShiftMask : قيمه (1) الزر Shift تم الضغط عليه.

vbCtrlMask : قيمه (2) الزر Ctrl تم الضغط عليه.

vbAltMask : قيمه (4) الزر Alt تم الضغط عليه.

ايضا اذا كان Shift = 5 هذا معناه ان كلا من (vbShiftMask + vbAltMask) تم الضغط عليهما معا اثناء تنفيذ الحدث Mouse Down .

MouseUp Events

و هو عكس أو نقيض الحدث السابق MouseDown و يصبح الحدث فعال أو قيد التنفيذ بعد حدوث الحدث الأول أو السابق له و هو MouseDown Event أى بعد ان يصبح زر الماوس حر او غير مضغوط عليه بعد أن كان مضغوط عليه و شكل الاجراء يكون بالنسبه لـ Object الـ Form هو كالتالى :

Sub ObjectName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

.

.

End Sub

و له نفس معاملات و ثوابت الحدث السابق MouseDown Event .

 

MouseMove Events

 

و هو حدث مستمر يتم تنفيذه فى أى وقت يكون الماوس يتحرك على الـ Object و فى هذه الحاله الـ Form فكلما و جد كود ما فى الحدث MouseMove ينفذ كلما تحرك الماوس على الفورم مثلا .

و يكون شكل الاجراء الخاص بهذا الحدث فى حالة الفورم كالتالى : 

Sub ObjectName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

.
.
End Sub

و له نفس خواص و معاملات الحدثين السابقيت فيما عدا اختلاف و هو أن Button يمكن أن يمثل زر واحد أو عدة أزرار معا مضغوط عليها , على سبيل المثال اذا كان :

Button = 0 فان هذا معناه أنه لا يوجد زر من أزرار الماوس مضغوط عليه بينما الماوس قيد الحركة.

Button = 3 فان هذا معناه أن الزر الأيسر للماوس و الزر الأيمن للماوس مضغوط عليهم بينما الماوس قيد الحركة .

بعد أن انتهينا من شرح الأحداث المتعلقه بالماوس تعالوا نقوم بتنفيذ مشروع Visual Basic 6.0 كامل نطبق فيه ما درسناه عن الـ Graphics مع Mouse و سيكون مشروع السبوره أو الـ BlackBoard حيث سنقوم بالكتابه و الرسم عليها بطبشور ملون أو أبيض كما نشاء .

و بداية سنقوم بعمل مشروع VB 6.0 جديد و نقوم بحفظة فى أى مكان باسم BlackBoard.vbp و الفورم باسم Main.frm و بعد التأكد من حفظة نغلقه و نعيد فتحه مره أخرى من الـ Folder الموجود فيه .

و سنقوم ان شاء الله فى الدرس القادم بمتابعة المشروع من البدايه الى النهايه و سيكون مرجع لاستخدام الـ Graphics .

---

♥ Visual Basic 6.0 Course Online :

• Automate MS-Access Database in Visual Basic 6.0 though a network
• Visual Basic 6.0 Analog Clock
• Visual Basic 6.0 Temperature Convertor
• Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book
• Visual Basic 6.0, MS-Access 2003 Database and DataGridView
• Visual Basic 6.0  FTP full application source code
• Visual Basic 6.0 Color Picker tool source code
• Visual Basic 6.0 Tree-View Control lesson (Part1 - Part 2 - Part3 - Part4 - Part5) Arabic.
• Visual Basic 6.0 - Introduction to Graphics (Part1 - Part2 - Part3)  
• Visual Basic 6.0 and MS-Excel 2003 tutorials (Part1 - Part2 - Part3 - Part4 - Part5 - Part6)