منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الدرس الثالث والخمسون - قراءة أحداث الكيبورد والماوس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة .net 2008 . لنبدأ سوياً (http://vb4arb.com/vb/forumdisplay.php?fid=138)
+---- الموضوع : الدرس الثالث والخمسون - قراءة أحداث الكيبورد والماوس (/showthread.php?tid=5649)

الدرس الثالث والخمسون - قراءة أحداث الكيبورد والماوس - RaggiTech - 14-10-12

كاتب الموضوع : أحمد جمال

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

أمثلة أحداث الماوس :

أولاً لمعرفة الزر المضغوط من الماوس ، سنذهب إلى الحدث MouseDown من Properties


ومن ثم نكتب الكود التالي :
C#:

كود :
[FONT=Tahoma] if (e.Button == MouseButtons.Left)
MessageBox.Show("Left click");
if (e.Button == MouseButtons.Right)
MessageBox.Show("Right click");
if (e.Button == MouseButtons.Middle)
MessageBox.Show("Middle click");[/FONT]


vb.net:

كود :
[FONT=Tahoma]If e.Button = MouseButtons.Left Then
MessageBox.Show("Left click")
End If
If e.Button = MouseButtons.Right Then
MessageBox.Show("Right click")
End If
If e.Button = MouseButtons.Middle Then
MessageBox.Show("Middle click")
End If [/FONT]


ولمعرفة النقطة التي يمر عليها الماوس مثلاً في حدث MouseMove :
C#:

كود :
[FONT=Tahoma]this.Text = "X: " + e.X + ", Y:" + e.Y;[/FONT]


vb.net:

كود :
[FONT=Tahoma]Me.Text = "X: " + e.X + ", Y:" + e.Y [/FONT]





الدرس الثالث والخمسون - قراءة أحداث الكيبورد والماوس - RaggiTech - 14-10-12

أحداث الكيبورد :

لقراءة الحدث الخاص بالزر المضغوط نكتب الأمر التالي مثلاً في حدث key_up :
C#:

كود :
this.Text="key: " + e.KeyCode.ToString();


vb.net:

كود :
Me.Text = "key: " + e.KeyCode.ToString()


ولكن لمعرفة ما إذا كان هناك زر آخر مضغوط مثلاً مع الزر الحالي ، سنضع الزر الأول في key والثاني في Modifier بالشكل التالي :
C#:

كود :
[FONT=Tahoma]this.Text = string.Format("Key: {0} Modifier: {1}",e.KeyCode.ToString(), e.Modifiers.ToString());[/FONT]


vb.net:

كود :
[FONT=Tahoma]Me.Text = String.Format("Key: {0} Modifier: {1}", e.KeyCode.ToString(), e.Modifiers.ToString()) [/FONT]




طبعاً لا داعي لاخبارك ان بامكانك قراءة الأحداث باستخدام IF وتنفيذ بعض العمليات بناء عليها ...

إلى هنا نكون قد انتهينا من هذا الدرس السريع ، في الدرس القادم سنبدأ بالتعرف على GDI+ .

والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .