QTP参数化下拉框

场景：

在测试下拉框列表的值的时候，我们可以用随机值方法，可任选其一值，以QTP自带的飞机订票系统为例子。

(1):

dim get_Flyfrom

get_Flyfrom=window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
Window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,get_Flyfrom-1)

(2):

get_Flyfrom=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")
Window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,get_Flyfrom-1)

2011-11-25