VB.net2005多线程访问界面控件

费话不多说,下面的例子讲的是如何在vb.net2005中使用多线程访问窗体上的用户控件.请看代码:

'///////////------王晶波-------///////////'
'-本例子由王晶波编写
'主要在多线程程序中实现在线程中访问窗体上的用户控件
'希望对初学者有所帮助，高手请不要笑话！！！！！
'//////////-----特此声明------///////////
Imports System.Threading
Public Class Form1
    Delegate Sub SetText(ByVal text As String) '声明一个委托
    Dim i As Integer '定义一个变量，用来更新button2的text属性
    Private Sub Btn_text() '定义一个方法，通过这个方法调用btn_settext来改变button2的text属性
        Dim dh As SetText = New SetText(AddressOf Btn_SetText) '这句我也解释不清是什么意思，大家照着灵活一点用就是了。
        Me.Invoke(dh, New Object() {CStr(i)}) '和上面那句一样
    End Sub
    Private Sub Btn_SetText(ByVal str As String) '这个大家都可以理解了，给属性赋值
        Button2.Text = str
    End Sub
    Sub Add_text()
        For i = 0 To 100
            Btn_text()
            System.Threading.Thread.Sleep(100)
        Next
    End Sub
    Dim dh As System.Threading.Thread  '定义一个窗体级线程
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        dh.Abort()  '结束线程，否则点关闭按钮后无法正常结束程序.
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dh = New System.Threading.Thread(AddressOf Add_text) '创建一个线程的实例
        dh.Start() '开始运行线程

    End Sub
End Class

以上代码肯定可以运行,在网上找了好久也没找到有关vb.net 是如何委托来实现改变控件属性的,C#的倒是有一些,但是无法转成VB.net 来用,转换时总会出来一些看不懂的东西,无法通过调试,希望这个例子能给初学多线程的朋友一些帮助,如果觉得有帮助,就留言,我也好高兴一下!!!!!!