如何把控件数组作为函数参数传递？

[mnb_cn123123]

窗体上已经有一个winsock控件，其index=0,定义如下函数

Private Sub SendFile(strPathFileName As String, WinSk() As Winsock, intAwarryIndex As Integer)
.......
WinSk(intAwarryIndex).SendData bytData()

End Sub

Call SendFile(strPathFileName, Winsock1(), intIndex)

当连接增加时会自动生成winsock控件，调用该函数时，老是提示“类型不匹配，缺少数组和用户自定义类型”，第二个参数不知怎么写法？请教！！谢谢了！！

[mnb_cn123123]

怎么没人回答啊，唉，还等着用呢，哪位行行好吧！泣血叩谢！

[bobogg]

Private Sub SendFile(strPathFileName As String, WinSk, intAwarryIndex As Integer) ....... WinSk(intAwarryIndex).SendData bytData() End Sub Call SendFile(strPathFileName, Winsock1, intIndex)

[bobogg]

OR..... Private Sub SendFile(strPathFileName As String, WinSk as Winsock ) ....... WinSk.SendData bytData() End Sub Call SendFile(strPathFileName, Winsock1( intIndex) )

[舉杯邀明月]

引用 楼主 mnb_cn123123 的回复:

窗体上已经有一个winsock控件，其index=0,定义如下函数 Private Sub SendFile(strPathFileName As String, WinSk() As Winsock, intAwarryIndex As Integer) ....... WinSk(intAwarryIndex).SendData bytData() End Sub Call SendFile(strPathFileName, Winsock1(), intIndex) 当连接增加时会自动生成winsock控件，调用该函数时，老是提示“类型不匹配，缺少数组和用户自定义类型”，第二个参数不知怎么写法？请教！！谢谢了！！

看代码，应该是没有问题的。 提示这样的错误，我觉得是因为你“自动生成”的WinSock对象不是数组元素吧！ 另外，应该就象3楼那样： 你传个数组+索引给它，倒不如直接在调用语句那儿，把数组中指定的Winsock对象直接传给它来操作。

[mnb_cn123123]

非常谢谢二位！思路很清晰！