在数组上使用'Contains'

Question

好的,所以我对VB6不是很熟悉,但是我想看一个数组是否包含一个值.这就是我所拥有的,但它给我带来了错误.可能是"passedValue"是错误类型的问题,但我不这么认为.

    Dim transCodes As Variant
    transCodes = Array(40, 41, 42, 43)
    If (transCodes.Contains("passedValue")) Then
    *Do Stuff*
    End If

任何帮助将非常感激!

UPDATE

如果没有纠正我的语法,你能给我一个我可能用来确保"passedValue"属于正确类型的强制转换/转换的例子吗？

更新我的更新

那么VB6中没有'Contains'方法吗？做这个简单任务的任何其他方法？

Answer 1

VB6 Contains在数组上没有本机方法.

您最好的选择是依次遍历数组检查每个项目:

Found = False
For Index = LBound(transCodes) To UBound(transCodes )
  If transCodes(Index) = PassedValue Then
    Found = True
    Exit For
  End If
Next

If Found Then
  'Do stuff
  'Index will contain the location it was found
End If

替代方案包括使用集合并尝试根据其值来检索项目,但对于这个简单的情况,这是更多的工作.