Hi,
FYI, Following code, I worked for me.
On Error Resume Next
Browser("Browser_2").Page("Page").Frame("myActionIframe").SAPList("Tracking Scenario:").Click
wait 1
pEachDropdownItem = "//*[@class='lsListbox lsListbox--popup lsLCDropShadow']//*[@class='lsListbox__value']"
pTrackScenarioDropdown = "//*[@class='lsListbox lsListbox--popup lsLCDropShadow']"
Set Desc = Description.Create
Desc("micclass").value = "WebElement"
Desc("xpath").value = pEachDropdownItem
Set oObjs = Browser("Browser_2").Page("Page").Frame("myActionIframe").ChildObjects(Desc)
if Browser("Browser_2").Page("Page").Frame("myActionIframe").WebElement("xpath:=" & pTrackScenarioDropdown).Exist(0) Then
For ii = 0 To oObjs.Count Step 1
if oObjs(ii).GetROProperty("innertext") = "Manifest Query" then
print "index:" & ii & ", value: " & oObjs(ii).GetROProperty("innertext")
oObjs(ii).DoubleClick
End If
Next
end if
FYI, Following code, I worked for me.
On Error Resume Next
Browser("Browser_2").Page("Page").Frame("myActionIframe").SAPList("Tracking Scenario:").Click
wait 1
pEachDropdownItem = "//*[@class='lsListbox lsListbox--popup lsLCDropShadow']//*[@class='lsListbox__value']"
pTrackScenarioDropdown = "//*[@class='lsListbox lsListbox--popup lsLCDropShadow']"
Set Desc = Description.Create
Desc("micclass").value = "WebElement"
Desc("xpath").value = pEachDropdownItem
Set oObjs = Browser("Browser_2").Page("Page").Frame("myActionIframe").ChildObjects(Desc)
if Browser("Browser_2").Page("Page").Frame("myActionIframe").WebElement("xpath:=" & pTrackScenarioDropdown).Exist(0) Then
For ii = 0 To oObjs.Count Step 1
if oObjs(ii).GetROProperty("innertext") = "Manifest Query" then
print "index:" & ii & ", value: " & oObjs(ii).GetROProperty("innertext")
oObjs(ii).DoubleClick
End If
Next
end if