1,451
社区成员
发帖
与我相关
我的任务
分享求教
Dim index
Private Sub Text1_Change(index As Integer)
index = index + 1
Text1(index).SetFocus
index = index + 1
End Sub
text1只有四个，可程序不停执行，一到index=4时就出错，请问有办法吗
Private Sub Text1_Change(index As Integer)
index = index + 1
Text1(index).SetFocus
index = index + 1
End Sub
text1只有四个，可程序不停执行，一到index=4时就出错，请问有办法吗
...全文
请发表友善的回复…
发表回复
northwolves 2004-07-08
- 打赏
- 举报
Private Sub Text1_Change(Index As Integer)
Text1((Index + 1) mod 4).SetFocus
End Sub
Text1((Index + 1) mod 4).SetFocus
End Sub
BlueBeer 2004-07-08
- 打赏
- 举报
是这意思？
Private Sub Text1_Change(Index As Integer)
Text1(IIf(Index = 3, 0, Index + 1)).SetFocus
End Sub
Private Sub Text1_Change(Index As Integer)
Text1(IIf(Index = 3, 0, Index + 1)).SetFocus
End Sub
Kivic 2004-07-08
- 打赏
- 举报
Private Sub Text1_Change(index As Integer)
index = index + 1
if index>3 then index=0
Text1(index).SetFocus
index = index + 1
End Sub
index = index + 1
if index>3 then index=0
Text1(index).SetFocus
index = index + 1
End Sub
BlueBeer 2004-07-07
- 打赏
- 举报
楼主想做到什么效果？
BlueBeer 2004-07-07
- 打赏
- 举报
晕？看不出会不停执行啊，又不是循环
daisy8675 2004-07-07
- 打赏
- 举报
原因：因为text的index是0-3去了
解决办法一：在属性里面把为0的那个改成4
解决办法二：固定index=0开始循环到3
解决办法一：在属性里面把为0的那个改成4
解决办法二：固定index=0开始循环到3
