Question

vb中怎么设置一个计时程序

label1显示计时，在一定的时间内没有操作将提示已过多长时间！

Answer 1

Dim s, h, m
Private Sub Command1_Click()
Timer1.Enabled = Not (Timer1.Enabled)
s = 0
h = 0
m = 0
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s = 60 Then m = m + 1: s = 0
If m = 60 Then h = h + 1: m = 0
If h = 24 Then h = 0
Label1.Caption = h & ":" & m & ":" & s
End Sub

TIMER1的interval还要等1000
TMER1的Enable一开是也False

追问

打开要自动计时 还有 怎么定义 到了时间去发生事件？

Answer 2

Private tm As Date
Private Sub Command1_Click()
Label1.Caption = DateDiff("s", tm, Now) & "秒"
End Sub
Private Sub Form_Load()
tm = Now
End Sub

追问

是让他自动跑秒计时

追答

现在是在窗体加载是开始计时 点击按钮是结束 你可以把开始写到另一个位置就可

Answer 3

好像可以用TIMER试试看啊