+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: QTP with ThunderRT6UserControlDC (/Thread-QTP-with-ThunderRT6UserControlDC)
QTP with ThunderRT6UserControlDC - swat2008 - 09-20-2008
I am unable to perform a click operation in one of my applications under test.
It is a winObject whose, nativeclass, objectclass and regexpwndclass is "ThunderRT6UserControlDC”
I am unable to get any other properties of this object. using some descriptive programming, I was able to view the visible text of the object ( “getvisibletext”). This is as far as I was able to get.
When I tried to click on the object .. I get "general Run Error"
When I tried to click using co-ordinates I got an Invalid function call.
Does anyone have experience working with this kind of control.
Any help you can offer is much appreciated.
I have attached the QTP code
Code:
Browser("Browser").Page("Lending Portal 4.1").Sync
Set AllObjects = Browser("Browser").Page("Lending Portal 4.1").Frame("iPContentPane").ActiveX("PPAX2.PPMain").WinObject("ThunderRT6UserControlDC")
oDesc("micclass").Value = "winObject" ' objType can be webedit, weblist, image or radio button, link
oDesc("nativeclass").Value = "ThunderRT6UserControlDC"
oDesc("objectclass").Value = "ThunderRT6UserControlDC"
oDesc("regexpwndclass ").Value = "ThunderRT6UserControlDC"
set oChilds = AllObjects.ChildObjects(oDesc)
Msgbox oChilds.Count
strText = oChilds.item(0).getvisibletext
oChilds.item(0).Click 1486, 153,micLeftBtn ‘( this doesn’t work )
Browser("Browser").Page("Lending Portal 4.1").Frame("iPContentPane").ActiveX("PPAX2.PPMain").WinObject("ThunderRT6UserControlDC").Click 1486, 153,micLeftBtn ‘ ( doesn’t work either )Thanks
Swat
RE: QTP with ThunderRT6UserControlDC - atysri - 06-20-2016
(09-20-2008, 01:57 AM)swat2008 Wrote: I am unable to perform a click operation in one of my applications under test.
It is a winObject whose, nativeclass, objectclass and regexpwndclass is "ThunderRT6UserControlDC”
I am unable to get any other properties of this object. using some descriptive programming, I was able to view the visible text of the object ( “getvisibletext”). This is as far as I was able to get.
When I tried to click on the object .. I get "general Run Error"
When I tried to click using co-ordinates I got an Invalid function call.
Does anyone have experience working with this kind of control.
Any help you can offer is much appreciated.
I have attached the QTP code
Code:Browser("Browser").Page("Lending Portal 4.1").Sync
Set AllObjects = Browser("Browser").Page("Lending Portal 4.1").Frame("iPContentPane").ActiveX("PPAX2.PPMain").WinObject("ThunderRT6UserControlDC")
oDesc("micclass").Value = "winObject" ' objType can be webedit, weblist, image or radio button, link
oDesc("nativeclass").Value = "ThunderRT6UserControlDC"
oDesc("objectclass").Value = "ThunderRT6UserControlDC"
oDesc("regexpwndclass ").Value = "ThunderRT6UserControlDC"
set oChilds = AllObjects.ChildObjects(oDesc)
Msgbox oChilds.Count
strText = oChilds.item(0).getvisibletext
oChilds.item(0).Click 1486, 153,micLeftBtn ‘( this doesn’t work )
Browser("Browser").Page("Lending Portal 4.1").Frame("iPContentPane").ActiveX("PPAX2.PPMain").WinObject("ThunderRT6UserControlDC").Click 1486, 153,micLeftBtn ‘ ( doesn’t work either )
Thanks
Swat
Hello Members,
I am also facing the similar kind of issues with another application.
I hope there might be someone in the group who can help us upon dealing with these issues.
Any help is highly appreciated.
Kind regards,
Aty
RE: QTP with ThunderRT6UserControlDC - venkatesh9032 - 07-04-2016
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"