QTP之WinMenu对象的测试

      WinMenu对象是指菜单控件，常用的测试操作是Select方法，用来模拟用户选择某个菜单项。可以使用BuildMenuPath方法构建菜单路径
如：MenuPath = object.WinMenu("Menu").BulidMenuPath("<item1>;<item12>")
      object.WinMenu("Menu").Select MenuPath
也可以使用Index来指定菜单项：
      MenuPath =object.WinMenu("Menu").BulidMenuPath(1,2)
      object.WinMenu("Menu").Select MenuPath

      以下脚本通过BuildMenuPath(1,1)构建计数器程序中的【编辑】菜单项下的【复制】，通过BuildMenuPath(1,2)构建计数器程序中的【编辑】菜单项下的【粘贴】。

SystemUtil.CloseProcessByName "calc.exe"
Systemutil.Run "calc.exe", "","","","1"

rem 创建描述
Set WinDescription = Description.Create
       WinDescription("regexpwndtitle").value ="计算器"

Set MenuDescription = Description.Create
   MenuDescription("menuobjtype").value ="2"

Call calc("1")
Call calc("2")
rem 使用BuildMenuPath方法构建菜单路径
MenuPath=Window(WinDescription).WinMenu(MenuDescription).BuildMenuPath(1,1)
Window(WinDescription).WinMenu(MenuDescription).Select MenuPath
Call calc("\+")
MenuPath2=Window(WinDescription).WinMenu(MenuDescription).BuildMenuPath(1,2)
Window(WinDescription).WinMenu(MenuDescription).Select MenuPath2
Call calc("\=")

rem 定义输入函数
function calc(input)
   Set WinDescription = Description.Create
       WinDescription("regexpwndtitle").value ="计算器"
   Set inputDescription = Description.Create
      inputDescription("text").value =input
   Window(WinDescription).WinButton(inputDescription).Click
End function

      以上脚本可以适应计算器程序中的各种计算，注意：calc() 函数的入参,如执行【+】操作，需要进行正则表达式转换。