How to use methods GetItem, GetItemsCount, GetContent, GetItemProperty for swfToolbar

295

Laxmikant posted over 13 years ago

Hi,

TestAdvantage ver 2010.3,

Following code is not working

'Get the list of items in the toolbar
tlbContent = SwfWindow("Microsoft TaskVision 1.1").SwfToolBar("tbrTop").GetContent

'no. of Items in toolbar

cItems = SwfWindow("Form1").SwfToolBar("Formatting").GetItemsCount
SwfWindow("Form1").SwfToolBar("Formatting").GetItem(index)

Also not able to find out one of the toolbar button ENABLED or DISABLED property value with GetItemProperty.

As Button click Record-Playback code gives this for Toolbar

PerformToolAction tbmgrToolbar, tbmgrClick,tblbarname , btnName

There should be equivalent code for operations - GetItem(), GetItemsCount, GetContent, GetItemProperty

Pl advice on this.

Thanks,

~Laxmikant.

9298

Michael S. posted over 13 years ago in reply to Laxmikant

Laxmikant,

Let me know what you find out.
Cancel
Reply

Cancel
295

Laxmikant posted over 13 years ago in reply to Michael S.

Thanks for this code. Still, not able to find out the solution.

Keep you posted about updates.
Cancel
Reply

Cancel
9298

Michael S. posted over 13 years ago in reply to Michael S.

Was the sample script helpful? Let me know if I can be of further assistance.
Cancel
Reply

Cancel

9298

Michael S. posted over 13 years ago

Laxmikant,

Here is an example of script that you can use with the methods that you mentioned. You can run this script against the WinToolbarsBasicFeatures sample found in the samples that are installed with TestAdvantage.


'Example of GetItem method
Dim openItem
openItem = SwfWindow("Infragistics UltraWinToolbars").SwfToolbar("_Form1_Toolbars_Dock_Area_Top").GetItem("Editors", 1)
MSGBOX("GetItem:  " & openItem)
'Example of GetItemsCount method
Dim editorItemsCount
editorItemsCount = SwfWindow("Infragistics UltraWinToolbars").SwfToolbar("_Form1_Toolbars_Dock_Area_Top").GetItemsCount("Editors")
MSGBOX("GetItemsCount:  " & editorItemsCount)
'Example of GetContent method
Dim editorContent
editorContent = SwfWindow("Infragistics UltraWinToolbars").SwfToolbar("_Form1_Toolbars_Dock_Area_Top").GetContent("Editors")
MSGBOX("GetContent:  " & vbCrLf & editorContent)
'Example of GetItemProperty
Dim editorItemProperty
editorItemProperty = SwfWindow("Infragistics UltraWinToolbars").SwfToolbar("_Form1_Toolbars_Dock_Area_Top").GetItemProperty("Editors", 1, "Enabled")
MSGBOX("GetItemProperty:  "  & editorItemProperty)

I hope you find this helpful. Let me know if you have further questions.

Michael S.