QTP -描述性编程实现Browser Link的highlight

  

        之前自己学习，一直没有意识到browser link 还有highlight这个属性，今天公司内部training，提到了link的highlight，自己回去google下，发现果真有这种属性，因此自己做了个简单的例子，看一下link highlight的效果。代码如下：

            Systemutil.Run "C:/Program Files/Internet Explorer/iexplore.exe"

Browser("title:=about:blank").Page("url:=about:blank").Sync

Browser("title:=about:blank").Navigate "http://www.baidu.com/"

Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").link("text:=空间").highlight

以上代码主要是实现了”空间”这个链接高亮显示。效果图如下：

 

如果要实现baidu首页各个链接依次高亮的功能，则需要使用到动态描述性编程，用到Description对象，关于动态描述性编程，之前一篇文章已经作过介绍，不再赘述，代码如下：

            Systemutil.Run "C:/Program Files/Internet Explorer/iexplore.exe"

Browser("title:=about:blank").Page("url:=about:blank").Sync

Browser("title:=about:blank").Navigate "http://www.baidu.com/"

Set Mydes=Description.Create()

Mydes("html tag").value="A"

Set LinkName=Browser("title:=百度一下，你就知道").Page("title:=百度一下，你就知道").ChildObjects(Mydes)

LinkCount=LinkName.count

For i=0 to LinkCount-1

                                LinkName(i).highlight

Next