QTP描述性程式設計-遍歷頁面多個物件

星辰海閣發表於2012-12-20
'描述頁面物件 -- WebEdit
Set all_oEdit=Description.Create()
all_oEdit("micClass").Value="WebEdit"
Set all_oEdits=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)

'遍歷頁面中的WebEdit物件,找到一個就輸入一串指定的字串
for each oEdit in all_oEdits

      oEdit.set "QTP自動化測試"

next

'最後釋放所有設定的物件
Set oEdit=Nothing
Set all_oEdits=Nothing
Set all_oEdit=Nothing

相關文章