VB Timer控件运行一段时候自动停止

VB Timer控件运行一段时候自动停止
'//测试过了很郁闷- -。本机调试没问题。放到其他机子就出问题了。刚开始以为是加壳之后或者vmp之后才出问题
后来发现- -不加壳。也一样停。输出p代码测试了还是停了。用本地代码也一样。

是同时开了好几个程序测试的。有几个停的快。几个停的慢。。在timer事件的开头都加了显示信息。
也就是说timer事件停了。。很郁闷。重新true也不行。。

本机运行很长时间都没问题。。里边代码都一般。其中有这样的
Interval属性让他随机变

text4.text=2 '//这些都没问题的
'//Randomize
'//Timer_ZDsell.Interval = Val(Text4.Text) * 1500  '//+ Int(Rnd() * 1000 + 500)

不知道是不是经常换Interval引起的。- -碰到的朋友看看。无语了。探讨一下。

---

运行的时候不定。有时3-15分钟。有时2-3个小时才出。。运行的程序6-7个。2个很快出问题。其他的慢慢出。

---

Private Sub Timer_ZDsell_Timer()
debug.print now & "xxx"
If xxx then
'//代码
'//代码
End if
End Sub

我判断的测试的依据就是一段时间之后他连xxx都不给我显示- -。挂掉了。

---

Timer_ZDsell_Timer

全局查找是否别的地方设置了他的enable=False 或者 interval= 0

---

改为：
Timer_ZDsell.Enabled=False
Timer_ZDsell.Interval=(Val(Text4.Text)*1500+50)'注意Interval为Long类型，值不能越界
Timer_ZDsell.Enabled=True

---

飘过

---

加上

On Error Resume Next
If Timer_ZDsell.Interval