时间输入框,不能自创格式,既然只准输入一种值,就用文本框:
默认值设为:08:30-16:30
只读设为:True
KeyDown
If e.KeyCode = Keys.Enter Then If e.Sender.Text.SubString(0,5) < "08:30" OrElse e.Sender.Text.SubString(6,5) > "16:30" Then MessageBox.Show("必须输入08:30-16:30之间的值") e.Cancel = True e.Sender.Select End IfEnd If