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


Private Sub Text1_GotFocus()
Text1.BackColor = vbred

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


الملفات المرفقة
.rar   ahmed3d.rar (الحجم : 1.04 ك ب / التحميلات : 99)
لو كان للضمير العربي (واتس اب)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 للفورم او لغيره
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال حول تحريك الصور VB6 Immortal73 9 213 17-07-18, 01:24 AM
آخر رد: Immortal73
  [سؤال] سؤال مبتدي في موضوع الريجستري array-31 3 516 20-05-18, 11:20 PM
آخر رد: اسلام الكبابى
  [سؤال] سؤال حول فلكس اقريد gadr 8 702 14-04-18, 03:09 PM
آخر رد: Ashraf Elafify
Heart سؤال عن تطابق صورتين؟؟؟ KamelArab 0 110 05-04-18, 04:42 PM
آخر رد: KamelArab
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 160 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  سؤال عن ActiveReport عن الربط محمد حمد محمد 2 150 04-03-18, 01:00 AM
آخر رد: محمد حمد محمد
  سؤال أخير انشاء الله محمد حمد محمد 3 99 25-02-18, 04:11 AM
آخر رد: مصمم هاوي
  سؤال..... عن الاستعلام انا اره عجيب !!!! محمد حمد محمد 7 144 24-02-18, 08:59 PM
آخر رد: محمد حمد محمد
  سؤال عن اداءة التقرير Active Reports2.0 محمد حمد محمد 2 110 17-02-18, 10:10 PM
آخر رد: محمد حمد محمد
  سؤال عن طريقة لعرض محتويات الـ combox عندما ينتقل المؤشر اليها اي التركيز allobaed 1 93 16-02-18, 12:41 AM
آخر رد: Ahmed_Mansoor

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


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