frmupdateui2.vb

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

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

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

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  Dim t As Thread = New Thread(AddressOf Me.UpdateUI)
	  t.Name = "Worker: Assigns form's caption text."
	  t.Start()
	End Sub

	Private Sub menuItem2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem2.Click
	  Me.UpdateUI()
	End Sub

	Private Delegate Sub MethodInvoker()

	Private Sub UpdateUI()
	  If Me.InvokeRequired Then
		' On worker thread