VB6如何使用对象的VB.NET数组?

时间:2019-06-05 08:57:13

标签: vb.net vb6

我有一个注册为COM互操作性的VB.NET Dll,它公开了以下内容:

Class Society

带有:

Property ListPersons As Person()

这是VB.NET代码:

Public Class Society
    ...
    <System.Xml.Serialization.XmlArrayItemAttribute("Person", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>  _
    Public Property ListPersons() As Person()
        Get
            Return Me.ListPersonsField
        End Get
        Set
            Me.ListPersonsField = value
            Me.RaisePropertyChanged("ListPersons")
        End Set
    End Property

我必须用VB6填充该列表,但找不到方法

1 个答案:

答案 0 :(得分:1)

过去,我在这个问题上作了很多努力,老实说,我找不到传递对象数组的解决方案。

我过去使用的解决方案之一是将单个对象的数据作为参数传递,然后在.net DLL中创建对象并将其添加到您的列表中。

示例

<ServiceContract()>
Public Interface IPersonAdd

    <OperationContract()>
    Function AddPerson(ByVal id As Integer, ByVal value As Integer) As Boolean

End Interface

Public Function AddPerson(ByVal id As Integer, ByVal value As Integer)
    Dim p as new Person(id, value)
    ListPersons.Add(p)
End Function