vb.net timer 定时器

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

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

SubmyCounter ()

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