[原创] QTP获取下拉框的值

[复制链接]

104~牛牛

TA的每日心情

	慵懒 2022-7-23 11:23

签到天数: 316 天

连续签到: 1 天

[LV.8]测试军长

电梯直达

1^#

发表于 2017-7-5 14:01:21 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

'带参数的随机数获取函数
Function getnumber(i)
Randomize
getnumber=RandomNumber(0,i)
End Function
'获取下拉列表值得个数
  intState=Browser("operator").Page("index").Frame("内容栏").WebList("交易状态").Object.options.length
  ''调用随机函数，获取一个整数
  intSNum=getnumber( intState-1)
'方式一
  '获取下拉列表值对应的文本信息
' strStateText=Browser("operator").Page("index").Frame("内容栏").WebList("交易状态").Object.options.item(intSNum).text
' Browser("operator").Page("index").Frame("内容栏").WebList("交易状态").Select strStateText
'方式二
  Browser("operator").Page("index").Frame("内容栏").WebList("交易状态").Select "#"&intSNum