Facebook

For any corporate training requirements Please mail To sudhakar@qtpsudhakar.com
New Schedule in MindQ Systems, Madhapur By SUDHAKAR
Course Name Date Time Duration Type Branch
UFT + UFTPro 20th September 2017 7.30 AM - 9.00 AM IST 25Days Classroom + Online Hitech City
Selenium+Appium 4th October 2017 4.30 PM - 6.00 PM IST 40Days Online -

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