还是一个比较简单的问题，请帮忙。

[shaxue]

如果一个窗体上有多个text,为了能够在按下回车键以后，自动是光标跳到下一个text中去，我在每一个text_keypress()中都写了如下代码：
比如
sub text1_keypress()
if keyascii=13 then
text2.setfocus
end if
end sub
这样要为每一个text都写代码，有没有简单的办法？

[sonicdater]

用 控件 数组。即 txtShow(Index)

sub txtShow_Keypress(Index)

[TrueDexter]

所有text设成一个控件组，检测到回车键后是
text2(index+1).setfocus,最后一个text2稍微
作一点处理即可（比如用select case....)
这样应该可以。

[j_x_y]

来晚了，同意楼上的

[shaxue]

我的做法一直是从控件栏上拖过来text,用一个拖一个，他自己也不生成数组呀？你们是怎么做的呀？我知道用粘贴复制可以生成数组，不过我不喜欢那样用。

[sonicdater]

可以 动态 生成 呀

[shaxue]

动态生成当然可以，可是我想要一开始就把窗口的布局安排好，所以他的长度，宽度字体等都要有一些要求的，这些药都一个个的设置，动态生成就不如vb的属性窗口好使了。不是吗？

[crystal_heart]

CRTL+c复制
CRTL+V粘贴
他会问你要不要生成控件数组

[emailcdh]

我还想把我的作业给你做呢

[zsabcd]

sub text1_keypress(ascii as integer)
if ascii=13 then
text2.setfocus
end if
end sub

[whose]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
End Sub
先要把FORM的keypreview属性设为TRUE

[whose]

還有先設定好text的順序

[neihh]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{Tab}"
End If
End Sub
前提条件是要把FORM的keypreview属性设为TRUE