WinMenu使用描述性编程

dreamsea123

WinMenu的描述性编程需要一点小技巧

以flight4.exe中新订一张票为例使用描述性编程



Function Order_Ticket()

Set ōrderPage = Descrīption.Create()
OrderPage("Class Name").Value= "Window"   '设置页面类
OrderPage("Regexpwndtitle").Value="Flight Reservation"
Set DateForm =Descrīption.Create()
DateForm("Class Name").Value="ActiveX"   ''设置ActiveX的属性
DateForm("acx_name").Value="MaskEdBox"  '描述对象名
Set  FromCity = Descrīption.Create()
FromCity ("Class Name").Value="WinComboBox"
FromCity("attached text").Value="Fly From:"
Window(OrderPage).Restore      '还原订票系统   

Window(OrderPage).ActiveX(DateForm).Type "081229"   '输入订票日期
Window(OrderPage).WinComboBox( FromCity).Select "London"
Window(OrderPage).WinComboBox("attached text:=Fly To:").Select "Denver"

''Window(OrderPage).ActiveX(DateForm).Type Parameter("myDate")   '设置参数化订票日期
''Window(OrderPage).WinComboBox( FromCity).Select Parameter("myFrom")' 设置参数化“出发地”
'''Window(OrderPage).WinComboBox("attached text:=Fly To:").Select Parameter("myTo")  '设置参数化“目的地”

Window(OrderPage).WinButton("text:= flight").Click  '查看机票信息
Window(OrderPage).Dialog("text:=Flights Table","Class Name:=Dialog").WinButton("text:=ok").Click   '关闭机票信息窗口
Window(OrderPage).WinEdit("Class Name:=WinEdit","attached text:=Name:").Set"zhangfei" '订票人
Dim rage,i
i=RandomNumber(0,2)
Select Case i
Case "0"
rage="First"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set

Case "1"
rage="Business"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
Case "2"
  rage="Economy"
  print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
End Select  '选择机舱
Window(OrderPage).WinButton("Class Name:=WinButton","text:=&Insert Order").Click
Window(OrderPage).WinMenu("menuobjtype:=&2").Select "File;New Order"　'再新订一张票，描述性编程
End Function

Call Order_Ticket()



WinMemu的描述性编程：WinMenu("menuobjtype:=&2")超级简单，就是需要一点技巧

lingxin5013

呵呵 你还要加油啊
现在论坛QTP进展已经不在你那拉

kaidong12

WinMenu("menuobjtype:=&2") 对吗？