另外,因为上述原因我没有办法使用 对象实例.CheckProperty "Enabled"来做检查了(正是因为这个检查到Enabled的值也是True,我才想到用GetRoProperty去返回一下),我只能自己写个对象属性检查的函数,但是不知道对象属性的数据类型是什么,实参赋给形参的时候该如何转化,所以到obj.object.varProperty,系统总是报提示属性或方法不正确。函数如下:
Function Check_Object_Property(obj,varProperty,strExpectedValue)
Dim strActualValue
strActualValue = Cstr(obj.object.varProperty)
If strActualValue = strExpectedValue Then
Reporter.ReportEvent micPass,"Check_Object_Property:" & obj,"Property " & varProperty_ & " have the same actual value with expected value:" & strExpectedValue
Else
Reporter.ReportEvent micFail,"Check_Object_Property:" & obj,"Property " & varProperty_ & " actual value is " & strActualValue &", expected value is :" & strExpectedValue
End If
End Function作者: 正弦函数 时间: 2011-3-19 21:33
貌似也遇到过这问题,不知道如何解决