Automation of the .NET ToolbarsManager

If you use QTP for automating .NET apps and the app is built using infragistics, you know that it is not easy to use the .NET spy . After a lot of effort I was able to find solution to perform operations on a infragistics toolbar where the swftoobar object was getting identified as a swfobject:

Here is the code how to work with .net toolbarsmanager:

set cToolbars = SwfWindow("").SwfObject("").Object.ToolbarsManager.Toolbars
Set oMyTool = GetToolFromToolbar(cToolbars,"", "")
omyTool. 'Operation you want

Function GetToolFromToolbar(byref cToolbars, sToolbarKey, sToolKey)
   Dim oToolbar ' Toolbar object
   Dim bToolbarFound
   Dim bToolFound

   bToolbarFound = false
   bToolFound = false

   For x = 0 to cToolbars.Count - 1
      If sToolbarKey = cToolbars.GetItem(x).Key Then
          set oToolbar = cToolbars.GetItem(x)
          bToolbarFound = true
          Exit for
      End If
   Next

   If bToolbarFound = true Then
       For x = 0 to oToolbar.Tools.Count - 1
           If sToolKey = oToolbar.Tools.GetItem(x).Key Then
                 Set GetToolFromToolbar = oToolbar.Tools.GetItem(x)
                 bToolFound = true
                 Exit for
           End If
       Next

       If bToolFound = false Then
       msgbox"Tool Not Found"
    End If
  End If
End Function

And if you are lucky that the toolbar is recognized as swftoolbar then its easier:

set obj = SwfWindow("SwfWindow").SwfToolbar("SwfToolbar").Object.Buttons
msgbox obj.Count
For i = 1 to obj.Count   
    msgbox obj.Item(i).tooltiptext // or any other operation
Next