Question

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

Answer 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

Answer 2

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

追问

可以给下代码例子么？我是新手，不太会，非常感谢啦！

Answer 3

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

追问

那个，我在具体点说把，行么？就是正常的话timer的interval属性后面填写的不是毫秒么？我的意思是通过代码转化，让毫秒变成以分钟为单位，比如我要建立一个窗口，在加一个计时器控件，然后在空间中写好代码，过30分钟就执行一个任务，比如打开记事本。。。。

追答

我明白你的意思。但是timer控件的interval属性设置成最大值，然后转换成分钟数，最大值也就是64.8 秒，一分钟左右，这是资料上写的。你看看吧，我复制一下，O(∩_∩)O~
在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：

如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比 Interval 属性指定的间隔长。

间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 64.8 秒）。

间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。

系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。