声明：本空间大部分博客信息为寻找问题时在网上拷贝或转载，在此博客中做个记录，方便自己也方便有类似问题的朋友，因原出处已不好查询，如有侵权，请发邮件表明文章和原出处地址，本人一定会在文章中注明。谢谢。

WinMenu如何获取所有菜单项？

上一篇 / 下一篇 2012-10-11 10:43:20 / 个人分类：QTP自动化测试

Set obj_Menu = VbWindow("frm_main").WinMenu("Menu")

GetNamesRec "", obj_Menu

' Open All Menus and Sub-Menus and Write the Menu Names in the Results

Function GetNamesRec(itemPath, menuObj)

     ret = 0

     lbl = menuObj.GetItemProperty(itemPath, "Label")

     Reporter.ReportEvent 0, itemPath & " label", lbl

     ret = menuObj.GetItemProperty(itemPath, "HasSubMenu")

     If ret Then

        cnt = menuObj.GetItemProperty(itemPath, "SubMenuCount")

        Reporter.ReportEvent 0, itemPath & " sub-menu items", cnt

        For n = 1 To cnt

           Path = menuObj.BuildMenuPath(itemPath, n)

           GetNamesRec Path, menuObj

        Next

    End If

End Function

收藏举报

TAG:

查看全部评论