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

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

2025-04-09 00:09:54

推荐回答（2个）

回答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

回答2：

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