主题：请问时间选择控件，选择后能否输入当前时间？

textChanged事件

Dim d As Date
If Date.TryParse(e.sender.text,d) Then
    If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
        e.sender.text = new Date(d.year, d.month, d.day, Date.now.hour, d.now.Minute, d.now.Second)
    End If
End If