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
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
