回车键移动光标,使用SendKeys "{tab}"语句,提示拒绝的权限,利用小键盘输入,将程序调试后,小键盘就关了。
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End IfEnd Sub
窗体的keypreview属性设为true .

解决方案 »

  1.   

    Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)
        '按向上箭头键时焦点到text1控件
        If KeyCode = vbKeyUp Then txttext1.SetFocus
        '按回车键、Tab键或向下箭头键时焦点到text3控件
        If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Or KeyCode = vbKeyDown Then
            text3.SetFocus
        end if    
    End Sub
      

  2.   

    用在datagrid和text里,光标先在datagrid里移动,然后跳到text里。
      

  3.   

    用Tab键控制,先在网格内移动,等到最后一个网格时移动到TextBox?还是按Tab键时直接从DataGrid移到TextBox中?
    前者不好办,后者直接设置控件的TabIndex属性
      

  4.   

    谢谢楼上二位,原因我找到了,因为用的是vista系统,缺文件,装上就好了