اريد ان اجعل التكست اذا تم الكتابة بداخلة تكون لون الخلفية بالاحمر واذا تم حذف النص ترجع الى الأبيض
او اذا كان المؤشر علي التكست
Private Sub Text1_GotFocus()
Text1.BackColor = vbred
End Sub
ان شاء الله هذا يفيدك و بالمناسبه هذا اول رد لي بالمنتدي انا دايما اسأل و احتاج حد يجاوبني بس عرفت اجاوبك على سؤالك و حطيت المثال
كل ما عليك هو اضافة تايمر وضبط قيمتها على 1 واكتب بها الكود الاتى
if text1.text <> "" then
thext1.backcolor = &H000000FF&
else
text1.backcolor = &H00FFFFFF&
end if
وبس
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
Private Sub Text1_Change()
Text1.BackColor = IIf(Text1.Text = "", vbWhite, vbRed)
End Sub
وفقك الله
Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then
Text1.BackColor = &HFFFFFF
Else
Text1.BackColor = &HFF&
End If
End Sub
و ان اردت الارجاع الى اللون الابيض فافترح عليك استعمال حدث MouseMove للفورم او لغيره