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


Private Sub Text1_GotFocus()
Text1.BackColor = vbred

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول الاختيار العشوائي haider kh 1 286 03-02-22, 01:48 PM
آخر رد: haider kh
  سؤال حول كود اختيار رقم عشوائي haider kh 2 338 30-01-22, 07:48 PM
آخر رد: haider kh
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 338 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] سؤال Abdellah 0 250 09-01-22, 11:16 PM
آخر رد: Abdellah
  [vb6.0] سؤال مهم : كيفية عمل progress bar يتحرك فعليا مع تنفيذ العمليات التي يتم اجراؤها hamada salah90 2 459 22-12-21, 07:50 PM
آخر رد: hamada salah90
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 533 05-12-21, 12:04 AM
آخر رد: hamada salah90
  سؤال بحث بعددة قواعد بيانات دفعة واحدة وإظهار النتيجة؟؟؟ KamelArab 4 645 23-11-21, 05:13 PM
آخر رد: ahmedabdelaliem
  سؤال في ActiveReport ahmed250 0 354 16-09-21, 04:18 AM
آخر رد: ahmed250
  ربط تكست بوكس بالتاريخ الهجري الموجود في صفحة انترنت؟ Alhootti1 5 1,038 30-08-21, 11:18 PM
آخر رد: Alhootti1
Wink [vb6.0] سؤال بالتقرير tamer2005 2 702 05-02-21, 11:46 PM
آخر رد: tamer2005

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


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