[求助]问个简单的小问题?(文本框数组中按回车键直接跳到下一个文本框.) - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]问个简单的小问题?(文本框数组中按回车键直接跳到下一个文本框.)

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1743 人关注过本帖， 1 人收藏

标题：[求助]问个简单的小问题?(文本框数组中按回车键直接跳到下一个文本框.)

取消只看楼主加入收藏

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

楼主

问题点数：0 回复次数：3

[求助]问个简单的小问题?(文本框数组中按回车键直接跳到下一个文本框.)

如题,以前弄过,现在弄不了了.

搜索更多相关主题的帖子: 回车键　文本　

2007-10-26 15:20

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 2 楼

得分:0

以下是引用心中有剑在2007-10-26 15:28:20的发言：

在keydown里面写

if keycode=13 then text2.setfocus

哪有这么简单?
是一系列文本框数组.15个,能每个都这样编么.
要在此过程中能完成的话,就简单多了.
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

End Sub
但我做不了.

2007-10-26 16:53

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 3 楼

得分:0

以下是引用心中有剑在2007-10-26 17:09:55的发言：

你这个是控件数组了!
用 sendkeys "{tab}"也可以了!

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
if index<15 then
if keyascii=13 then
text1(index+1).setfocus
end if
end if
End Sub
自己灵活点了!

这个方法我也试过了,只是没有外层的 if index<15 then
但效果是一样的.从第一个能跳到第二个,或从第三个能跳到四,五,六个.
接着就提示
"实时错误 5"
"无效的过程调用或参数".
不知怎么回事?

2007-10-26 19:07

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 4 楼

得分:0

总算找到毛病在哪了
中间有几个text.visible=false
跳不过去.
知道原因在哪,就好解决了.
谢谢各位热心.

2007-10-26 20:16

快速回复：[求助]问个简单的小问题?(文本框数组中按回车键直接跳到下一个文本框. ...