Question

vb关于文本框控件数组使用循环的小问题，帮我看一下

按回车 或右方向键时 光标由ph(i)跳到c(i)
For i = 0 To 26
If Len(ph(i)) <> 0 Then
If KeyCode = 13 Or KeyCode = 39 Then
c(i).SetFocus
End If
end if
Next
现在的问题是,无论我在Ph(0)还是Ph(1)....按回车或右方向键，光标都会跟着循环往下跳，直到最后一个有数据的ph(i)那一行才结束。请问应该要怎样改，才能让在ph(0)按回车时，跳到c(0),ph(1)按回车时跳到ph(2).....

Answer 1

搞不懂你为什么要用循环，其实你只需要处理当前光标所在的文本框即可啊，为什么要循环呢？

Private Sub ph_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If ph(Index).Text <> "" And (KeyCode = 13 Or KeyCode = 39) Then c(Index).SetFocus
End Sub

这样一行代码即可搞定