********两个简单问题请帮忙，谢谢！**********

Question

Option ExplicitPrivate Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then
      KeyCode = vbKeyRight
   End If
End Sub

Answer 1

to ：　Ranma_True(乱马1/2(真))　
我试过了，但只能在年/月/日之间移动，怎么移出到下一个控件呢？
我很笨噢，希望您能再给一点编码，呵呵...^_^

Answer 2

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
     '下一控件得到焦点,如：      
      text1.SetFocus
  End If
End Sub 

Answer 3

Private Sub DTPicker1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Command1.SetFocus
    End If
End Sub

Answer 4

2 、Private Sub Comb1_Click()    
  form1.show
End Sub

Answer 5

Private Sub DTPKeelDate_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHandler
    Me.KeyPreview = False
    If KeyCode = 13 Then
        SendKeys "{tab}", True
    End If
    Me.KeyPreview = True
    Exit Sub
ErrHandler:
    'gShowErrMsg
End Sub