????????????????求救Timer控件????????????????

Question

我写了一段在状态栏用Timer控件刷新时间的算法,虽然运行时在状态栏的时间和日期能随系统时间同步变化,但是每隔一段时间便会闪烁,我认真查看了算法,没有发现什么呀,就是不能解决,求救各位高手呀!interval=100Private Sub Timer1_Timer()
    StatusBar1.Panels(2).Text = "今天日期：" & Format(Date, "yyyy年m月d日")
    StatusBar1.Panels(3).Text = "现在时间：" & Format(Time, "h:mm:ss AM/PM")
End Sub

Answer 1

Private Sub Form_Load()
    StatusBar1.Panels.Add , , , sbrDate
    StatusBar1.Panels.Add , , , sbrTime
End Sub

Answer 2

.add的方法有什么不同么？
不明白，虫子解释一下怎么样？

Answer 3

不行呀,还是在闪烁呀,状态栏有四栏,第一栏返回的ACCESS数据库的值,第二栏和第三栏是日期和时间,同时还分别有两个图标,第四栏是几个字

Answer 4

不是这样子的呀,我的意思是状态栏的时间和日期要和系统同步刷新呀,比如说我更改了系统时间和日期,状态栏的时间和日期也会随系统同步更新,这样子会闪烁的
设置interval=100Private Sub Timer1_Timer()
    StatusBar1.Panels(2).Text = "今天日期：" & Format(Date, "yyyy年m月d日")
    StatusBar1.Panels(3).Text = "现在时间：" & Format(Time, "h:mm:ss AM/PM")
End Sub

Answer 5

轻微闪烁有时是没法避免的，不过你过于频繁的更新文本，会加重这种现象。
你的时间，不过是精确到秒，至于把interval设为100吗？正确情况下设为500足已，若要求不高，设为1000都行。500-1000之间选个数吧。

Answer 6

你显示到秒的话interval＝1000就足够了啊，100毫秒也太快了吧，你绝对用不着的啦！