Dim t1 As Date = Vars("Time")
Dim t2 As Date = Date.Now
Dim t As TimeSpan = t2 - t1
Dim str,str1,str2 As String
str1 = TimeSerial(t.Hours,t.Minutes,t.Seconds)
str2 = TimeSerial(01-t.Hours,00-t.Minutes,00-t.Seconds)
str = "考试时间60分钟" & Chr(13) & Chr(10) & "已用时间 " & str1.SubString(2) & Chr(13)
e.Form.Controls("Label3").text = str & Chr(10) & "剩余时间 " & str2.SubString(2)
If str2.SubString(2) = ":00:00" Then
e.Form.Controls("CheckBox1").Checked = False
e.Form.Controls("CheckBox2").Checked = False
e.Form.Controls("CheckBox3").Checked = False
e.Form.Controls("CheckBox4").Checked = False
....
end if
60分钟用完就自动终止，为什么我刚启动，就提示已经用完60分钟，直接执行后面的if语句，有时又能够正常的自动跳动时间
加好友 
发短信
Post By：2022/4/17 21:15:00 [只看该作者]
