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。