讓你的QTP在運行過程中“收入自如”
我們在運行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 |
posted on 2014-01-13 10:58 順其自然EVO 閱讀(270) 評論(0) 編輯 收藏 所屬分類: qtp