如何判断菜单中的关于是否是可用的

htot05

刚刚我试了一下,因为LZ的WinMenu("ContextMenu")是合成了"用户(U),设置(S)",两个menu,QTP根本就找不到"关于(A)"这个子菜单中的选项,LZ可以用这种方法取到它的属性:

menupath = Dialog("VCM").WinMenu("ContextMenu").BuildMenuPath("设置(S)","关于(A)")
b= Dialog("VCM").WinMenu("ContextMenu").GetItemProperty(menupath,"Enabled")
msgbox b

经测试有效......

wssgily

原帖由 htot05 于 2007-2-14 10:53 发表
刚刚我试了一下,因为LZ的WinMenu("ContextMenu")是合成了"用户(U),设置(S)",两个menu,QTP根本就找不到"关于(A)"这个子菜单中的选项,LZ可以用这种方法取到它的属性:

menupath  ...

强！BuildMenuPath这个方法也能找到，看到看的够细致的！

walker1020

向htot05 学习！测试人员就应该要仔细认真、会利用各种方法和资源去解决问题。

xp20683

我试了一下,是可以通过,但是有个问提,如果是右键任务栏托盘区图标,也是弹出winmenu,我用
menupath= Dialog("VCM").WinMenu("ContextMenu").BuildMenuPath("恢复(R)")
b=Dialog("VCM").WinMenu("ContextMenu").GetItemProperty(menupath,"Enabled")
msgbox b
怎么到这边b=Dialog("VCM").WinMenu("ContextMenu").GetItemProperty(menupath,"Enabled")还是通不过啊

xp20683

我知道什么怎么原因了,不是说上面那程序不能通过,原因是
我的程序菜单设置(S)中有"关于(A)",点击后就弹出关于对话框,右键系统托盘区也有图标中的关于,此时就处于不能使用状态
Dialog("VCM").WinMenu("Menu").Select "设置(S);关于(A)"
r=Window("Window").WinToolbar("通知区域").GetItemsCount
for  i=1 to  r
        a=Window("Window").WinToolbar("通知区域").GetItemProperty(i,"name")
        If   a="VCM 上线: 192.168.0.100" Then
           Window("Window").WinToolbar("通知区域").Press i,micRightBtn  
            menupath= Dialog("VCM").WinMenu("ContextMenu_2").BuildMenuPath("关于(R)")
            b=Dialog("VCM").WinMenu("ContextMenu_2").GetItemProperty(menupath,"Enabled")
            msgbox b
            If b="true" Then
           reporter.ReportEvent 1,"关于项应是不可用的","failed"
         DataTable.GetSheet("result").GetParameter("pass").value=0
         DataTable.GetSheet("result").GetParameter("resultmsg").value="关于项应是不可用的"
            End If
               Exit for
      end if
做到 b=Dialog("VCM").WinMenu("ContextMenu_2").GetItemProperty(menupath,"Enabled")
就错误