تلويت التكست بوكس

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

Private Sub Text1_GotFocus(Index As Integer)
makeyallow Index
End Sub
Private Sub Text1_LostFocus(Index As Integer)
makewhite Index
End Sub
Sub makeyallow(i As Integer)
Text1(i).BackColor = vbYellow
End Sub
Sub makewhite(i As Integer)
Text1(i).BackColor = vbWhite
End Sub

أخى العزيز شكرا على الرد ولكن الكود لم يعمل ممكن لو تسمح مثال على ذلك وشكرا

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

مرحبا أخي

الفكره تتلخص في سطرين فقط

السطر الأول عندما يكون المؤشر للكتابة داخل التكست يضع لون أصفر خلفية التكست اللي المؤشر داخله

وهنا نتحتاج السطر الأول في حدث GotFocus الخاص بالتكست وهذا معناه عندما يأتي المؤشر في التكست نضع لون الخلفية بلون أصفر

Private Sub Text1_GotFocus()
Text1.BackColor = vbYellow
End Sub

والسطر الثاني عندما يغادر المؤشر التكست نحول لونه إلا الأبيض والحدث الخاص بمغادرة المؤشر التكست هو LostFocus

Private Sub Text1_LostFocus()
Text1.BackColor = vbWhite
End Sub

طبعاً تحتاج لكل تكست داخل الفورم تكتب سطرين واحد عندما يأتي المؤشر داخل التكست والثاني عند مغادرة المؤشر ذلك التكست

وهذا مثال يوضح العملية .. تحياتي

Text.rar

يأخى العزيز لا استطيع ان أعبر لك عن خالص شكرى وتقديرى

وأقول لك كما أمرنا رسولنا الكريم .... من قال لأحد جزاك الله خيرا فقد أبلغ فى الثناء

فجزاك الله خيرا

أخوك ... مصطفى_ ظيمة

شكرا جزيلا اخي مصطفى