frmupdateui0.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

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

Namespace CodeForChapter11cs
  Public Partial Class frmUpdateUI0
	  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) 'this will results in NotSupportedException at...
	  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 Sub UpdateUI()
	  Me.Text = textBox1.Text '..this point
	End Sub
  End Class
End Namespace