vb秒表代码程序哪里错了

答案:2 悬赏:30 手机版

解决时间 2021-04-24 15:37

提问者网友：雾里闻花香
2021-04-24 07:56

Private Sub Text1_Change()
Dim Starttime As Variant
Dim Elapsed As Variant
Dim Endtime As Variant
End
Private Sub cmdStart_Click()
'显示开始时间
lblStart.Caption = Time$
Starttime = Now
'启动时钟控件
Timer1.Enabled = Ture
End Sub
Private Sub cmdStop_Click()
'记录停止时间
Endtime = Now
'关闭时钟控件
Timer1.Enabled = False
'显示经过时间
lblApaed.Caption=Format(Endtime-Starttime,"hh:mm:ss"
End Sub
Private Sub Timer1_Timer()
lblStop.Caption = Time$
End Sub

End Sub

最佳答案

五星知识达人网友：青灯有味
2021-04-24 08:01

Private Sub Text1_Change()
Dim Starttime As Variant
Dim Elapsed As Variant
Dim Endtime As Variant
End
Private Sub cmdStart_Click()
'显示开始时间
lblStart.Caption = Time$
Starttime = Now
'启动时钟控件
Timer1.Enabled = Ture ‘这句写错了，应该改成： Ture
End Sub
Private Sub cmdStop_Click()
'记录停止时间
Endtime = Now
'关闭时钟控件
Timer1.Enabled = False
'显示经过时间
lblApaed.Caption=Format(Endtime-Starttime,"hh:mm:ss"
End Sub
Private Sub Timer1_Timer()
lblStop.Caption = Time$
End Sub

全部回答

1楼网友：野慌
2021-04-24 08:26

'改好了，主要是End sub放错地方了，你可以运行如下代码调试 Dim Starttime As Variant Dim Elapsed As Variant Dim Endtime As Variant

Private Sub Text1_Change() End End Sub Private Sub cmdStart_Click() '显示开始时间 lblStart.Caption = Time$ Starttime = Now '启动时钟控件 Timer1.Enabled = Ture End Sub Private Sub cmdStop_Click() '记录停止时间 Endtime = Now '关闭时钟控件 Timer1.Enabled = False '显示经过时间 lblApaed.Caption = Format(Endtime - Starttime, "hh:mm:ss") End Sub Private Sub Timer1_Timer() lblStop.Caption = Time$ End Sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！