使用列表框调用函数

Question

我创建了一个函数，获取两个列表框，从一个列表框中获取一个值，然后将该值添加到另一个。我将函数放在我的模块中。这里是 代码。

函数如下：

Function addtolist(selectionlist As ListBox, listselected As ListBox)

For i = 0 To selectionlist.ListCount - 1
    If selectionlist.selected(i) = True Then
        listselected.AddItem selectionlist.List(i)

    End If

Next i

For i = selectionlist.ListCount - 1 To 0 Step -1
    If selectionlist.selected(i) = True Then
        selectionlist.RemoveItem i

    End If

Next i
End Function

在私有子中，一个按钮点击，我在做如下操作：

Call addtolist(selectionlist, listselected)

我不断收到运行时错误“13”类型不匹配。

请帮忙！

Answer 1

根据您暴露的代码和错误，我想说您必须将函数参数类型的声明更改为MSForms.ListBox：

Function addtolist(selectionlist As MSForms.ListBox, listselected As MSForms.ListBox)