首页 > 编程 > Visual Basic > 正文

使TextBox控件获得焦点时改变字体颜色

2023-06-12 12:11:32
字体:
来源:转载
供稿:网友

当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的背景色。

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表