[已解决]VB中如何使弹出的 MSGBOX 对话框在 窗体上面

事后诸葛亮

我用VB制作了EXCEL 加载宏
弹出 的窗体始终在 E表上面。
但是我在窗体中 弹出的 MSGBOX 对话框却跑到 窗体后面去了。
如何让弹出的 MSGBOX 对话框在窗体上面显示呀？
谢谢了。

窗体显示在E表上方的代码如下
模块中代码：
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

显示窗体的代码，加载宏在E表中弹出窗体的代码
       Form1.Show
    Dim Test
    Test = SetWindowPos(Form1.hWnd, -1, 0, 0, 0, 0, 3)

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-30 18:12

1. MsgBox "1", vbSystemModal

复制代码

换成这样就行了。
刚测试过了。

跳转到最佳答案楼层

hwc2ycy

msgbox "消息",VbMsgBoxSetForeground

hwc2ycy

vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
vbMsgBoxHelpButton 16384 将Help按钮添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口

事后诸葛亮

hwc2ycy 发表于 2013-7-30 13:20
vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。
vb ...

还是出现在下面。(您的设置是指在VBA代码中吧？)我是用VB做的。。
我是用VB制作 了一个EXCEL加载宏。 加载宏里有个菜单
菜单中弹出的窗体。
在弹出的窗体中 弹出 msgbox 对话框，是在窗体下面。。郁闷。

hwc2ycy

传个附件来吧。

事后诸葛亮

hwc2ycy 发表于 2013-7-30 14:37
传个附件来吧。

加载宏中的菜单 中 worksoeasy
测试 菜单。。你弹出对话框来后，把对话框移到窗体位置
发现对话框在窗体底下。。

hwc2ycy

1. MsgBox "1", vbSystemModal

复制代码

换成这样就行了。
刚测试过了。

hwc2ycy

vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

事后诸葛亮

hwc2ycy 发表于 2013-7-30 18:12
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

谢谢了 哈哈。