各位好！
我用下列语句进行光标下移，但在变成过程中由于某种原因使text1文本自动变成了text1(0)造成了不能运行，提示“编译错误，缺少标识符“。请诸位高人指点帮忙解决！谢谢。

Sub Text1(0)_KeyPress(KeyAscii As Integer) '将光标移动到下一个文本框
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If

[此贴子已经被作者于2007-2-6 12:13:56编辑过]

如果text1当前得到焦点，回车后想让text2得到焦点：
If KeyAscii = 13 Then
if text2.visable=true and text2.enabled=true then text2.setfous
endif

楼上的 没领会楼主的意思

楼主的想法是比较好的 按回车直接跳到下一个控件. 好处是可以随时改变屏幕上控件的位置和顺序不会对代码造成影响 只要重新排TAB顺序就ok

"由于某种原因使text1文本自动变成了text1(0)造成了不能运行" 楼主这描述我没法理解...

楼主的想法是比较好的 按回车直接跳到下一个控件. 好处是可以随时改变屏幕上控件的位置和顺序不会对代码造成影响 只要重新排TAB顺序就ok

用TAB排列顺序后好象只可以用键盘键TAB键选择而已啊....
能响应键盘的回车键吗?

  请朋友帮忙如果在文本text1(0)的条件下，如何修改才能运行！

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

End Sub

Private Sub Text1(0)_KeyPress(Index As Integer, KeyAscii As Integer)
提示“编译错误，缺少标识符“?

呵呵 sendkeys不就是干这个的么

楼主 你看看你不是不小心把textbox定义成数组了

没叫你加（0）
0是他的index