主题：[求助 窗口中快捷输入问题

设置这个控件的Keydown事件：

If e.KeyCode = Keys.D0 Then ‘如果按的是0
    If e.Sender.text = "" Then ’而且还没有输入内容
        e.sender.value = Date.Today ‘等于今天日期或者其他任何你想要的日期
        e.Cancel = True  ’取消本次按键
    End If
End If