通过使用组合框而不是列表框,我能够重现您的错误:
'1 form with:
' 1 command button: name=Command1
' 2 combobox controls: name=Listbox1 name=Listbox2
Option Explicit
Private Sub Command1_Click()
Call copyListboxes(Listbox1, Listbox2) 'Type Mismatch!
End Sub
Public Sub copyListboxes(ByRef lstFrom As ListBox, ByRef lstTo As ListBox)
Dim i As Integer
For i = 0 To lstFrom.ListCount - 1
lstTo.AddItem lstFrom.List(i)
Next i
End Sub
Private Sub Form_Load()
Dim intIndex As Integer
For intIndex = 1 To 10
Listbox1.AddItem CStr(intIndex)
Next intIndex
End Sub
要解决这个问题,您可以使用列表框控件或更改您的子以使用组合框控件:
Public Sub copyListboxes(ByRef lstFrom As ComboBox, ByRef lstTo As ComboBox)
Dim i As Integer
For i = 0 To lstFrom.ListCount - 1
lstTo.AddItem lstFrom.List(i)
Next i
End Sub