比如执行一个线程,处理完后通知主线程处理结果或变量并执行主线程中对应的方法。
Private Sub Form1_Load(sender as object, e as eventargs) handle me.load
dim trd as thread =new thread (New ParameterizedThreadStart(AddressOf MyThread) '创建一个线程
trd.start(" 这里写传递到子线程的数据 ")
End Sub
Sub MyThread (para as object) '包含传递参数
dim callback as ThreadCallBack=new ThreadCallBack(AddressOf doInMainThread)
Me.BeginInvoke(callback,"这里是要传递到主线程的object数据")
End Sub
'创建一个委托
Delegate Sub ThreadCallBack(s As object)
'主线程中需要执行的
Sub doInMainThread( s as object)
MsgBox(s)
End Sub