问题描述
PublicClassForm1DelegateSubwt(ByValaAsInteger)'定义一个委托PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxc1AsNewSystem.Threading.Thread(AddressOfweituo1)xc1.IsBackground=Truexc1.Start()EndSubPrivateSubweituo1(ByValbAsString)DimiAsIntegerFori=0To50000Me.Invoke(Newwt(AddressOfchaozuo),i)'这行和上面两行一样效果NextiEndSubPrivateSubchaozuo(ByValaAsInteger)Label1.Text=Val(Label1.Text)+aEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimxc2AsNewSystem.Threading.Thread(AddressOfweituo2)xc2.IsBackground=Truexc2.Start()EndSubPrivateSubweituo2(ByValbAsString)DimiAsIntegerFori=1To50000Me.Invoke(Newwt(AddressOfchaozuo),-i)'这行和上面两行一样效果NextiEndSubEndClass
解决方案
解决方案二:
主要是你两个线程来更新同一个Label,虽然没什么意义。。。
解决方案三:
基本上、永不需要使用Invoke。在必要时,应该使用BeginInvoke。
解决方案四:
两个按钮可以同时按?你做的难道是个APP?