17-03-20, 07:42 PM
(17-03-20, 07:00 AM)سعود كتب :إقتباس :اخي العزيز :سعودوعليكم السلام ورحمة الله وبركاته
السلام عليكم
هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
اخي الكريم نعم اذا تم العثور على الحدثين GotFocus و LostFocus
لكن هل هذا هو المطلوب للسائل؟؟
PHP كود :
Private Sub ce(ByVal a As Control, ByVal b As Boolean)
If (TypeOf a Is TextBox Or TypeOf a Is ComboBox) And (b = True) Then
a.BackColor = vbYellow
Else
a.BackColor = vbWhite
End If
End Sub
Private Sub Combo1_GotFocus()
ce Combo1, True
End Sub
Private Sub Combo1_LostFocus()
ce Combo1, False
End Sub
Private Sub Text1_GotFocus()
ce Text1, True
End Sub
Private Sub Text1_LostFocus()
ce Text1, False
End Sub
Private Sub Text2_GotFocus()
ce Text2, True
End Sub
Private Sub Text2_LostFocus()
ce Text2, False
End Sub
Private Sub Text3_GotFocus()
ce Text3, True
End Sub
Private Sub Text3_LostFocus()
ce Text3, False
End Sub
اخي العزيز : سعود
السلام عليكم ةرحمة وبركاته
لكم مني جزيل الشكل والتقدير
وجزكم الله عني با الجنه يارب
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ

