Hello guys,
Could you please suggest, how can I get access to the toolbar item? Please see below.
In general I need to check if this item sticked or not.
And also, could you please share the link to the PerformToolAction object description (methods, etc)
Thank you in advance!
Hi,
I try to reproduce your scenario. Could you please take a look at the provided code below and attached video file. Let me know if you have any questions.
SwfWindow("Form1").Move 478,148SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "ButtonTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "StateButtonTool1" SwfWindow("Form1").Move 477,300SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "ButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "StateButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "ButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "ButtonTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "StateButtonTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "ButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "StateButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "StateButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrDropDown, "UltraToolbar1", "PopupMenuTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrMenu, tbmgrClick, "UltraToolbar1,PopupMenuTool1", "StateButtonTool2" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "StateButtonTool1" SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top").PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "ButtonTool1" SwfWindow("Form1").Close
Video:
Thank you for your response. It is clear how to press menu item. The thing that I trying to understend is - how could I check if the menu item is sticked or not. For example, on very schematic level like this: if Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 SwfWindow("Form1").SwfObject("_Form1_Toolbars_Dock_Area_Top") .PerformToolAction tbmgrToolbar, tbmgrClick, "UltraToolbar1", "StateButtonTool1".sticked then do smth else so smth end if
If you want to know if the StateButtonTool is checked, maybe you could try :
SwfWindow("Form1").SwfToolbar("_Form1_Toolbars_Dock_Area_Top").GetItemProperty "UltraToolbar1", "StateButtonTool1", "Checked" in your If condition
Let me know if you have any further questions
Regards
I am having trouble with the PerformToolAction not playing correctly, is there a place where all the member methods are explained?
Hello Amitair,
Thanks for your response. if you have any further questions, please feel free to write us
Thank you, the code QTP recorded was incorrect, using the help file and playing around with TestAdvantage.QTPServer.TypeInformation.xml to determine the write consts, I was finally able to select