怎么写一个函数使文本框变色

[wyypm]

我有个文本框很多的窗体，想使文本框获得焦点时变色
但是由于文本框比较多。所以想写个函数。但是我没有写出来。
请各位帮帮忙
我想把这个函数放到模块下。这样就不用每个文本框都进行判断了。

[aiur2000]

应该是写文本的变色函数。
然后在文本的getfocus和lostfocus中调用。

[felix]

'模块
Public Sub ChangeColor(TextBoxTemp As TextBox, NewColor As OLE_COLOR)
TextBoxTemp.BackColor = NewColor
End Sub

'窗口调用
Private Sub Text1_GotFocus()
ChangeColor Text1, vbRed
End Sub

Private Sub Text1_LostFocus()
ChangeColor Text1, vbWhite
End Sub

[evbsky]

up

[Maconel]

模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function

Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function

[Maconel]

模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function

Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function

[shwen]

还有一个稍微方便一点的代码：
写一个类：Class1
Public WithEvents tb As TextBox

Private Sub tb_GotFocus()
tb.BackColor = vbRed
End Sub

Private Sub tb_LostFocus()
tb.BackColor = vbWhite
End Sub

然后在 Form 中加上，
Private m_tbs As New Collection

Private Sub addtb(tb As TextBox)
Dim t As Class1
Set t = New Class1
Set t.tb = Me.Text1
m_tbs.Add t
End Sub

然后在 Form_Load 中加上
addtb Me.Text1
addtb Me.Text2
addtb Me.Text3
...

不用一个个TextBox的去写事件处理程序了。

[wyypm]

楼上的对不起我对类不懂。
能不能在详细点
我粘过去就能用的。你的
Public WithEvents tb As TextBox
这句话出错。