85问答库 > 怎样把VB中timer（计时器控件）的单位MS转换成别的单位，比如毫秒转换成分钟？

怎样把VB中timer（计时器控件）的单位MS转换成别的单位，比如毫秒转换成分钟？

2024-11-22 10:38:23

推荐回答（1个）

回答1：

Dim i As Long '新的计时器变量Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
i = i + 1 '计时器按一秒累加一次
If i < 60 Then Exit Sub '如果不够一分钟则不执行下面的过程 60 单位是秒当然可以改成 3600 一个小时
i = 0 '当够一分钟了计时器归0重新计算
MsgBox "一分钟到了" '需要执行的代码
'......................
'......................End Sub