多余的循环?是什么意思?Private Sub Timer1_Timer(Index As Integer) select case index case ........ case ........ end select end sub 各控件时间不一,调用各自的处理函数,另外,我已经 Timer1(c_Timer1重连).Interval = 0 但是该他的Timer1_Timer事件还是会运行一次.
程序主要就是靠 Time 带动运转的，如果取消Time程序就不转了啊
Timer 就是这样。试试只用一个 Timer,时间取你所需各个时间间隔的最大公因数。用一组计数器变量来计算所需要的中断。 例如： dim mytimer(9) as longPrivate Sub Timer1_Timer() for i = 0 to 9 mytimer(i) = mytimer(i) + 1 next i if mytimer(0) = 2 then ...... mytimer(0) = 0 end if if mytimer(1) = 5 then ...... mytimer(1) = 0 endif ...... end sub
还有有没有用到timer控件？不知道什么原因我电脑上只要用了这个控件就会出现你的情况，但是没你那么夸张，时间长了也只涨2～3M
2个窗体,一个运行用的,一个设置用的。
如果不出现了，就从timer身上入手检查代码，有没有多余的循环
select case index
case
........
case
........
end select
end sub
各控件时间不一,调用各自的处理函数,另外,我已经
Timer1(c_Timer1重连).Interval = 0
但是该他的Timer1_Timer事件还是会运行一次.
例如：
dim mytimer(9) as longPrivate Sub Timer1_Timer()
for i = 0 to 9
mytimer(i) = mytimer(i) + 1
next i
if mytimer(0) = 2 then
......
mytimer(0) = 0
end if
if mytimer(1) = 5 then
......
mytimer(1) = 0
endif
......
end sub
of123所说的取最大公因数的办法，实现关闭某个Time就需要加一个变变量开关。这个办法不错。
homezj(小吉) 我没有使用第三方控件，最小化的瞬间使用内存降低，然后又开始增长，及时最小化也能增长到10M，然后你还原，再次最小化，一瞬间恢复为3M之后有慢慢增长。
900126(息夫人) 谢谢，这个问题困扰我好久了，程序第一次启动 Timer1(c_Timer1重连).Interval = 6000
而在6000之内我虽然 Timer1(c_Timer1重连).Interval = 0但依然不起效果，你说的我试下去~
找了吗？若你不清楚与哪些API有关，可以把程序中那些从网上抄来的代码，及Timer事件过程中的代码贴出来看看。