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
محاولة اخرى
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

