QTP - 如何使用函数将值传递给对象的属性值？

Question

假设需要如下创建一个函数：

Function CheckLink(name1,href1) 
    if Browser(..).Page(..).Link("name:=name1","href:=href1").Exist Then 
    Print "URL Exists" 
End Function 

我有一个7-8的链接来测试，其中只有这些值的变化。

但上面的函数抛出错误，因为值name1和href1仅被视为name1和href1，它们的值不会被传递给函数。

请建议什么才是写出上述代码的正确方法。

谢谢。

Answer 1

如何

Function CheckLink(name1,href1) 
    if Browser(..).Page(..).Link("name:=" & name1,"href:=" & href1).Exist Then 
    Print "URL Exists" 
End Function 

或者，你可以创建一个Description对象实例，并把财产价值在那里。这将消除字符串并置：

Dim D: set D=Description.Create 
D.Add "name", name1 
D.Add "href", href1 
Dim O: Set O=Browser(..).Page(..).Link(D) 

Hths。