المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
اريد ان اجعل التكست اذا تم الكتابة بداخلة تكون لون الخلفية بالاحمر واذا تم حذف النص ترجع الى الأبيض
او اذا كان المؤشر علي التكست
Private Sub Text1_GotFocus()
Text1.BackColor = vbred
End Sub
المشاركات : 105
المواضيع 15
الإنتساب : Aug 2013
السمعة :
1
الشكر: 25
تم شكره 9 مرات في 4 مشاركات
ان شاء الله هذا يفيدك و بالمناسبه هذا اول رد لي بالمنتدي انا دايما اسأل و احتاج حد يجاوبني بس عرفت اجاوبك على سؤالك و حطيت المثال
الملفات المرفقة
ahmed3d.rar (الحجم : 1.04 ك ب / التحميلات : 103)
لو كان للضمير العربي (واتس اب)
لكان اخر ظهور له منذ زماان بعيد
المشاركات : 2
المواضيع 0
الإنتساب : Apr 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
كل ما عليك هو اضافة تايمر وضبط قيمتها على 1 واكتب بها الكود الاتى
if text1.text <> "" then
thext1.backcolor = &H000000FF&
else
text1.backcolor = &H00FFFFFF&
end if
وبس
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then
Text1.BackColor = &HFFFFFF
Else
Text1.BackColor = &HFF&
End If
End Sub
و ان اردت الارجاع الى اللون الابيض فافترح عليك استعمال حدث MouseMove للفورم او لغيره