费话不多说,下面的例子讲的是如何在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 来用,转换时总会出来一些看不懂的东西,无法通过调试,希望这个例子能给初学多线程的朋友一些帮助,如果觉得有帮助,就留言,我也好高兴一下!!!!!!