frmtimer.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 25 行

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