It can be quite confusing at times when an object exists on a page, but it is hidden or multiple instances of an object exists with some instances hidden. The IsObjectFound function implements the search function for the specified web object and returns ‘True’ if a single instance of the object is found.
'Arg: ' TestObject ' 'Returns: ' -1 Object not found ' 0 Multiple instances found ' 1 Single unique instance found Public Function IsObjectFound(ByVal TestObject) 'If .Exist returns True, single instance found If TestObject.Exist(0) Then IsObjectFound = 1 Exit Function End If Dim TOProperties, i, oDesc, Parent Set TOProperties = TestObject.GetTOProperties Set oDesc = Description.Create 'Enumerate supplied description 'Add properties to the Description object For i = 0 To TOProperties.Count - 1 oDesc.Add TOProperties(i).Name, TOProperties(i).Value Next Set Parent = TestObject.GetTOProperty("parent") If Parent.ChildObjects(oDesc).Count > 0 Then IsObjectFound = 0 Else IsObjectFound = -1 End If End Function
IsObjectFound can return 3 possible values, depending upon the object’s existence:
-1 = Object not found 0 = Multiple instances found 1 = Single unique instance found
The above function can be tested on www.Google.com:
MsgBox IsObjectFound(Browser("title:=Google").Page("micclass:=Page").WebEdit("name:=q")) 'If used with RegisterUserFunc RegisterUserFunc "WebEdit", "IsObjectFound", "IsObjectFound" MsgBox Browser("title:=Google").Page("micclass:=Page").WebEdit("name:=q").IsObjectFound()
There are instances in Web apps when .Exist returns true but the object is not visible to the human eye. To find out if that particular object is visible, use the following code statement to check whether “x” (or “y”) is greater than zero:
If Object.GetROProperty("x") > 0 Then 'Object is visible End If
Hope you guys find this article useful :)
If you have any questions, please ask them in the comments section. If your query is confidential, please use the Contact Form to send me an e-mail instead.
{ 8 comments… read them below or add one }
Hi Anshoo,
Good observation
Thanks! :)
Hi Anshoo,
When i have executed this statement Msgbox IsObjectFound( “WebEdit”, “name:=q” ), runtime error displayed as Type mismatch ‘IsObjectFound’.
Please clarify this.
the link “Download IsObjectFound Class.” is refering to http://relevantcodes.com/search-web-object-simplified/#.
I hope the class file is missing.
Hi Deep,
Please use this link: http://relevantcodes.com/Articles/IsObjectFoundClass/IsObjectFoundClass.txt
Thanks for bringing this to my attention. I will update this article tonight.
Hi Anshoo
I have a question for you. I am currently scripting website. I have an issue with number of webedits on the page. QTP shows that there is 15 web edit fields. I could see only 7. I have already talked to the developer who created this page and he confirmed that there was no hidden edit fields. Did you ever experience such problem? If “yes”, please let me know why there is a huge difference between the results.
thanks in advance.
There may be hidden WebEdits in which case QTP will give the correct count but a user won’t see any of the hidden objects – they will only see the ones made visible by the developer. This can help you retrieve the number of hidden objects:
Set oDesc = Description.Create oDesc("micclass").Value = "WebEdit" oDesc("x").Value = 0 Set oBase = Browser("").Page("").ChildObjects(oDesc) MsgBox "Number of hidden objects: " + oBase.CountHi Raja,
I think this would generally appear if the library has not been associated with the test..