المشاركات : 770
المواضيع 136
الإنتساب : May 2015
السمعة :
62
الشكر: 680
تم شكره 1396 مرات في 633 مشاركات
02-03-24, 01:53 AM
(آخر تعديل لهذه المشاركة : 05-03-24, 03:59 PM {2} بواسطة مصمم هاوي.)
سؤال سهل وبسيط
عندي مجموعة من التكسات يتم التنقل بينها عن طريق انتر
المطلوب:
كود لتظليل التكست بوكس عند وضع الماوس.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 770
المواضيع 136
الإنتساب : May 2015
السمعة :
62
الشكر: 680
تم شكره 1396 مرات في 633 مشاركات
(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
أستاذنا الفاضل طه دائماً سبّاق إلى الخير
بارك الله فيك وجزاك كل خير على الردّ الطيب
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ