15-07-13, 01:44 AM
السلام عليكم
- إستخدم هذا الكود :
- تحياتي .
- إستخدم هذا الكود :
كود :
Private Sub Text1_Change()
If Trim$(Text1.Text) = "05" Then
Text1.BackColor = &H80FF&
ElseIf Trim$(Text1.Text) = "06" Then
Text1.BackColor = &HFF8080
ElseIf Trim$(Text1.Text) = "07" Then
Text1.BackColor = &H8080FF
Else
Text1.BackColor = &HFFFFFF
End If
End Sub- تحياتي .
