Hi this is Adi
I had installed test advantage. But the problem i am facing is that i am unable to expand the ultra explorer bar groups.Following is my code Dim groupsSet groups = SwfWindow("APPPIO").SwfWindow("Create Doc").SwfObject("ultraExplorerBarEm").Object.Groupsmsgbox (groups.count)For i = 0 to 8msgbox ("Text --> " & groups.Item( i ).Text)'groups.ExpandAll (groups.Item( i ).Index) This line does not show any error but the method is not executed and groups are not expanded
NextAbove code shows me the captions of the collection of groups but i am unable to expand them by default when the form is loaded. I wiil reallybe obliged if anyone assist me ASAP.Thanks alot in advance
Dear Ammar
Thanks for your assistance and concerns. Actually methods like expandgroup, collapse group, select item are recon by QTP only when the configration of test advantage is done properly. I had installed the patches
on my machine and now QTP is recording the infragistic control as supported by test advantage by methods (collapse group, expand group etc) instead of mouse cordinates.I just wanted to assure the beginers that if anyone is using infragistic controls then simply install the above mentioned patches from the following link
http://support.openview.hp.com/selfsolve/patches..
Moreover i had used DP for script generation instead of recording, just embed your test cases in VBscript and divide your requirements in small chunks..
Adi,
Inside your loop you need to use a method called "ExpandGroup" off the ExplorerBar test object as follow:
replace the line "groups.ExpandAll ... " with
SwfWindow("APPPIO").SwfWindow("Create Doc").SwfObject("ultraExplorerBarEm").ExpandGroup(groups.Item(i))
Hope that will help,
Ammar