timer控件的问题。

[fudonghaiaaaa]

我的程序里有两个timer控件 timer1,timer2


程序开始后，timer1,timer2同时运行。

我想在timer1,运行一段时间后，终止timer2运行。

这里timer1不能停。当timer2停止后，timer1继续运行。

最后停止timer1 然后运行timer2


Private Sub Timer1_Timer()
程序A
Timer2.Enabled=False
程序B
Timer1.Enabled=False
Timer2.Enabled=True

end if



我在网上看说，不要在一个timer里调用另一个timer
但是如果我想实现这样的程序应该怎么办。


其实我要写的就是用timer1来监测timer2

当达到程序A的条件时，就要关闭timer2
然后用程序B来解决问题后，在开启timer2

[of123]

为什么需要两个 Timer ?

[赵4老师]

将原timer1和timer2的代码逻辑整合到一个Timer中。

[熊孩子开学喽]

一个就可以了, 内部自己加上逻辑判断哪一段程序执行或不执行. 增加timer只会增加程序复杂度.

[fudonghaiaaaa]

引用 3 楼 WallesCai 的回复:

一个就可以了, 内部自己加上逻辑判断哪一段程序执行或不执行. 增加timer只会增加程序复杂度.

我的程序里包括了10多个timer。 每个timer里调用了很多的sub 并且每个timer里面用了很多的goto. 每个sub 里面也有很多的goto. 可以说很不科学。但有些地方我想不到太好的办法。 我想知道两个timer的整合办法，能不能给个例子。 还有，有没有可以替带goto的进行代码间，多次跳转。当然，我说的是从前往后跳，不然我也不会用goto.

[熊孩子开学喽]

引用 4 楼 fudonghai 的回复:

[quote=引用 3 楼 WallesCai 的回复:] 一个就可以了, 内部自己加上逻辑判断哪一段程序执行或不执行. 增加timer只会增加程序复杂度.

我的程序里包括了10多个timer。 每个timer里调用了很多的sub 并且每个timer里面用了很多的goto. 每个sub 里面也有很多的goto. 可以说很不科学。但有些地方我想不到太好的办法。 我想知道两个timer的整合办法，能不能给个例子。 还有，有没有可以替带goto的进行代码间，多次跳转。当然，我说的是从前往后跳，不然我也不会用goto. [/quote] 这就涉及到你的代码能力了, 至少goto这种东西,至少在VB6里面只会出现在一个地方,那就是On Erroe后面. 结构化的代码是完全可以避免goto的. 因为:顺序,选择,循环 这三种结构已经可以用于任何复杂的流程和算法了. 所以我觉得你应该先设法把程序结构化做好, 然后一步一步提高代码质量.

[of123]

你在日常生活中，一般只有一块表，但可以管很多事情，比如上下班、开会、回家煮饭的时间等等。 在你的程序里，道理是一样的。你未必需要每个任务配备一个 Timer。

[赵4老师]

A
if ... Then goto L
B
L:
C
'等价替换为
A
Do
 if ... Then Exit Do
 B
Loop Until True
C