根据单击改变文本框的前颜色，并在单击另一个文本框时将其返回到以前的前颜色?

Question

我有几个文本框，我想改变用户将要点击的文本框的前颜色，但是当用户点击另一个文本框时，前一个文本框必须将其前颜色更改为点击前的颜色(默认颜色)。

设置文本框的颜色:

Private Sub D8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
D8.ForeColor = &H80000002
End Sub

但是我不知道如何在点击另一个文本框时将其更改回以前的前颜色。

感谢

Answer 1

您可以使用Enter和Exit事件:

Option Explicit
Private Sub TextBox1_Enter()
TextBox1.ForeColor = &H80000002
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.ForeColor = vbWindowText
End Sub
Private Sub TextBox2_Enter()
TextBox2.ForeColor = &H80000002
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.ForeColor = vbWindowText
End Sub