frmupdateui1.vb

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

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

Namespace CodeForChapter11cs
  Public Partial Class frmUpdateUI1
	  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.ThreadMethod)
	  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()
	  Me.Text = textBox1.Text
	End Sub

	Private Sub ThreadMethod()
	  Me.Invoke(New MethodInvoker(AddressOf UpdateUI))
	End Sub
  End Class
End Namespace