''Checking Invisible ----- Test for readonly field
If Browser("TechExcel DevSpec WebSite").Page("TechExcel DevSpec WebSite").Frame("issueDetail").WebList("Test for readonly").GetROProperty("visible")="True" Then
Reporter.ReportEvent 1, "Test for readonly field isn't invisible", "invisible checking'"
end if
调试发现虽然取的是允许过程中的对象, 然而Browser("TechExcel DevSpec WebSite").Page("TechExcel DevSpec WebSite").Frame("issueDetail").WebList("Test for readonly").GetROProperty("visible")的值永远是True
所以就导致这脚本是没用的
另外我也尝试过用exist函数, 发现也是不行
比如
If Browser("TechExcel DevSpec WebSite").Page("TechExcel DevSpec WebSite").Frame("issueDetail").WebList("Test for readonly").exist(0) Then
Reporter.ReportEvent 1, "Test for readonly field isn't invisible", "invisible checking'"
end if