我想补充两句: 有两种可行的办法。 (1)、设置TEXT1的TABINDEX=0 TEXT2的TABINDEX=1 TEXT3的TABINDEX=3 或者更多。在每个TEXT的KEYPREE事件中加入 If KeyAscii = 13 Then SendKeys "{tab}" End If (2)、在TEXT1的KEYPREE事件中加入 If KeyAscii = 13 Then TEXT2。SETFOCUS End If TEXT2到TEXT3方面一样。 一般情况下我认为第一种方法比较好。
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = "13" Then Text2.SetFocus End If End Sub
我想你的意思是当第一个文本框输入完数字后,单击ENTER键或其他按纽,自动跳到下一个文本框,否则不可能,除非你事先设定第一个文本矿的字符数是个定值:着两中情况可如下实现: 1、Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = "13" Then Text2.SetFocus End If End Sub----其中13为ENTER 键值 2、在第一个文本框的TEXT_CHANGE事件中加入如下代码: if len(text1)=定植 then text2.setfocus end if
对象.SetFocus例如:Text2.SetFocus
有两种可行的办法。
(1)、设置TEXT1的TABINDEX=0 TEXT2的TABINDEX=1 TEXT3的TABINDEX=3
或者更多。在每个TEXT的KEYPREE事件中加入
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
(2)、在TEXT1的KEYPREE事件中加入
If KeyAscii = 13 Then
TEXT2。SETFOCUS
End If
TEXT2到TEXT3方面一样。
一般情况下我认为第一种方法比较好。
或在前一个文本框输入完后用SetFocus设置下一个文本框的焦点
If KeyAscii = "13" Then
Text2.SetFocus
End If
End Sub
1、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
Text2.SetFocus
End If
End Sub----其中13为ENTER 键值
2、在第一个文本框的TEXT_CHANGE事件中加入如下代码:
if len(text1)=定植 then
text2.setfocus
end if