19-04-14, 05:17 AM
Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then
Text1.BackColor = &HFFFFFF
Else
Text1.BackColor = &HFF&
End If
End Sub
و ان اردت الارجاع الى اللون الابيض فافترح عليك استعمال حدث MouseMove للفورم او لغيره
If Len(Text1.Text) = 0 Then
Text1.BackColor = &HFFFFFF
Else
Text1.BackColor = &HFF&
End If
End Sub
و ان اردت الارجاع الى اللون الابيض فافترح عليك استعمال حدث MouseMove للفورم او لغيره
