线程访问控件

第一种   同UI调用

CheckForIllegalCrossThreadCalls = False

第二种  跨UI调用

用方法  Invoke

'测试方法

    Public Sub TestThread()
        '创建一个线程
        Dim th As New Thread(AddressOf MyThreadProc)
        '启动线程
        th.Start()
    End Sub
 
    Public Sub MyThreadProc()
        '更新ui资源例子
        Me.Invoke(New VoidDelegate(AddressOf UpdateText))
    End Sub
    '定义委托
    Public Delegate Sub VoidDelegate()
    '定义方法
    Public Sub UpdateText()
        '实际更新界面
        Me.Text = "Modified by thread"
    End Sub