如何确定msgbox消息弹窗的显示位置？

aoe1981

　　似乎msgbox的消息弹窗总是显示在屏幕中心位置，如果想自定义显示位置，该怎么做呢？

香川群子

需使用API函数进入内部设置。

一般方法做不到的。


其实，InputBox可以设置显示窗口位置的。
你可以临时用Inputbox来代替Msgbox，例如：

Sub test()
    k = MsgBox("", vbOKOnly, "") 'MsgBox无法调整显示位置
    msgStr = "要显示的信息！"
    t = InputBox(msgStr, "", , 123, 45) '但是InputBox可以调整位置
End Sub


其实微软的做法是对的。Msgbox的作用是提醒一下而已，看过之后应该立即关掉的。所以不怕、不担心会遮盖主屏幕。

实在需要，也可以用鼠标拖动到其它位置。

aoe1981

香川群子 发表于 2014-8-29 23:21
需使用API函数进入内部设置。

一般方法做不到的。

多谢，我试试，当前正在做一个附件，等到可以发布了，您大概会明白，我为何非要和msgbox的显示位置较劲了……当然，除非届时又有新的思路，这种可能性永远不能排除……

ww0000

做个记号，好好学习

jsxjd

aoe1981 发表于 2014-8-29 23:50
多谢，我试试，当前正在做一个附件，等到可以发布了，您大概会明白，我为何非要和msgbox的显示位置较劲了 ...

如果是自己设计的，比如含有特定的标题，获得 Handle 后就可以通过 API 控制了

aoe1981

jsxjd 发表于 2014-8-30 18:15
如果是自己设计的，比如含有特定的标题，获得 Handle 后就可以通过 API 控制了

这个没听过，附一个词典翻译：
“handle
英 ['hænd(ə)l]   美 ['hændl]
n. [建] 把手；柄；手感；口实
vt. 处理；操作；运用；买卖；触摸
vi. 搬运；易于操纵”

我的附件快做完了，但是还有点困难……有可能会发布一个不完善的求助版的……
多谢您的指点！

amesman

有两种方法可以解决你的问题：

1.使用api完全可以实现；
2.使用窗体

aoe1981

amesman 发表于 2014-8-30 22:05
有两种方法可以解决你的问题：

1.使用api完全可以实现；

新附件的不完善版蠢蠢欲动的马上就要发布了，届时希望指教下……

aoe1981

香川群子 发表于 2014-8-29 23:21
需使用API函数进入内部设置。

一般方法做不到的。

请抽空关注下我的下帖：
http://club.excelhome.net/thread-1149032-1-1.html

aoe1981

jsxjd 发表于 2014-8-30 18:15
如果是自己设计的，比如含有特定的标题，获得 Handle 后就可以通过 API 控制了

请抽空关注下我的下帖：
http://club.excelhome.net/thread-1149032-1-1.html