QTP测试之With秒用

如果代码是

Browser("XXX").Page("XXX").Frame("选择人员").Image("按员工ID查找").Click : wait 0,500
Browser("XXX").Page("XXX").Frame("选择人员").WebEdit("员工ID").Set "XXX"
Browser("XXX").Page("XXX").Frame("选择人员").Link("查询").Click : wait 2
Browser("XXX").Page("XXX").Frame("选择人员").WebElement("html tag:=SPAN","innertext:=XXX","index:=0").Click : wait 0,500
Browser("XXX").Page("XXX").Frame("选择人员").WebElement("html tag:=SPAN","innertext:=XXX","index:=0").Click : wait 0,500
Browser("XXX").Page("XXX").Frame("选择人员") .Link("确定").Click

 这样，会不会感觉很乱 而且公共部分就不能用别的代替吗？当然是否定的可以用with提高代码可读性写成这样会不会好点呢；

With Browser("XXX").Page("XXX").Frame("选择人员")
   .Image("按员工ID查找").Click : wait 0,500
   .WebEdit("员工ID").Set"XXX"
   .Link("查询").Click : wait 2
   .WebElement("html tag:=SPAN","innertext:=XXX","index:=0").Click : wait 0,500
   .WebElement("html tag:=SPAN","innertext:=XXX","index:=0").Click : wait 0,500
   .Link("确定").Click
   wait 2
  End With 
 

公共部分就被提炼出来了；虽然功能还是一样；

原文：http://www.cnblogs.com/marcello/p/4501546.html