首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

MsgBox的一个小疑点

2012-12-15 
MsgBox的一个小问题通过vb6调用另外的一个应用QTP,点击QTP停止按钮后Msgbox信息,返回VbYes或VbNo给vb6,问

MsgBox的一个小问题
通过vb6调用另外的一个应用QTP,点击QTP停止按钮后Msgbox信息,返回VbYes或VbNo给vb6,
问题:程序运行到MsgBox信息时,提示窗口不在最前端。
要求:
1、msgbox信息显示在Windows最前端,有试过vbSystemModal、VbMsgBoxSetForeground都可以但是只有一个返回值
2、buttons 参数为VbYesNo


mYon = MsgBox("当前程序中断,是否继续下一个", vbYesNo, "中断提示")



大侠,给一个解决办法   谢谢了
[最优解释]
什么意思?
Private Sub Command1_Click()
Dim mYon As Integer
mYon = MsgBox("当前程序中断,是否继续下一个", vbYesNo + vbSystemModal, "中断提示")

Print mYon

End Sub
可以得到6,7两个值的.
[其他解释]
换用API中的MessageBox看看。
[其他解释]
utype参数设置为MB_TASKMODAL看看。

热点排行