Question

vb6.0的msgbox在最前

我的窗口是在最前的 但是这样导致了msgbox在底下了 怎么解决 求高人帮助~~
Ps:4096不行……

Answer 1

不可能这样的啊，我不知道你是用什么方法把窗口放在最前的，但你试试下面的代码，窗口虽然是在最前的，但MsgBox并不会被窗口遮住：

Private 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

Private Sub Form_Load()
SetWindowPos Me.hwnd, -1&, 0, 0, 0, 0, &H43&
End Sub

Private Sub Command1_Click()
MsgBox "hello"
End Sub

追问

我想让他始终在前 所以在了timer
msgbox在测试的时候是在前面的
exe就在底下了 。。 关不掉好蛋疼

追答

msgbox前先关闭Timer，关闭msgbox后再打开Timer。比如：

Timer1.Enabled = False
MsgBox "你好！"
Timer1.Enabled = True

追问

。。 我的主题是挂机程序 就是form1一直在前
请问可以做到 msgbox的时候不按确定 不能切换窗口

追答

你干脆自己用Form做个信息提示窗口咯，干嘛死抓着MsgBox不放呢。自建的提示窗口用模态方式打开，效果就跟MsgBox完全一样了，而里面的内容却可以由自己完全定制：

Form2.Show vbModal

另外我搞不懂干嘛一定要用Timer，不用它窗口也可以一直在前的啊。

Answer 2

先用TimeSetEvent然后再msgbox
TimeSetEvent会创建一个新的线程, 在TimeSetEvent的回调函数中, 用FindwindowEx找到弹出的msgbox的窗口句柄, 将它设到最前, 同时用SetForegroundWindow将msgbox前置

比较麻烦, 好歹能完成要求

追问

TAT 大哥 我是个新手 不要这样把

Answer 3

msgbox的时候先让窗口不在最前

追问

最主要的问题是 …… 窗口不能不在最前

追答

不可能