我的csdn博客地址: http://blog.csdn.net/blizzardlyk

译: 通过QTP的WScript.Shell对象,实现弹出并关闭提示框

上一篇 / 下一篇  2010-08-25 11:02:53 / 个人分类:QTP

本内容为QTP帮助文档的译文。

'该函数实现的功能是:在指定时间内(以秒为单位),显示并关闭一个提示框

Public Sub MsgBoxTimeout (Text, Title, TimeOut)


       Set WshShell = CreateObject("WScript.Shell")


       WshShell.Popup Text, TimeOut, Title


End Sub

'如果Timeout参数为0,表示不会自动关闭。如果大于0,在指定时间内,将自动关闭对话框

调用范例:

MsgBoxTimeout  "2秒后自动关闭","这是个自动关闭的提示框",2

 


TAG: QTP 弹出提示框 关闭提示框

 

评分:0

我来说两句

Open Toolbar