Forums Test Automation for Micro Focus UFT: Windows Forms
Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
Close
Brian
275
How to get the menu items for lower level menu
posted

Good afternoon,

I have a menu which has child menus that I have already built a functio work with. I now need to go 1 more level deep. Below is the code for the function and the calling code. I need some help on line 183 which is the last code to get the 3rd level menu.

Menu / Item 1 works with existing funciton

Menu / Item 1 / SubItem 1 I cannot get past the error on line 183 see code below.

Regards,

Brian

Set objectMainPage = SwfWindow("Summit FT - Bond Definition")

'Process the selection of  Bond Definiton, Analytics, Details... from the menu
'Build up the menu code here to select from the menus
Set objectToolBar =objectMainPage.SwfToolbar("_toolbarsDockAreaTop")
specifiedToolBar = "Desktop Menu"
specfiiedToolBarMenuItem = "Bond Definition" 'This is what the text that you see is without the shortcut keybon
specifiedToolBarSubMenu = "Validate" 'Text is case sensitive
specifiedToolBarSubSubMenu = "Details..." 'Text is case sensitive
nameToolBar = "" 'Toolbar name
nameToolBarMenu = "" 'Toolbar main menu item
nameToolBarMenuSubMenu = "" 'The submenu name
nameToolBarMenuSubSubMenu = "" 'The submenu name
objectToolBarSubSubmenu = "" 'The object to recieve the subsubmenu object for validation of enabled etc properties in the calling script
reporterDetailsFuncSelectToolBar = ""
'Get the toolbar text/name with the toolbarbutton text/name
eventCodeFuncSelectToolBarMenu = CommonTMSSelectToolBarMenuItemTwoLevels(objectToolBar, specifiedToolBar, specfiiedToolBarMenuItem, specifiedToolBarSubMenu, specifiedToolBarSubSubMenu, nameToolBar, nameTBarItem, nameToolBarMenuSubMenu, nameToolBarMenuSubSubMenu, objectToolBarSubSubmenu, reporterDetailsFuncSelectToolBar)
If  eventCodeFuncSelectToolBarMenu = 0 Then
 'Click on the menu item by opening the dropdown and then selecting the submenu
 objectToolBar.DropdownToolbarTool specifiedToolBar,nameTBarItem
 'Click the submenu item right afterwards or it will not work ***No Steping Though This one
          'DropdownMenuTool "Desktop Menu,186:EntityView","197:Analytics"
 objectToolBar.DropdownMenuTool nameToolBar & "," &  nameTBarItem,  nameToolBarMenuSubMenu
 'Click the subsubmenu item right afterwards or it will not work ***No Steping Though This one
          'ClickMenuTool "Desktop Menu,186:EntityView,197:Analytics","208:Detail"
 objectToolBar.ClickMenuTool nameToolBar & "," &  nameTBarItem,  nameToolBarMenuSubSubMenu
 'Check if the tab for the main page has the Asset Details Tab
Else
 eventCode = 1
 eventLoopCode = 1
 reporterDetails = reporterDetails & reporterDetailsFuncSelectToolBar
End If

' @Function Name  CommonTMSSelectToolBarMenuItemTwoLevels
' @Description  Select the submenu item from the menu item. We are matching based on the text displayed for the menu item not the recorded values
' *******NOTE: you will need to get the toolbar name by recording the selection of a buttom and getting the toolbar name
' *****************Example
' SwfWindow("Summit FT - Calendar Definition").SwfToolbar("_toolbarsDockAreaTop").DropdownToolbarTool "Desktop Menu","57:EntityView"
                                             'DropdownMenuTool "Desktop Menu,186:EntityView","197:Analytics"
                                             'ClickMenuTool "Desktop Menu,186:EntityView,197:Analytics","208:Detail"
' Toolbar =  "Desktop Menu"
'ToolbarMenu= "EntityView"   ++++++++++++ We have replaced the compare based on the visible text to the user instead of the Key which is EntityView
' ToolbarSubMenu = "Open"

'********************Menu Submenu Selection
' Example if nameTBarMenu = "File" &  nameTBarSubMenu "Open" we will open the dropdown Menu for File and then select the submenu Open item
' @Documentation <objectPageToolBar> the toolbar control in the object repository for the page
' @Documentation <nameSpecifiedToolBar> the name of the toolbar to find
' @Documentation <nameSpecifiedToolBarButton> the name of the toolbar button to find
' Returns:
'  <nameTBar> the toolbar text/name for selecting the button
'  <nameTBarItem> the toolbar button text/name for selecting the button
'  <objectTBarSubMenu> the menu object found for use in the calling script to check enabled and other status.
'  <resultDetails> the details regarding the function
'  <resultCode> the result code for pass or fail
'  Otherwise, the value of the NoData environment valueJim
' Created: 04/25/2011 BLW
' Last Updated:
Function  CommonTMSSelectToolBarMenuItemTwoLevels(byVal objectPageToolBar, byVal nameSpecifiedToolBar, byRef nameSpecifiedToolBarMenu, ByRef nameSpecifiedToolBarSubMenu, ByRef nameSpecifiedToolBarSubSubMenu, byRef nameTBar, byRef nameTBarMenu, byRef nameTBarSubMenu, byRef nameTBarSubSubMenu, ByRef objectTBarSubSubMenu, byRef resultDetails)
' &&&&&&&&&&&& Note the values in the menu and compares are text and Case Senseitive. please insure you send in the value to match the menu item
 resultCode = 2
 countToolBar = 0
 booleanToolBarFound = False
 booleanToolBarMenuFound = False
 booleanToolBarSubMenuFound = False
 booleanToolBarSubSubMenuFound = False
 objectTBarManager = "" 'Temp destroy on exit
 objectTBar = "" 'Temp destroy on exit
 'Set the toolbar manager based on the control from the page
 Set objectTBarManager = objectPageToolBar.Object.ToolbarsManager.Toolbars
 countToolBar = objectTBarManager.Count
 If  countToolBar > 0Then
  For loopToolbars = 0 to countToolBar - 1
   nameTBar = Trim(objectTBarManager.GetItem(loopToolbars).Key)
   If nameTBar =  nameSpecifiedToolBar Then
    Set objectTBar =  objectTBarManager.GetItem(loopToolbars)
    booleanToolBarFound = True
    Exit For
   End If
  Next
  If booleanToolBarFound = False Then
   resultCode = 1
   resultDetails = resultDetails & " WE DID NOT FIND toolbar of: " & nameSpecifiedToolBar & " WE CANNOT SEARCH FOR THE MENU."
  End If
 Else
  resultCode = 1
  resultDetails = resultDetails & " WE DID NOT FIND ANY TOOLBARS."
 End If
 'Start looking for the menu if the assigned toolbar was found
 If booleanToolBarFound = True Then
  'See if we can get the menu next
  countToolBarMenus = objectTBar.Tools.Count
  If  countToolBarMenus > 0 Then
   'Check the button and see if we can find the one we specified
   For loopMenus = 0 to countToolBarMenus -1
    inStringToolName= ""
    textTBarItem = ""
    nameTBarMenu = objectTBar.Tools.GetItem(loopMenus).Key
    textTBarMenu = CStr(objectTBar.Tools.GetItem(loopMenus).CaptionResolved)
    stringHotKey ="&"
    'Strip out the & key for the hotkey in the menu item
    instringLoc = InStr(1, textTBarMenu, stringHotKey)
    lenString = Len(textTBarMenu)
    tempStringLeft = ""
    tempStringRight = ""
    Select Case instringLoc
     Case 0
      'Do nothing there is no hotkey specified for this item
     Case 1
      'Remove the & from the front of the text
      textTBarMenu = Right(textTBarMenu, lenString - instringLoc)
     Case Else
      'Build the string by gettting what is left of the & and then what is right of the &
      tempStringLeft = Left(textTBarMenu,instringLoc - 1)
      tempStringRight = Right(textTBarMenu, lenString - instringLoc)
      textTBarMenu = tempStringLeft & tempStringRight
    End Select
    'Check if the displayed text matches the requrested menu item
    If  textTBarMenu = nameSpecifiedToolBarMenu Then
     booleanToolBarMenuFound = True
     Set objectTBarMenu = objectTBar.Tools.GetItem(loopMenus)
     Exit For
    End If
   Next
   If  booleanToolBarMenuFound = False Then
    resultCode = 1
    resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " BUTthe menu item of: " & nameSpecifiedToolBarMenu & " was not found."
   End If
  Else
   resultCode = 1
   resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " BUT NO MENUS WERE FOUND."
  End If
 End If 'Tool Bar found and looking for the menu
 'Start Looking for the submenu item if menu found
 If booleanToolBarMenuFound = True Then
  'See if the menu item has any submenu items
  countToolBarSubMenus = objectTBarMenu.Tools.Count
  If  countToolBarSubMenus > 0 Then
   'Check the button and see if we can find the one we specified
   For loopSubMenus = 0 to countToolBarSubMenus -1
    nameTBarSubMenu = objectTBarMenu.Tools.GetItem(loopSubMenus).Key
    textTBarSubMenu = CStr(objectTBarMenu.Tools.GetItem(loopSubMenus).CaptionResolved)
    stringHotKey ="&"
    'Strip out the & key for the hotkey in the menu item
    instringLoc = InStr(1, textTBarSubMenu, stringHotKey)
    lenString = Len(textTBarSubMenu)
    tempStringLeft = ""
    tempStringRight = ""
    'Use case statement here to work with 0, 1, or else
    Select Case instringLoc
     Case 0
       'Do nothing there is no hotkey
     Case 1
      'Remove the & from the front of the text
      textTBarSubMenu = Right(textTBarSubMenu, lenString - instringLoc)
     Case Else
      'Build the string by gettting what is left of the & and then what is right of the &
      tempStringLeft = Left(textTBarSubMenu,instringLoc - 1)
      tempStringRight = Right(textTBarSubMenu, lenString - instringLoc)
      textTBarSubMenu = tempStringLeft & tempStringRight
    End Select
    ''Check if the displayed text matches the requrested submenu item
    If  Cstr(trim(textTBarSubMenu)) = Cstr(trim(nameSpecifiedToolBarSubMenu)) Then
     Set objectTBarSubMenu = objectTBarMenu.Tools.GetItem(loopSubMenus) 'Set the object only if correct object is found
     booleanToolBarSubMenuFound = True
     Exit For
    End If
   Next
   If booleanToolBarSubMenuFound = False Then
    resultCode = 1
    resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " the toolbar contained the menu of: " & nameSpecifiedToolBarMenu &_
     " BUT the submenu of: " & namespecifiedToolBarSubMenu & " WAS NOT DISPLAYED. "
   End If
  Else
   resultCode = 1
   resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " the toolbar contained the menu of: " & nameSpecifiedToolBarMenu &_
    "however, NO SUBMENU ITEMS WERE AVAILABLE."
  End If
 End If
 'Start Looking for the SubSubMenu if we found the SubMenu item
 If booleanToolBarSubMenuFound = True Then
  'See if the menu item has any submenu items
  countToolBarSubSubMenus = objectTBarSubMenu.Tools.Count 'Error Object doesn't support this property or method: 'objectTBarSubMenu.Tools'  Line (183): "countToolBarSubSubMenus = objectTBarSubMenu.Tools.Count".
  If  countToolBarSubSubMenus  > 0 Then
   'Check the button and see if we can find the one we specified
   For loopSubSubMenus = 0 to countToolBarSubSubMenus -1
    nameTBarSubSubMenu = objectTBarSubMenu.Tools.GetItem(loopSubSubMenus).Key
    textTBarSubSubMenu = CStr(objectTBarSubMenu.Tools.GetItem(loopSubSubMenus).CaptionResolved)
    stringHotKey ="&"
    'Strip out the & key for the hotkey in the menu item
    instringLoc = InStr(1, textTBarSubMenu, stringHotKey)
    lenString = Len(textTBarSubMenu)
    tempStringLeft = ""
    tempStringRight = ""
    'Use case statement here to work with 0, 1, or else
    Select Case instringLoc
     Case 0
       'Do nothing there is no hotkey
     Case 1
      'Remove the & from the front of the text
      textTBarSubSubMenu = Right(textTBarSubSubMenu, lenString - instringLoc)
     Case Else
      'Build the string by gettting what is left of the & and then what is right of the &
      tempStringLeft = Left(textTBarSubSubMenu,instringLoc - 1)
      tempStringRight = Right(textTBarSubSubMenu, lenString - instringLoc)
      textTBarSubSubMenu = tempStringLeft & tempStringRight
    End Select
    ''Check if the displayed text matches the requrested submenu item
    If  Cstr(trim(textTBarSubSubMenu)) = Cstr(trim(nameSpecifiedToolBarSubSubMenu)) Then
     Set objectTBarSubSubMenu = objectTBarSubMenu.Tools.GetItem(loopSubSubMenus) 'Set the object only if correct object is found
     booleanToolBarSubSubMenuFound = True
     Exit For
    End If
   Next
   If booleanToolBarSubSubMenuFound = True Then
    'Report we found the submenu item
    resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " the toolbar contained the menu of: " & nameSpecifiedToolBarMenu &_
     "and the submenu of: " & namespecifiedToolBarSubMenu & " but the sub submenu of: " & nameSpecifiedToolBarSubSubMenu & " WAS DISPLAYED. "
   Else
    resultCode = 1
    resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " the toolbar contained the menu of: " & nameSpecifiedToolBarMenu &_
     "and the submenu of: " & namespecifiedToolBarSubMenu & " but the sub submenu of: " & nameSpecifiedToolBarSubSubMenu & " WAS NOT DISPLAYED. "
   End If
  Else
   resultCode = 1
   resultDetails = resultDetails & " We found the toolbar of: " & nameSpecifiedToolBar & " the toolbar contained the menu of: " & nameSpecifiedToolBarMenu &_
    "and the submenu of: " & namespecifiedToolBarSubMenu & "however, NO SUB SUBMENU ITEMS WERE AVAILABLE."
  End If
 End If

 Set objectTBarManager = Nothing 'Temp destroy on exit
 Set objectTBar = Nothing 'Temp destroy on exit
 Set objectTBarMenu = Nothing 'Temp destroy on exit
 CommonTMSSelectToolBarMenuItemTwoLevels = resultCode
End Function

 

Parents
  • 7695
    Offline posted

    It's hard to say specifically what's wrong with it by looking at the code. But what I can say is, likely the Tool it's interacting with at that moment is not what you believe it is, either it's null, a tool that doesn't have subtools, or is merged from a parent mdi toolbar, and therefore is just a placeholder tool, that you need to look at the UnderlyingTool property to interact with it.  Start with eliminating the excess. When it hits the error at that line, look at the values of all the pertinent local variables, to get your bearings of is it where you believe it is, and is the tool you are interacting with is the type of tool that you expected.

     

Reply Children