从一个父线程中创建n个子线程，如何在这n个子线程都执行完成后通知父线程所有子线程已终结？

[TonyTonyQ]

RT

比如（以下为伪代码）：
-------------
dim father as new thread(addressof f)
father.start()
'do something else
-------------
public sub f()
for i as int32=0 to 100
dim chld as new thread(addressof child)
next
'do something else
end sub
-------------
public sub child()
'do something here, import codes here
end sub
-------------

如上所述，如何在这100个 chld 线程全部执行完成后通知父线程 father 并执行一定的操作？

另，由于父线程在创建子线程后有其自己的工作要做，所以不能用 Join 方法阻塞父线程。其实父线程在我的程序中是窗口UI线程，不能被阻塞，否则窗口就会无法刷新，像死机一样。我的目的就是要在所有子线程执行完成后通知窗口线程更改窗口状态。请不要告诉我使用control.Invoke方法，这个方法我知道，我想用标准线程来达到目的，请大虾指点。

[mycoldboy]

up

[jxzhang615]

帮顶！

[兔子-顾问]

学习。

[捏造的信仰]

这个完全可以用类的事件来写呀。将子线程封装到类当中就行了。

[haoztao]

将子线程封装到类当中就行了

[TonyTonyQ]

我就是把子线程封装到类中來做的，然後結束后通過事件通知父綫程，但儅子綫程數大於1后，此方法的有效性不穩定（時而有作用，時而不起作用），所以覺得不適合用于多個子綫程。

[delphi6net]

ding

[gbbword]

用消息队列应该好一点吧。这个我也没有用过只是感觉。

[TonyTonyQ]

To: tjj3000(tomson)
你的想法是對的，我還是用綫程加委託實現了，謝謝，結貼。

[asmallbee]

up

[tjj3000]

我的方法：子线程中不用再开线程，利用异步委托实现，因为当你用代表发出调用请求后，CLR(公共语言运行环境，Common Language Runtime)接到这个请求，并将这个请求放置到一个内部的处理队列(Queue)中去


'定义委托
Delegate sub Dele_chld()
'定义回调函数
dim iCount as integer=0
private sub callbackchld(Byval ar as IAsyncResult)
icount=CInt(ar.AsyncState)
icount=iCount+1
if icount=100 then
dosomething
endif

end sub



dim father as new thread(addressof f)
father.start()
'do something else
-------------
public sub f()
for i as int32=0 to 100

dim Dele_chldInstance as new dele_chld (addressof child)
dim CallBackDelegate as new AsyncCallBack (AddressOf callbackchld)
dele_chldInstance.begininvoke((nothing,CallBackDelegate, 1)
next
end sub
public sub child()
'do something here, import codes here
end sub


没有调试过，只表明大概处理流程