Question

VB中的text控件数组,如何让焦点text控件变背景颜色? 在鼠标点击某一个数组内的text控件时改变其背景色

另外还需要在任意一个text输入框中回车时自动转到下一个text输入框，并使其变背景色
其实说得明白点，就是让焦点text控件改变背景色，同时数组内其他text控件的背景色变回白色

Answer 1

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = vbRed
End Sub

Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
End Sub

Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Index = Text1.UBound Then
Text1(0).SetFocus
Else
Text1(Index + 1).SetFocus
End If
End If
End Sub

Answer 2

郁闷了，贴完代码发现问题已经结束了。