public Dtfirst as Date 在窗体载入时 Private sub Form_Load() '给控件赋值,如果控件名为:MyDate MyDate.value=date' 取当前本机时间 DtFirst=Mydate.value'保存初始值 end Sub 然后要做的当然就是在你的时间控件的值改变时,进行条件判断了 if 条件不能满足 then Mydate.value=DtFirst end if 这样算清楚吗?不知道你是不是这个意思?
键盘事件: Private Sub dtpFDate_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub但上面的程序不能阻止用户用鼠标来改变日期。在Form1放一个Frame控件,把DTPicker放在Frame内,要锁定DTPicker,设置Frame.Enabled属性即可。
在窗体载入时
Private sub Form_Load()
'给控件赋值,如果控件名为:MyDate
MyDate.value=date' 取当前本机时间
DtFirst=Mydate.value'保存初始值
end Sub
然后要做的当然就是在你的时间控件的值改变时,进行条件判断了
if 条件不能满足 then
Mydate.value=DtFirst
end if
这样算清楚吗?不知道你是不是这个意思?
你的方法按理论说应该行的,但是我不知“时间控件的值改变时”是击发哪个事件???我把代码放在Click事件中不行,而放在change事件中后,时间控制改变后第一次改变出现1989-12-30 ,我不清楚这个日期是怎么来的(改变的时候根本不是单击的这个日期的),不知你知道否??有谁知道呀???请帮帮忙呀???
Private Sub dtpFDate_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub但上面的程序不能阻止用户用鼠标来改变日期。在Form1放一个Frame控件,把DTPicker放在Frame内,要锁定DTPicker,设置Frame.Enabled属性即可。
接分吧!