Question

vb.net 中的timer控件的问题，在线等

If flag2 = 4 Then
Timer4.Stop()
Timer3.Start()
flag2 = 0
End If
flag2是我的全局变量，上面这段代码是在timer4中写的，在别的timer里能够得到flag2的值，但是，我已经知道flag2的值变为4，但是上面那段代码有时候能执行，有时候不能执行。。。求大虾帮助

Answer 1

vb.net有的版本timer子程序读取子程序外面的全局变量有时出错，要么升级到高版本如2008（我使2005就有这个问题），要么在窗口上插个Label1并使 Label1.Hide() ，以后就用Label1.Text代替flag2，实际上Label1的名称可以改如v_flag2。换句话说是用控件值代替全局变量。

Answer 2

Dim T As Long

Private Sub Text1_LostFocus() '当焦点离开Text1的时候发生
If Text1 = "" Then Exit Sub
If Not IsNumeric(Text1) Then Exit Sub

Timer1.Interval = 1000 '设置成每秒触发一次事件
T = val(Text1) * 60 '输入的分钟乘60转换成秒.
End Sub

Private Sub Timer1_Timer()
If T <> 0 Then
T = T - 1
Else
'想做什么写什么
End If
End Sub

如果你嫌弃触发时间太频繁你可以缩小一点...把Timer1.Interval设置成60000
60000毫秒=60秒=1分钟

val(Text)就不用*60了

PS: Timer的Interval是个Int类型,不能超过65535

Answer 3

说说你想实现什么粑，这问题没有全部代码不好解释。