我們?cè)谶\(yùn)行
QTP批處理時(shí)，不需要把QTP的主界面顯示出來，以免它阻礙了你的操作視線，那下面介紹二個(gè)函數(shù)方便你的QTP在運(yùn)行過程中“收入自如”：
'讓QTP運(yùn)行時(shí)保持最小化
Public Sub QTP_Small() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Minimized" Set objQTPWin = Nothing End Sub |
'恢復(fù)QTP窗口
Public Sub QTP_Big() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Restored" Set objQTPWin = Nothing End Sub |