当setfocus位于dtpicker的日期数字时,按enter却没有反应
---------------------------------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{tab}"
End Sub
Private Sub Check1_KeyPress(KeyAscii As Integer)
你实在想用enter也行:
If KeyAscii = 13 Then
If Check1.Value = 1 Then
Check1.Value = 0
ElseIf Check1.Value = 0 Then
Check1.Value = 2
ElseIf Check1.Value = 2 Then
Check1.Value = 1
End If
End If
End Sub