以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师日历插件如何限定时间范围?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187926)

--  作者:初心不改再说未来
--  发布时间:2023/8/21 17:27:00
--  老师日历插件如何限定时间范围?
比如在查询的时候,限制只能查询从今天开始往后5天至15天的预测数据,其余日期无法选中,如何设置呢?

谢谢老师!

--  作者:有点蓝
--  发布时间:2023/8/21 20:23:00
--  
Dim c As System.Windows.Forms.MonthCalendar = e.Form.Controls("Calendar1").BaseControl
c.MinDate = Date.Today.AddDays(5)
c.MaxDate = Date.Today.AddDays(15)


--  作者:初心不改再说未来
--  发布时间:2023/8/26 15:55:00
--  
我在窗口的日历控件里的validating事件里写了代码:


Dim c As System.Windows.Forms.MonthCalendar = e.Form.Controls("DateTimePicker1").BaseControl
If c.MinDate < DateTime.Today Then
    MessageBox.Show("输入时间小于当前时间,请重新输入!")
End If

但是输入昨天的日期,并没有提示,是哪里的原因咧?

--  作者:有点蓝
--  发布时间:2023/8/26 16:14:00
--  
MinDate 是最小日期,和当前选择的日期没有什么关系,选择的日期使用value:http://www.foxtable.com/webhelp/topics/2119.htm
--  作者:初心不改再说未来
--  发布时间:2023/8/26 17:23:00
--  
我这样写对不对?在窗口的DateTimePicker1控件的Enter事件里写:

\' 设置可选择的日期范围
Dim minDate As DateTime = DateTime.Today.AddDays(3) \' 三天后的日期
Dim maxDate As DateTime = DateTime.Today.AddDays(15) \' 十五天后的日期

\' DateTimePicker 控件设置
DateTimePicker1.MinDate = minDate \' 设置最小日期
DateTimePicker1.MaxDate = maxDate \' 设置最大日期

--  作者:初心不改再说未来
--  发布时间:2023/8/26 17:23:00
--  
晕,显示编译错误。。。
--  作者:有点蓝
--  发布时间:2023/8/26 17:48:00
--  
使用的是日历控件?还是日期控件?
--  作者:初心不改再说未来
--  发布时间:2023/8/26 18:25:00
--  
DateTimePicker1就是这个控件
--  作者:有点蓝
--  发布时间:2023/8/27 20:06:00
--  

e.Form.Controls("DateTimePicker1").value = DateTime.Today.AddDays(3)