多线程相关

 

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

 

1	'///------王晶波-------///'

2	'-本例子由王晶波编写

3	'主要在多线程程序中实现在线程中访问窗体上的用户控件

4	'希望对初学者有所帮助，高手请不要笑话！！！！！

5	'//-----特此声明------///

6	Imports System.Threading

7	Public Class Form1

8	Delegate Sub SetText(ByVal text As String) '声明一个委托

9	Dim i As Integer '定义一个变量，用来更新button2的text属性

10	Private Sub Btn_text() '定义一个方法，通过这个方法调用btn_settext来改变button2的text属性

11	Dim dh As SetText = New SetText(AddressOf Btn_SetText) '这句我也解释不清是什么意思，大家照着灵活一点用就是了。

12	Me.Invoke(dh, New Object() {CStr(i)}) '和上面那句一样

13

End Sub

14	Private Sub Btn_SetText(ByVal str As String) '这个大家都可以理解了，给属性赋值

15	Button2.Text = str

16

End Sub

17	Sub Add_text()

18	For i = 0 To 100

19	Btn_text()

20	System.Threading.Thread.Sleep(100)

21

Next

22

End Sub

23	Dim dh As System.Threading.Thread  '定义一个窗体级线程

24	Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

25	dh.Abort()  '结束线程，否则点关闭按钮后无法正常结束程序.

26

End Sub

27	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

28	dh = New System.Threading.Thread(AddressOf Add_text) '创建一个线程的实例

29	dh.Start() '开始运行线程

30

End Sub

31

End Class

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