frmsimple.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

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

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

	Private Sub DoSomeWork()
	  ' TODO some work
	  Thread.Sleep(5000)

	  Dim t As Thread = Thread.CurrentThread
	  MessageBox.Show("This thread is " & t.Name & ", id=" & t.ManagedThreadId.ToString())
	End Sub

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  ' UI thread
	  Me.DoSomeWork()
	End Sub

	Private Sub menuItem2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem2.Click
	  ' worker thread
	  Dim t As Thread = New Thread(AddressOf Me.DoSomeWork)
	  t.Name = "Worker Thread 1"
	  t.Start() ' thread does not execute until this line
	End Sub
  End Class
End Namespace