sastowe
14 years agoSuper Contributor
FindAllChildren in TC 7.20.562.5
For the moment I am using 7.2 etc. TC 7.5 and beyond crashes my app under test. As soon as this release ships I will be submitting a ticket to SmartBear etc. But I recreating projects created in TC 8 back to TC7.2 so that I can run them.
I have this
aobj = frmRules.FindAllChildren("WndClass", "XTPDockingPaneTabbedContainer")
For j = 0 to UBound(aobj)
if aobj(j).WaitVBObject("picTesting", 1000).Exists then
set pic = aobj(j).VBObject("picTesting")
set tree = aobj(j).VBObject("picTesting").TabList("XTPDockingPaneTabbedContainer", 4).VBObject("picTestingTreeView").Window("AfxOleControl42", "", 1).VBObject("TreeViewTesting")
Exit for
bFound = true
end if
Next
That used to work in TC 8 and is not working in TC 7.2. When I debug, my array has 4 elements in it, just not the one I am looking for. My Object Browser clearly shows 5 objects of that class type. The other 4 display contiguous with each other, the one I am seeking is above.
Is there a bug in this method? Is there another way to get at this object in TC7.2? Thanks
S
I have this
aobj = frmRules.FindAllChildren("WndClass", "XTPDockingPaneTabbedContainer")
For j = 0 to UBound(aobj)
if aobj(j).WaitVBObject("picTesting", 1000).Exists then
set pic = aobj(j).VBObject("picTesting")
set tree = aobj(j).VBObject("picTesting").TabList("XTPDockingPaneTabbedContainer", 4).VBObject("picTestingTreeView").Window("AfxOleControl42", "", 1).VBObject("TreeViewTesting")
Exit for
bFound = true
end if
Next
That used to work in TC 8 and is not working in TC 7.2. When I debug, my array has 4 elements in it, just not the one I am looking for. My Object Browser clearly shows 5 objects of that class type. The other 4 display contiguous with each other, the one I am seeking is above.
Is there a bug in this method? Is there another way to get at this object in TC7.2? Thanks
S