كيف نستطيع تصيد الاحداث التي تنطلق على مستوى النموذج

يمكنك استخدام إجراء واحد لمعالجة نفس الحدث بالنسبة لجميع صناديق النصوص في الفورم مثلا بعدم تضيف معالجة الحدث GotFocus مثلا لـ TextBox1 يمكنك استخدام نفس إجراء الحدث لمعالجة الحدث GotFocus لبقية صناديق النصوص في المشروع و ذلك كما في المثال التالي لتعريف الحدث

	Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
		Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus

لاحظ كيف تم التعريف بعد كلمة Handles

وبالتالي يمكن عمل ما تريد ببساطة كالمثال

	Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
		Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus

		Dim d As TextBox = CType(sender, TextBox)
		d.BackColor = Color.Yellow
		d.ForeColor = Color.Red
	End Sub

	Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
		Handles TextBox1.LostFocus, TextBox2.LostFocus, TextBox3.LostFocus

		Dim d As TextBox = CType(sender, TextBox)
		d.BackColor = Color.White
		d.ForeColor = Color.Black

اخي الكريم شكر الله لك

لكن هناك طريقة وقد نسيتها وهي على مستوى النموذج حتى تصلح لجميع الاغراض ، فالذي اوردته اخي الكريم لا يصلح لتطبيق مثل الالة الحاسبة لانني هنا استخدم الرقم او احدى العلامات الرياضية على لوحة المفاتيح ، هذا ما قصدته ولك الشكر اولا واخرين فقد افادني المثال افادك الله وزادك بسطة في العلم والجسم والمال.

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

شكر الله لك

تؤدي الغرض ولكنها لاترصد المفاتيح مثل ALT ,Control,shift

بارك الله فيك واسف على ازعاجك

طالب كريم كتب:

شكر الله لك

تؤدي الغرض ولكنها لاترصد المفاتيح مثل ALT ,Control,shift

بارك الله فيك واسف على ازعاجك

تأكد من الحدث KeyDown يمكنك تتبع ضغطات المفاتيح Alt و Controls و Shift

		e.Control
		e.Alt
		e.Shift

وهي تعيد قيم بوليانية

مثال لتتبع ضغط المفتاح Control

		' To test Control Key press
		If e.Control Then
			TextBox2.Text = "Control"
		Else
			TextBox2.Text = "other"
		End If