********************超级怪问题，高手请进，共同探讨，共同进步*******************************

Question

我写一个方法，传入两个ComboBox对象参数
Private Sub cmdAdd(list1 As ComboBox, list2 As ComboBox)
    list2.AddItem (list1.List(list1.ListIndex))
End Sub下面调用 cmdAdd ComboBox1, ComboBox2
comboBox1,comboBox2为这两个ComboBox的名字，结果正确无误
但当我把这两个ComboBox控件换为listBox控件时，Private Sub cmdAdd(list1 As ListBox, list2 As ListBox)
    list2.AddItem (list1.List(list1.ListIndex))
End Sub下面调用 cmdAdd ListBox1, Listbox2 时出错，出错信息，类型不匹配。（listBox1 ,ListBox2为这两个控件的名字）哪位高手知道为什么会这样，

Answer 1

这不废话吗，ListBox作为参数类型，传得是combox类型的变量，能不错吗？

Answer 2

楼上的是呀传的是combox类型参数亚
改下试试

Answer 3

Private Sub cmdAdd(list1 As ListBox, list2 As ListBox)
    list2.AddItem (list1.List(list1.ListIndex))
End Sub------------------------------------------------------------
list1  list2   '不要使用系统保留字
------------------------------------------------------------
cmdadd ListBox1, Listbox2   '应改为cmd list1  list2 ，  [list1  list2为这两个控件的名字]   

Answer 4

错误确实存在，为什么两种控件，ComboBox可以，listBox不可以，请大家不要主观臆断，实际地测试以下再回帖子好吗？

Answer 5

Private Sub cmdAdd(list1 As ComboBox, list2 As ComboBox)<--你定义的参数类型是COMBOBOX,但传入的是LISTBOX,能不错吗?
改成:
Private Sub cmdAdd(list1 As control, list2 As control)
or 
Private Sub cmdAdd(list1 As object, list2 As object)