frmtimer.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Threading

Namespace CodeForChapter11cs
  Public Partial Class frmTimer
	  Inherits Form
	Public Sub New()
	  InitializeComponent()
	End Sub

	Private tmr As System.Threading.Timer
	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  Dim someState As Object = New Object()
	  Dim tmrClbck As TimerCallback = New TimerCallback(AddressOf Me.AtSetInterval)
	  tmr = New System.Threading.Timer(tmrClbck, someState, 5 * 1000, -1)
	End Sub

	Private Sub AtSetInterval(ByVal state As Object)
	  ' do something
	  MessageBox.Show("Test")
	End Sub
  End Class
End Namespace