我们在运行QTP批处理时，不需要把QTP的主界面显示出来，以免它阻碍了你的操作视线，那下面介绍二个函数方便你的QTP在运行过程中“收入自如”：
'让QTP运行时保持最小化
Public Sub QTP_Small() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Minimized" Set objQTPWin = Nothing End Sub |
'恢复QTP窗口
Public Sub QTP_Big() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Restored" Set objQTPWin = Nothing End Sub |
