الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه مصطفى_ظيمة في 2 سبتمبر 2009 · 5 رد · 736 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الأخوة الأعزاء القائمين على هذا المنتدى

أرجو منكم التكرم بالرد على سؤالى التالى وهو :

عندى فورم به أكتر من تكست بوكس

وأريد عندما أنتقل بزر Tab بين التكستات يتم تلوين التكست التى أكتب فيه باللون الأصفر

وعندما أنتقل للتكست اللى بعد وأبدأ بالكتابة فيه يتحول لونه من الأبيض إلى الأصفر وهكذا

ولكم منى جزيل الشكر

أخوكم فى الله : مصطفى_ظيمة

#2

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

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
#3

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

#4

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

مرحبا أخي

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

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

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

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

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

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

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

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

Text.rar

#5

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

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

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

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

#6

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

مواضيع مشابهة