VB设计时间的问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 12:33:57
用VB设计一个会议记录，要求单击label3时，label3显示当前时间（XX时：XX分），同时label7显示当前时间并开始计时（XX时：XX分）；点击label5时，label5显示当前时间（XX时：XX分），同时label7显示当前时间并停止计时。
请问各位高手，如何编程？

Dim i
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
i = 0
End Sub

Private Sub Label3_Click()
Label3.Caption = Time
Timer1.Enabled = True
End Sub
Private Sub Label5_Click()
Timer1.Enabled = False
Label5.Caption = Time
End Sub

Private Sub Timer1_Timer()
i = i + 1
Label7.Caption = Time & " 已过：" & i & "秒"
End Sub

具体编程我忘记怎么编了
不过可以给你提供个办法
先自己动手动笔在纸上写下你自己觉得对的方案 然后在vb上实操运行一下试试看 如果不行在自己修改一下阿
这样可以增加技能

Private Sub Form_Load()
Me.Timer1.Interval = 1000
End Sub

Private Sub Label1_Click()
Me.Label1.Caption = Format(Now, "HH:mm")
End Sub

Private Sub Label2_Click()
Me.Timer1.Enabled = True
End Sub

Private Sub Label3_Click()
Me.Timer1.Enabled = False
Me.Label3.Caption = Format(Now, "HH:mm")
End Sub

Priv