Facebook

For any corporate training requirements Please mail To sudhakar@qtpsudhakar.com
Course Name Date Time Duration Type Location
WhatsApp to 91-8328152362 for address details of AnyTechLabs
Selenium + Appium 27th February 2019 7.00 AM IST to 8:45 AM IST 45 Days Class Room + Online AnyTechLabs
Selenium + Appium 9th March 2019 9.00 AM IST to 2.00 PM IST 5 WeekEnds Class Room + Online AnyTechLabs

A book "Cracking the QTP interview" authored by Sudhakar.Read More. Buy From FlipKart

Monday, May 4, 2009

Menu Object

Menu object applies only window based applications. Default Method For Menu is "Select"
Ex:
Window("Notepad").WinMenu("Menu").Select "File;New Ctrl+N"

Can we do anything more with menu's?
 1. Get Menu list from Application
 2. Get Menu Items from Menu
'Get menu list from application
Dim cnt
Dim n
Dim iPath
cnt = Window("Notepad").WinMenu("Menu").GetItemProperty("", "SubMenuCount") 'Get total Menus count From application
For n = 1 To cnt 
iPath = Window("Notepad").WinMenu("Menu").BuildMenuPath(itemPath, n) 
msgbox Window("Notepad").WinMenu("Menu").GetItemProperty(iPath, "Label")
Next
'Get menu Items from menu
Dim cnt
Dim n
Dim iPath
cnt = Window("Notepad").WinMenu("Menu").GetItemProperty("File", "SubMenuCount") 'Get menu items count in "File" Menu
For n = 1 To cnt 
iPath = Window("Notepad").WinMenu("Menu").BuildMenuPath("File", n) 
msgbox Window("Notepad").WinMenu("Menu").GetItemProperty(iPath, "Label")
Next

No comments :

Post a Comment