• 0
طالب كريم

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

سؤال

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

يمكنك استخدام إجراء واحد لمعالجة نفس الحدث بالنسبة لجميع صناديق النصوص في الفورم مثلا بعدم تضيف معالجة الحدث 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكر الله لك

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

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

تم تعديل بواسطه طالب كريم
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
شكر الله لك

تؤدي الغرض ولكنها لاترصد المفاتيح مثل 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

تم تعديل بواسطه samerselo
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .