Question

vb timer控件显示持续时间

我做一个程序，但是还有个持续时间不会弄，是指的单击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

Answer 1

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 控件的简单而有用的应用程序。一旦理解此应用程序的工作方式，就可增强它的性能，实现闹钟、跑表或其它定时设备的功能。

Answer 2

首先你要设置Timer1.Interval = 1000
可以再Form_Load里面设，也可以在属性面板中设
Private Sub Timer1_Timer()
Label7.Caption = Time()
End Sub

Answer 3

Private sub timer1_time()
timer1.interval=500
label7.Caption=Time
end sub

你的两个接收单击事件的label控件在单击后一个禁用另一个课用效果会更好些

如label3下面加
label3.Enable=false
label5.enable=ture

Answer 4

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Label3_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
Label3.Caption = Now
End Sub

Private Sub Label5_Click()
Timer1.Enabled = False
Label7.Caption = "开始时间" + Label3.Caption + Chr(13) + "结束时间" + Label5.Caption
End Sub

Private Sub Timer1_Timer()
Label5.Caption = Time
End Sub

点LABEL3开始计时

Answer 5

vb6
版本不一样
不了解