frmworkersimple.vb

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

Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms

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

	Private bw As BackgroundWorker
	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  label2.Text = "will kick it off"

	  bw = New BackgroundWorker(Me)
	  AddHandler bw.DoWork, AddressOf bw_DoWork
	  AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted

	  bw.RunWorkerAsync(textBox1.Text)
	End Sub

	Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
	  ' can touch UI. Thread communicates to UI. We don't have to Control.Invoke explicitly.
	  label2.Text = e.Result.ToString()
	End Sub

	Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
	  ' do time consuming work
	  System.Threading.Thread.Sleep(3000)

	  e.Result = "finished :) " & e.Argument.ToString() ' could assign any other object
	End Sub
  End Class
End Namespace