Facebook

Course Name Start Date Time Duration Registration Link
No Training Programs Scheduled ClickHere to Contact
Please mail To sudhakar@qtpsudhakar.com to Register for any training

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