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?
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
Hello Amitair,
Thanks for your response. if you have any further questions, please feel free to write us