’刚些的没什么技术含量，希望对初学者有所帮助，高手请不要笑话，自学编程网 www.
ImportsSystem.Threading
PublicClassForm1
DelegateSubSetText(ByValtextAsString)’声明一个委托
DimiAsInteger’定义一个变量，用来更新button2的text属性
PrivateSubBtn_text()’定义一个方法，通过这个方法调用btn_settext来改变button2的text属性
DimdhAsSetText=NewSetText(AddressOfBtn_SetText)’这句我也解释不清是什么意思，大家照着灵活一点用就是了。
Me.Invoke(dh,NewObject(){CStr(i)})’和上面那句一样
EndSub
PrivateSubBtn_SetText(ByValstrAsString)’这个大家都可以理解了，给属性赋值
Button2.Text=str
EndSub
SubAdd_text()
Fori=0To100
Btn_text()
System.Threading.Thread.Sleep(100)
Next
EndSub
DimdhAsSystem.Threading.Thread’定义一个窗体级线程
PrivateSubForm1_FormClosed(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.FormClosedEventArgs)HandlesMe.FormClosed
dh.Abort()’结束线程，否则点关闭按钮后无法正常结束程序.
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
dh=NewSystem.Threading.Thread(AddressOfAdd_text)’创建一个线程的实例
dh.Start()’开始运行线程
EndSub
EndClass
以上代码肯定可以运行,在网上找了好久也没找到有关vb.net是如何委托来实现改变控件属性的,C#的倒是有一些,但是无法转成VB.net来用,转换时总会出来一些看不懂的东西,无法通过调试,希望这个例子能给初学多线程的朋友一些帮助,如果觉得有帮助,就留言,我也好高兴一下!!!!!!

如果本文没有解决您的问题，请进老妖怪开发者社区提问