function Timer2_Timer() 出错问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:34:59
我希望嵌套Timer2_Timer()到Timer1_Timer()内执行数值变换,也说是面羰有两个变换,一个是Timer1_Timer()的,这个时间要长些变换一次,另一个是Timer2_Timer(),这个时间短些变换一次.但提示Timer2_Timer()与声明类型不符,如果实现这样的嵌套呢?
function Timer2_Timer()
If ads.Text = "" Then
ads= "1"
Else
ads= ""
End If
Timer2_Timer=ads
End function
不太明白,function Timer2_Timer() 这句都出错哦?
Timer2_Timer()好像无法有返回值.
我需要在Timer1_Timer()变换(比如10秒)的间隔,让Timer2_Timer()不断变换(每秒一次)的效果.请各位大虾不吝指教.

function Timer2_Timer() 这句都出错哦?
不存在function Timer2_Timer()
这里是Private Function Timer2_Timer()
是SUB不是FUNCTION,

我需要在Timer1_Timer()变换(比如10秒)的间隔,让Timer2_Timer()不断变换(每秒一次)的效果.请各位大虾不吝指教.

不需要嵌套啊什么的,
2个TIMER都独立做自己的操作

只要设置
Timer1.Interval=10000'(10秒)
Timer2.Interval=1000'(1秒)

'''''''''''''''''''''''''''''''''''''''''''
如果2个TIMER要相互影响比如1开了再开2,1要关闭等2开了在重新开1的可以按下面的做

Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer1.Enabled = True
End Sub

要那么麻烦吗，在Timer1_Timer()过程这添加判断语句就不解决问题了？
Dim a As Integer

Private Sub Timer1_Timer()
If a<10 then
a=a+1
'其他1秒控制语句语句
e