我们在运行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
本文提供了两种实用的方法来控制QTP窗口的状态:一种是将QTP窗口最小化以避免干扰用户的其他操作;另一种是恢复QTP窗口到正常大小,便于进行测试脚本的编辑和调试。
9559

被折叠的 条评论
为什么被折叠?



