vb.net timer 定时器

.net使用timer做计数器是，不要使用循环调用的方式，否则计数器会以2的N次方累加，最终文本框的显示结果是,1,2,4,8,16,而不是1，2，3，4，5...，代码如下：

'需要用到的控件，一个textbox，一个timer

Sub myCounter ()

try

TextBox1.Text = (Int(TextBox1.Text) +
1).ToString ‘文本框数字加1

Timer1.Interval = 1 1000

If Timer1.Enabled = False Then

Timer1.Start()

End If

AddHandler Timer1.Tick, AddressOf myCounter

Catch ex As Exception

MsgBox("程序错误：" +
ex.ToString)

End Try

为了避免上述问题(上述问题，可能是每次运行都开启一个timer线程)请直接在timer控件的促发时间里加入代码，即可避免，如下

Private Sub Timer1_Tick(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick

Call myCounter()

End Sub

Sub myCounter ()

try

TextBox1.Text = (Int(TextBox1.Text) + 1).ToString ‘文本框数字加1

Timer1.Interval = 1000

If Timer1.Enabled = False Then

Timer1.Start()

End If

AddHandler Timer1.Tick, AddressOf mycounter

Catch ex As Exception

MsgBox("程序错误：" + ex.ToString)

End Try