以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于DateTimePicker的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146440)
--  作者：douglas738888
--  发布时间：2020/2/24 9:25:00
--  关于DateTimePicker的问题

请教老师，DateTimePicker控件如何设置日期输入错误提示，现在在此控件如果输入日期是错误的，只是不能其他操作，并没有提示

 

例如: 输入2020-20-01或 2020-02-30 如何验证错误，在Validating应该怎样写代码进行提示
--  作者：有点蓝
--  发布时间：2020/2/24 10:02:00
--  
DateTimePicker控件，textchanged事件

If e.Sender.Text > "" AndAlso e.Sender.Text.length > 5 Then
    Dim ar() As String = e.Sender.Text.split("-")
    Dim m As Integer = val(ar(1))
    If m < 1 OrElse m > 12 Then
        msgbox("月份错误")
    End If
End If