MsgBox的一个小疑点
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看看。