Question

vb中文本框获得焦点失去焦点颜色改变事件要怎么做

作业啊，急求，说的详细点哦
代码具体怎么写？失去焦点是绿色，获得是红色。我怎么做的运行时只有红色，鼠标点击移动都不变色？

Answer 1

' 可以加上窗体点击事件和失去焦点设置成同一种颜色就达到想要的效果了
Private Sub Form_Click()
Text1.BackColor = vbGreen
End Sub

' 获得焦点文本框变红色
Private Sub Text1_GotFocus()
Text1.BackColor = vbRed
End Sub

' 失去焦点文本框变绿色
Private Sub Text1_LostFocus()
Text1.BackColor = vbGreen
End Sub

Answer 2

Private Sub Text1_GotFocus() '获得焦点
Text1.BackColor = vbRed
End Sub

Private Sub Text1_LostFocus() '失去焦点
Text1.BackColor = vbGreen
End Sub

追问

我写的代码就是这，可是运行时只有红色

追答

窗体上不能只有文本框一个控件，否则焦点始终在文本框上！可以再放一个按钮之类的。

追问

恩恩，可是，点窗体为什么就没反应

追答

窗体的焦点与控件的焦点是两回事，你操作的窗口是始终有焦点的，只有切换到后台才失去焦点

Answer 3

'========================================================================
'注意窗体上不能只有一个Text控件，你随便添加个按钮或者文本框控件上去就是。如果只有一个text控件，就算你拼命点击窗体文本框也不会失去焦点的。

Private Sub Text1_GotFocus() '获得焦点
Text1.BackColor = vbRed
End Sub

Private Sub Text1_LostFocus() '失去焦点
Text1.BackColor = vbGreen
End Sub