请问怎么样才能让VB时间控件的单位毫秒转换成分钟啊？

2025-12-17 12:53:02

推荐回答（3个）

回答1：

Dim S As Long, N As Long
Private Sub Form_Load()
Timer1.Interval = 1000 '间隔一秒
N = 30 '30分钟
End Sub

Private Sub Timer1_Timer()
S = S + 1
If S >= N * 60 Then '如果超过设定的分钟则执行代码
S = 0
'代码
End If
End Sub

回答2：

没有办法
不过你可以这样
设置Intelval为60000
然后设置一个Long型变量进行自加通过变量的值来进行来N分钟达到效果

回答3：

自己定义一个呗，会吗，不会我弄一个，你说的是timer控件吗