我的一个函数代码如下:
public Function CheckJavaList(ObjectName, FoundStr)
Dim ItemsCount
Dim ItemStr
Dim i
ItemsCount=ObjectName.GetROProperty("items count")
For i=0 to ItemsCount-1
ItemStr=ObjectName.object.getItem (i)
If ItemStr=FoundStr Then
CheckJavaList=true
Exit Function
End If
Next
CheckJavaList=false
End Function
调用该函数时用了如下的语句:
CheckJavaList(JavaWindow(DepArr(1)).JavaList( DepArr(3)), InfoRight)
当程序运行到 ItemStr=ObjectName.object.getItem (i) 时,系统跳出这样的错误:
F:\未命名.bmp
请问时什么原因,高手们帮帮忙,多谢