الدرس الثالث والخمسون : قراءة أحداث الكيبورد والماوس - دورة .net 2008

[khaledbelal]

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

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

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



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

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");


vb.net:

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


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

this.Text = "X: " + e.X + ", Y:" + e.Y;


vb.net:

Me.Text = "X: " + e.X + ", Y:" + e.Y

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

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

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


vb.net:

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

http://vb4arab.com/vb/uploaded/3/01213719842.jpg

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

this.Text = string.Format("Key: {0} Modifier: {1}",e.KeyCode.ToString(), e.Modifiers.ToString());


vb.net:

Me.Text = String.Format("Key: {0} Modifier: {1}", e.KeyCode.ToString(), e.Modifiers.ToString())

http://vb4arab.com/vb/uploaded/3/01213720535.jpg

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

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

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

[ماريا إسلام]

وعليكم السلام ورحمة الله وبركاااته
جزاااااااااااااااااااااااااااكم الله خيرراااااااااااااا كثيرااااا
//