测试运行过程中改变QTP窗口状态

        在脚本的运行过程中，QTP窗口可能会影响步骤。

        有时，QTP窗口挡住了测试对象的弹出窗口或者页面控件，造成对象不可见Object is not visible错误。

        在测试脚本的开头部分加入如下代码，就可以让QTP在开始运行时最小化QTP窗口。

        Dim objQTPWin

        Set ōbjQTPWin = GetObject("" , "QuickTest.Application")

        objQTPWin.WindowState = "Minimized"

        Set ōbjQTPWin = Nothing

        其中objQTPWin.WindowState还支持最大化"Maxmized"和恢复"Restored"状态，如果把上面的代码包装成一个函数，就是根据需要在测试运行中随时改变QTP窗口的状态了。

        除了最小化以外，还可以利用QTP窗口对象的Visible属性隐藏QTP窗口。

        Dim objQTPWin

        Set ōbjQTPWin = GetObject("" , "QuickTest.Application")

        objQTPWin.Visible = False

        Set ōbjQTPWin = Nothing

        和最小化窗口不同的是，隐藏窗口以后连任务栏上也不看不到QTP窗口了。

        如果需要显示QTP窗口，应该把Visible属性设置为True。

【责编:michael】

--------------------next---------------------