تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في التكست بوكس
#1
اريد ان اجعل التكست اذا تم الكتابة بداخلة تكون لون الخلفية بالاحمر واذا تم حذف النص ترجع الى الأبيض
او اذا كان المؤشر علي التكست


Private Sub Text1_GotFocus()
Text1.BackColor = vbred

End Sub
الرد }}}}
تم الشكر بواسطة:
#2
ان شاء الله هذا يفيدك و بالمناسبه هذا اول رد لي بالمنتدي انا دايما اسأل و احتاج حد يجاوبني بس عرفت اجاوبك على سؤالك و حطيت المثال


الملفات المرفقة
.rar   ahmed3d.rar (الحجم : 1.04 ك ب / التحميلات : 64)
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}}
تم الشكر بواسطة:
#3
كل ما عليك هو اضافة تايمر وضبط قيمتها على 1 واكتب بها الكود الاتى
if text1.text <> "" then
thext1.backcolor = &H000000FF&
else
text1.backcolor = &H00FFFFFF&
end if
وبس
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :
Private Sub Text1_Change()
Text1.BackColor = IIf(Text1.Text = "", vbWhite, vbRed)
End Sub

وفقك الله
الرد }}}}
تم الشكر بواسطة:
#5
Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then
Text1.BackColor = &HFFFFFF
Else
Text1.BackColor = &HFF&
End If
End Sub

و ان اردت الارجاع الى اللون الابيض فافترح عليك استعمال حدث MouseMove للفورم او لغيره
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 4 78 22-04-17, 08:22 PM
آخر رد: sendbad100
  سؤال عن القوائم السريعة كنونو 3 92 20-04-17, 11:25 PM
آخر رد: السيد الغالي
  سؤال حول الأداة datacombo المبرمج العتيق 2 84 03-04-17, 01:23 AM
آخر رد: المبرمج العتيق
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 119 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 5 389 24-03-17, 06:06 PM
آخر رد: المبرمج العتيق
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 13 283 02-03-17, 05:58 PM
آخر رد: السيد الغالي
  سؤال فى التقارير اداة داتا ريبورت محمودالصياد محمود 1 85 25-02-17, 11:39 PM
آخر رد: السيد الغالي
  سؤال عن قاعدة البيانات اكسس مبرمج جديد 5 198 17-02-17, 01:27 PM
آخر رد: مبرمج جديد
  [vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس copy77 11 361 27-01-17, 03:31 PM
آخر رد: copy77
  [ تمّ الحل ] :الحذف مع التّأكيد بواسطة التشيك بوكس عبد العزيز البسكري 4 254 27-01-17, 02:59 PM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم