中国好声音 泡沫开开:VB TIMER的问题 急急急

dim timerID Integer
Private Sub Timer1_timer()
Select Case timerID
Case 1
s4 = "事件1"
Case 2
s4 = "事件2"
Case 3
s4 = "事件3"
Case 4
s4 = "事件4"

timerID = 0
End sub
Private Sub Form_Load()
timerID = 1

添加一个Timer控件 Timer1
在 Timer1 的 Timer 事件中输入以下代码：

Private int i=1
Timer1.Interval=500
Private Sub Timer1_Timer()
if i=1 then
doPro1()
elseif i=2 then
doPro2()
elseif i=3 then
doPro3
elseif i=4 then
doPro4
i=0
end if
i++
End Sub

Private sub Timer1_timer()
Timer1.enabled=false'暂时关闭计时器，这样会好些
'在Doevent3结束时再重新激活计时器
DoEvent1() '要做什么事，写在这个过程内
End Sub

private sub DoEvent1()
......
DoEvent2()
End sub

private sub DoEvent2()
......
DoEvent3()
End sub
private sub DoEvent3()
......
Timer1.enabled=true ’激活计器器
End sub

当然，如果三个事件间没事可做，也可直接这样：
Private sub Timer1_timer()
Timer1.enabled=false'暂时关闭计时器，这样会好些
'在Doevent3结束时再重新激活计时器
DoEvent1() '要做什么事，写在这个过程内
DoEvent2()
DoEvent3()
timer1.enabled=true
End Sub

你不懂的话加我QQ87245295
我一点点跟你写

Private Sub Timer1_Timer()
s = s + 1: If s > 4 Then s = 1
Select Case s
Case 1
Print "执行事件一脚本"
Case 2
Print "执行事件二脚本"
Case 3
Print "执行事件三脚本"
Case 4
Print "执行事件四脚本"
End Select
End Sub

估计你的问题出现在了调用上

Doevents 和 CallByName 去看看这些