当TextBox得到焦点时(GotFocus)改变文本颜色,失去焦点时(LostFocus)将还原文本颜色,ForeColor是设置文本的前景色。
'当光标移到TextBox时文字设置为红色
Private Sub Text1_GotFocus()
Text1.ForeColor = vbRed
End Sub
'当光标移出TextBox时文字设置为黑色
Private Sub Text1_LostFocus()
Text1.ForeColor = vbBlack
End Sub
以上代码只要将Text1.ForeColor改为Text1.BackColor即可改变TextBox的背景色。
新闻热点
疑难解答