three116 发表于 2008-1-25 11:30:29

回复 20# 的帖子

你知道还不帮助人家？！:lol

sunqiang1024 发表于 2008-1-25 16:57:42

原帖由 木卫十二 于 2007-11-1 18:15 发表 http://bbs.51testing.com/images/common/back.gif
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed after 2 seconds.", 2)'代替msgbox "Closed after 2 seconds"
Set WSH = Nothing

不是用msgbox了

刚试了，不错的代码

zimgxt 发表于 2008-9-8 11:39:21

刚用了，不错的代码，谢谢分享！！！！！！感激……

47385024 发表于 2008-9-9 16:16:45

恢复场景不就可以了么？哪那么麻烦？？？

kelly33 发表于 2009-4-12 15:27:14

回复 7# 的帖子

QTP自己设置的MSGBOX也是一个对象
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close


使用这个，好像根本没办法关闭Msgbox吧。如我的语句如下：
Dim myMsg, tt
Set myMsg = Description.Create()
myMsg("text").value="test title"
tt=Msgbox("test title",vbok,"test title")
Dialog(myMsg).close

ls_721521 发表于 2009-4-13 14:14:07

原帖由 loho1968 于 2007-11-2 13:39 发表 http://bbs.51testing.com/images/common/back.gif
QTP自己设置的MSGBOX也是一个对象
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close


msgbox 是qtp弹出的窗口，qtp执行到它时就中断了。。。。

yxd2006 发表于 2009-4-16 16:11:40

还是看不懂，有谁人说得更清楚点吗？
在此先谢了

kasimxiao 发表于 2009-4-16 18:43:41

直接用print 好了嘛

sincor 发表于 2010-7-20 14:03:18

set s=createobject("wscript.shell")
t1 = Timer
for i=1 to 10   '将其改成 1 to 1就只循环一次
s.popup "现在正在显示第"&(i)&"条信息!",1,"提示信息",4096+48
Next
t2 = Timer
MsgBox t2-t1

直接稍作修改就可以利用
页: 1 [2]
查看完整版本: 如何让QTP自动关闭MsgBox