[Microformt]

(17-03-20, 03:06 AM)سعود كتب :

PHP كود :

Private Sub ce(ByVal a As Control)
If (TypeOf a Is TextBox) Or (TypeOf a Is Label) Then
a.BackColor = vbYellow
End If
End Sub
Private Sub Label1_Click()
ce Label1
End Sub
Private Sub Text1_Click()
ce Text1
End Sub 


---

  لقد استعجلت بالجواب فمعذة اخي الكريم .
ان تمكنت من معرفة الحل باذن الله اكتبه.
وبانتظار الاخوة.

محاولة اخرى

---

PHP كود :

Private Sub ce(ByVal a As Control, ByVal b As Boolean)
If (TypeOf a Is TextBox And b = True) Then
a.BackColor = vbYellow
Else
a.BackColor = vbWhite
End If
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 


محاولة اخرى 

اخي العزيز :سعود
السلام عليكم
 هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي