[سعود]

PHP كود :

Public Sub color(ByRef con As Control, i As Integer, b As Boolean)
  If (TypeOf con Is TextBox Or TypeOf con Is ComboBox) And b = True Then
   con.BackColor = vbYellow
   Else
  con.BackColor = vbWhite
  End If
End Sub

Private Sub Combo2_GotFocus(Index As Integer)
color Combo2(Index), Index, True
End Sub

Private Sub Combo2_LostFocus(Index As Integer)
color Combo2(Index), Index, False
End Sub

Private Sub Text1_GotFocus(Index As Integer)
color Text1(Index), Index, True
End Sub

Private Sub Text1_LostFocus(Index As Integer)
color Text1(Index), Index, False
End Sub 


هذه الطريقة تكون ناجحة اذا فعلت مصفوفة الادوات واقصد تنسخ الادوات وتلصقها وتوافق على رسائل التحذير.


تحتاج فقط حدثين لكل نوع مربع نص وكومبو