Hi,
Can you try if the below works:
Public Function Text_Check1(fText)
Dim i,myp,myo,obj
i=0
Set myp=Browser("title:=.*").page("title:=.*")
Set myo=description.Create()
myo("micclass").value="WebElement"
myo("html id").value=Trim(fText)
myo("index").value=i
Set obj=myp.childobjects(myo)
If obj.count>0 Then
Text_Check1=obj(0).getRoProperty("innertext")
Exit Function
Else
Text_Check1="Nothing"
Exit Function
End If
End Function
myvar=Text_Check1 "currentDisplayMSRP"
Print myvar
On Friday, September 6, 2013 10:41:51 PM UTC-5, Wajahat Awan wrote:
>
> I wanted to getroproperty of an object using function
> when i use descriptive it works fine:
>
> Set d=description.Create
> d("micclass").value="WebElement"
> d("html id").value="currentDisplayMSRP"
> Set obj=browser("title:=.*").page("title:=.*").childobjects(d)
> msgbox obj.count
> msgbox obj(0).getroproperty("innertext")
>
> But when i create a function it doesn't show the value
> Function Text_Check1(fText)
> i=0
> Set myp=Browser("title:=.*").page("title:=.*")
> Set myo=description.Create()
> myo("micclass").value="WebElement"
> myo("html idt").value=fText
> myo("index").value=i
> print myp.WebElement(myo).GetROProperty("innertext")
>
> set myp= nothing
> set myo= nothing
>
> End Function
> Text_Check1 "currentDisplayMSRP"
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
