frmthreadpool.vb

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

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

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

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  Dim wc As WaitCallback = New WaitCallback(AddressOf RunsOnPoolThread)
	  Dim someState As Object = New Object()
	  ThreadPool.QueueUserWorkItem(wc, someState)
	End Sub

	Private Sub RunsOnPoolThread(ByVal state As Object)
	  ' do stuff on thread optionally using state
	  Debug.WriteLine("Thread ID: " & Thread.CurrentThread.ManagedThreadId.ToString())
	End Sub
  End Class
End Namespace