如何使对象在QTP中全局可用

Question

In the following code:

systemutil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"

WinEdit
WinButton


Public Function WinEdit
  Set objDialog=Description.Create
  objDialog("micclass").value="Dialog"

  Set objWinEdit=Description.Create
  objWinEdit("micclass").value="WinEdit"

  set WinEditCount=Dialog(objDialog).ChildObjects(objWinEdit)
  msgbox WinEditCount.count
End Function

Public Function WinButton
  Set objWinButton=Description.Create
  objWinButton("micclass").value="WinEdit"

  set WinButtonCount=Dialog(objDialog).ChildObjects(objWinButton)
  msgbox WinButtonCount.count   
End Function

The objects which are made in WinEdit function, are limited to that function only. I want to use the objects created in WinEdit function to be reused in WinButton function.

Answer 1

The whole point of functions is to encapsulate logic. If you declare a variable in a function it defaults to being private to this function, you can declare it globally but this is usually discouraged since it creates dependencies between the functions.

You can do something like this (which will initialize desc only once).

Foo
Bar

Dim desc ' global variable

Private Function InitDesc
    If IsEmpty(desc)  Then
        Set desc= Description.Create()
    End If
End Function

Public Function Foo
    InitDesc

End Function

Public Function Bar
    InitDesc
End Function

Answer 2

给对象变量指定一个唯一的名称，将其放在记事本文件中，然后将该文件与脚本关联