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

发布网友发布时间：2022-05-19 12:16

共1个回答

热心网友时间：2023-10-11 18:56

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com