以下已测试,可行。
假设窗体上有一个文本框text7用来显示系统时间,在窗体的“计时器触发”里编一代码,设置“计时器间隔”为1000毫秒,既1秒,这样每隔1秒就会触发代码,而动态改变系统时间。如下:
“计时器触发”的“事件过程”代码如下:
Private Sub Form_Timer()
Me.Text7 = Time()
End Sub
显示日期和时间 正确为
Private Sub Form_Timer()
Me.Text31 = DateTime.Now()
End Sub
如果要显示同时日期和时间,则:
Private Sub Form_Timer()
Me.Text7 =now()
End Sub