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

shaxue 2001-12-07 09:50:41
如果一个窗体上有多个text,为了能够在按下回车键以后,自动是光标跳到下一个text中去,我在每一个text_keypress()中都写了如下代码:
比如
sub text1_keypress()
if keyascii=13 then
text2.setfocus
end if
end sub
这样要为每一个text都写代码,有没有简单的办法?
...全文
99 12 打赏 收藏 转发到动态 举报
写回复
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
neihh 2001-12-08
  • 打赏
  • 举报
回复
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{Tab}"
End If
End Sub
前提条件是要把FORM的keypreview属性设为TRUE
whose 2001-12-08
  • 打赏
  • 举报
回复
還有先設定好text的順序
whose 2001-12-08
  • 打赏
  • 举报
回复
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
End Sub
先要把FORM的keypreview属性设为TRUE
zsabcd 2001-12-08
  • 打赏
  • 举报
回复
sub text1_keypress(ascii as integer)
if ascii=13 then
text2.setfocus
end if
end sub
emailcdh 2001-12-07
  • 打赏
  • 举报
回复
我还想把我的作业给你做呢
crystal_heart 2001-12-07
  • 打赏
  • 举报
回复
CRTL+c复制
CRTL+V粘贴
他会问你要不要生成控件数组
shaxue 2001-12-07
  • 打赏
  • 举报
回复
动态生成当然可以,可是我想要一开始就把窗口的布局安排好,所以他的长度,宽度字体等都要有一些要求的,这些药都一个个的设置,动态生成就不如vb的属性窗口好使了。不是吗?
sonicdater 2001-12-07
  • 打赏
  • 举报
回复
可以 动态 生成 呀
shaxue 2001-12-07
  • 打赏
  • 举报
回复
我的做法一直是从控件栏上拖过来text,用一个拖一个,他自己也不生成数组呀?你们是怎么做的呀?我知道用粘贴复制可以生成数组,不过我不喜欢那样用。
j_x_y 2001-12-07
  • 打赏
  • 举报
回复
来晚了,同意楼上的
TrueDexter 2001-12-07
  • 打赏
  • 举报
回复
所有text设成一个控件组,检测到回车键后是
text2(index+1).setfocus,最后一个text2稍微
作一点处理即可(比如用select case....)
这样应该可以。
sonicdater 2001-12-07
  • 打赏
  • 举报
回复
用 控件 数组。即 txtShow(Index)

sub txtShow_Keypress(Index)

7,703

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告