UC知道vb timer控件显示持续时间
来源：百度知道 编辑：UC知道 时间：2024/06/05 07:29:09
我做一个程序，但是还有个持续时间不会弄，是指的单击Label3显示当时时间，计时器开始工作，Label7位置显示变化的时间。单击Label5，显示当时时间，计时器暂停工作，Label7位置显示的时间停止变化。
我已经把label3和label5上能够启动计时器和暂停计时器了，但是我不太会在Label7上显示变化的时间。还有就是希望能够在label3和5上光显示时间，不显示年月日，应该怎么做?谢谢，初学者，望多指教。
Private Sub Label3_Click()
Timer1.Enabled = True
Label3.Caption = Now
End Sub
Private Sub Label5_Click()
Label5.Caption = Now
Timer1.Enabled = False
End Sub
我已经把label3和label5上能够启动计时器和暂停计时器了，但是我不太会在Label7上显示变化的时间。还有就是希望能够在label3和5上光显示时间，不显示年月日，应该怎么做?谢谢，初学者，望多指教。
Private Sub Label3_Click()
Timer1.Enabled = True
Label3.Caption = Now
End Sub
Private Sub Label5_Click()
Label5.Caption = Now
Timer1.Enabled = False
End Sub
VBTimer控件显示持续时间使用Timer控件的Timer事件完成。
Timer事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval
属性中，它以千分之一秒为单位指定时间的长度。
Timer 事件示例
这个例子演示一个数字时钟。 要尝试这个例子，可以将代码粘贴到包含一个 Label 控件和一个
Timer 控件窗体的声明部分，然后按 F5。
Private Sub Form_Load ()
Timer1.Interval = 500 ' 设置计时器时间间隔。
End Sub
Private Sub Timer1_Timer ()
If Label1.Caption <> CStr(Time) Then
Label1.Caption = Time ' 更新时间显示。
End If
End Sub
数字型时钟是涉及 Timer 控件的简单而有用的应用程序。一旦理解此应用程序的工作方式，就可增强它的性能，实现闹钟、跑表或其它定时设备的功能。
Private sub timer1_time()
timer1.interval=500
label7.Caption=Time
end sub
你的两个接收单击事件的label控件在单击后一个禁用另一个课用效果会更好些
如label3下面加
label3.Enable=false
label5.e