Private Sub txtNo_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 Then
        If Len(txtNo.Text) = 6 Then SendKeys "{Tab}"
        KeyAscii = 0
    End IfEnd Sub

解决方案 »

  1.   

    兄弟,你的代码好像有点问题吧,你再Form_keydown中这么写,难道你按回车真的会像你所说
    从0 跳到2,我按照你的代码试了一下,根本不会响应Form_keydown,因为,Form根本没有得到焦点
    如果你在txt1_keydown中这样写,则是完全Ok
      

  2.   

    试了一下,在文本框中回车,没有你说的“每次回车总是一次跳两个控件,从0跳到2。
    "
    至于按钮,由于不能在KeyDown事件中响应回车,你只有在Command1_Click 中SendKeys "{TAB}"
      

  3.   

    from的keypreview = true ,问题照旧
      

  4.   

    在每个控件的keypress事件里写代码
    if keyascii=13 then
       text2.setfocus
    end if
      

  5.   

    在控件的key_press时间中加:要得到焦点得控件.setfocus