07-04-2016, 06:40 PM
Set objItem = Description.Create
objItem("micclass").value = "Webbutton" (If it is winobject use winbutton)
Set objItemColl = B().pg().ChildObjects(objItem)
For Itemcount = 0 To objItemColl.count-1
objItemColl(Itemcount ).highlight
objItemColl(Itemcount ).click
Next
''If you want unique properties add particular object type
EG:
objItem("micclass").value = "Webbutton"
objItem("html id").value = "rev_ui_1"
objItem("micclass").value = "Webbutton" (If it is winobject use winbutton)
Set objItemColl = B().pg().ChildObjects(objItem)
For Itemcount = 0 To objItemColl.count-1
objItemColl(Itemcount ).highlight
objItemColl(Itemcount ).click
Next
''If you want unique properties add particular object type
EG:
objItem("micclass").value = "Webbutton"
objItem("html id").value = "rev_ui_1"