关于遍历控件的问题，在线等，马上送分。。。

Question

在一个窗体上要实现TextBox得到焦点时变色，失去焦点时再变回原色。但是窗体上的TextBox控件并不是控件数组，如何实现，请给出代码，谢谢。如果是用数组的话那下面代码可以实现：
Private Sub txtAddCn_GotFocus(Index As Integer)
    txtAddcn(Index).BackColor = &HFFFFC0
End SubPrivate Sub txtAdd_LostFocus(Index As Integer)
    txtAdd(Index).BackColor = vbWhite
End Sub

Answer 1

For Each obj In Controls
    If TypeOf obj Is TextBox Then
    ...
    End If     
Next'这样可以遍历窗体上的所有控件
建议最好做成数组，占资源少而且容易控制。