日历控件为何不更新日期？

kcul

MSCAL.Calendar.7对象——日历控件存在的意义就是提示当前系统的时间吧？

可为何每次启动它所附窗体，显示的都是当初创建时的时间？

fanren

好像要先给它一个值。

sam_yuan

加个代码(bq1是文本框,格式是常规日期，默认值是 =Now()  窗体计时器间隔1000)
Private Sub Form_Timer()
Me.bq1 = Now()
Me.Refresh
End Sub

[此贴子已经被作者于2004-1-14 16:17:19编辑过]

E-man

假设日期控件名称为Calendar1，在其所附窗体上加入以下代码：
Private Sub Calendar1_Enter()
Calendar1.Today
End Sub

方漠

最好的方法是在窗体打开的赋给当前日期值．

sub Forms_open()
me.calendar1=date()
end sub