高分求一简单程序。只实现该程序的一个函数就可以。问题如下：

[explosun]

在我的客户端(VB）中的函数：
Form_Load()
Dim org As New COM_Org '这是我们在VC中写的组件
dim arrray_long(org.getchildcout(orgID)) as long　‘定义一个数组
org.GetAllChild(orgID,array_long)’组件函数实现将该结点所有孩子ID写入数组
for i=0 to org.getchildcount(orgID)
msgbox array_long(i)’循环显示数组的内容
next
end sub
服务端（VC+ATL)中的函数not support MFC
getchildcout(orgID)'返回该结点下所有孩子的数目　已实现
GetAllChild(orgID,array_long)'填充从VB中传入的数组。
请各们高手，大侠，帮忙写出GetAllChild的内容，结点可以随便写。重要的是我不知道如何填充从VB中传入的数组。谢谢，一定给分。

[LeeZi]

不要在VB里面传进去数组，在组件中分配。

HRESULT　GetAllChild(/*[in]*/ BSTR orgID, /*[out, retval]*/ VARIANT* pVal);

[explosun]

自己UP一下

[crystal_heart]

up

[explosun]

不要UP要回帖啊！！！

[explosun]

快受不了了，每1分钟刷一次