我们在运行
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
最新内容请见作者的GitHub页:http://qaseven.github.io/
相关资源:敏捷开发V1.0.pptx
转载请注明原文地址: https://yun.8miu.com/read-63653.html