【软件自动化测试-QTP实战技能 28】== Minimize QTP

作者：xuyubo
时间：2012/10/30 版权所有，侵权必究。

出处：http://blog.youkuaiyun.com/xuyubotest

'Minimize QTP

'此函数可以帮助大家在执行脚本时最小化QTP界面

  'Minimize the main QTP window.


' =============================================================
' function: MinimizeQTP
' desc :    Minimize QTP window
' params :  None
' returns : void
' =============================================================
Function MinimizeQTP()

Dim objQTP

'Get QTP Object
Set objQTP = getObject("","QuickTest.Application") 

' 设置QTP 界面最小化
objQTP.WindowState = "Minimized"

' 销毁对象
Set objQTP = Nothing

End Function 'MinimizeQTP