关于DATA问题

Question

用Timer控件定时的用  NOW()  更新状态栏

Answer 1

其实不是时间一直不变，而是时间只显示小时和分钟，不显示秒，所以一分钟才变一次。你可以加一个Timer控件，设interval属性为500。为了对比，需要为状态栏控件添加几个窗格
Private Sub Form_Load()
  StatusBar1.Panels(1).Style = sbrDate
End SubPrivate Sub Timer1_Timer()
  StatusBar1.Panels(2).Text = Time()
  StatusBar1.Panels(3).Text = Now()
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = "X=" & X & "," & "Y=" & Y
End Sub