Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
        KeyAscii = 0
    End If
End Sub代码应该没问题呀?为什么不行呢?

解决方案 »

  1.   

    把Form_KeyPress内容改成在控件下,如一个TextBox下的Text1_KeyPress.
      

  2.   

    将窗体的Keypreview属性设为True
      

  3.   

    同意楼上的意见,不过记住要在每一个textbox控件的keypress加那个代码。
    如果用子类(SubClass)可以不用在每个控件下加。
      

  4.   

    楼主的意图是不是有多个文本框,用户在一个文本框输入完内容后按回车下一个文本框自动获得焦点?如果是这样的话就直接按下回车的时候setforce就可以了。不需要发送tab键
      

  5.   

    用这个啦:Private Sub Form_KeyDown(KeyCode As Integer)
        If KeyCode = 13 Then
            SendKeys "{tab}"
        End If
    End Sub
      

  6.   

    加上這句 KeyPreView = True
    或在Form的屬性窗口那裡將KeyPreView屬性設為True
    你的那段代碼不需要改