在ArrayList中查找对象的indexof

Question

我有一个简单的测试代码：

Sub test()
    Dim testList As Object
    Set testList = CreateObject("System.Collections.ArrayList")
    testList.Add Range("a1")
    Debug.Print testList.IndexOf(Range("a1"))
End Sub

它返回一个错误而不是列表中对象的索引。 为什么会这样，如果不是添加Range而是添加自定义myClass ，那么myClass必须Implement什么才能使其正常工作？ 还是无法在ArrayList查找对象？

Answer 1

干得好：

Option Explicit

Sub TestMe()

    Dim testList As Object
    Set testList = CreateObject("System.Collections.ArrayList")

    Range("A1") = "soready"
    Range("B1") = "tohelp"        

    testList.Add (Range("A1"))
    testList.Add (Range("B1"))

    Debug.Print testList.IndexOf("tohelp", 0)

End Sub

它打印1 ，它是“ tohelp”的正确索引。