- ·上一篇文章:VB将OCX植入执行文件内
- ·下一篇文章:如何实现TextBox控件获得焦点时选中文本
使TextBox控件获得焦点时改变字体颜色
:2010-04-21 22:14:00
当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的背景色。
!
使TextBox控件获得焦点时改变字体颜色