|
#2
风吹过b2013-08-22 18:33
 程序代码：Private Sub text1_keypress(index As Integer, keyascii As Integer) 'On Error Resume Next If keyascii = 13 Then If index = 59 Then Text1(0).SetFocus Else Text1(index + 1).SetFocus End If End If End Sub 没发现你说的情况啊。 ------- 你的代码有点小问题。会报 元素 60 不存在。 --------- 载入 1-59 个文本框的代码。 程序代码：Dim i As Long For i = 1 To 59 Load Text1(i) With Text1(i) .Left = Text1(i - 1).Left + .Width If .Left + .Width + 120 > Me.ScaleWidth Then .Top = Text1(i - 1).Top + .Height .Left = 120 Else .Top = Text1(i - 1).Top End If .Visible = True End With Next i |
程序代码：private sub text1_keypress(index as integer,keyascii as integer)
if keyascii=13 then
text1(index+1).setfocus
if index=59 then text1(0).setfocus
end if
end sub
现在的问题是:当我的光标第二次定位到text1(0)时,输入信息时第一个字符要按两次才能输入进去.if keyascii=13 then
text1(index+1).setfocus
if index=59 then text1(0).setfocus
end if
end sub
为什么? 谁能帮我解决一下?
其它的textbox没有这个问题{text1(1)到text1(59)}