[مصمم هاوي]

سؤال سهل وبسيط
عندي مجموعة من التكسات يتم التنقل بينها عن طريق انتر
المطلوب:
كود لتظليل التكست بوكس عند  وضع الماوس.

[Taha Okla]

لو عندك Textbox عدد ثلاثة مثلاً :
TextBox1 -- TextBox2 -- TextBox3
التظليل سكون عند التحديد وعند المغادرة يرجع للون الأساسي ،،

كود :

   Public Sub txtBackColor(pTextBox As TextBox, pBackColor As Color)
       pTextBox.BackColor = pBackColor
   End Sub

   Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
       txtBackColor(sender, Color.LightPink)
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave
       txtBackColor(sender, Color.White)
   End Sub

[مصمم هاوي]

(02-03-24, 02:55 AM)Taha Okla كتب : لو عندك Textbox عدد ثلاثة مثلاً :
TextBox1 -- TextBox2 -- TextBox3
التضليل سكون عند التحديد وعند المغادرة يرجع للون الأساسي ،،

كود :

   Public Sub txtBackColor(pTextBox As TextBox, pBackColor As Color)
       pTextBox.BackColor = pBackColor
   End Sub

   Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
       txtBackColor(sender, Color.LightPink)
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave
       txtBackColor(sender, Color.White)
   End Sub

أستاذنا الفاضل طه دائماً سبّاق إلى الخير
بارك الله فيك وجزاك كل خير على الردّ الطيب