VB6 调用messagebox,该怎么处理
VB6 调用messagebox
请问各位大大，VB6下怎么使用messagebox函数，怎么调用API，或者是谁能告诉我一下在窗口被设置被topmost后，怎么让msgbox不被遮挡也行。。。真心求教
------解决思路----------------------
在VB6中用 MsgBox 弹出的消息框，始终是“相对于本进程置顶”的吧！
新建一个标准EXE工程，窗体内画３个按钮，粘贴如上代码。
可以看到，无论本窗口是否置顶，弹出的消息框总会在自己的窗口之上的。
如果是需要“真正的把消息框置顶”，那用HOOK来处理就可以了。
在HOOK的回调函数中，可以把弹出的 MsgBox窗口进行置顶操作。
请问各位大大，VB6下怎么使用messagebox函数，怎么调用API，或者是谁能告诉我一下在窗口被设置被topmost后，怎么让msgbox不被遮挡也行。。。真心求教
------解决思路----------------------
在VB6中用 MsgBox 弹出的消息框，始终是“相对于本进程置顶”的吧！
Option Explicit
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 Command1_Click()
' 窗口置顶
Call SetWindowPos(Me.hWnd, -1&, 0&, 0&, 0&, 0&, 19&)
End Sub
Private Sub Command2_Click()
' 取消置顶
Call SetWindowPos(Me.hWnd, -2&, 0&, 0&, 0&, 0&, 19&)
End Sub
Private Sub Command3_Click()
MsgBox "测试消息。", 64, "消息框"
End Sub
新建一个标准EXE工程，窗体内画３个按钮，粘贴如上代码。
可以看到，无论本窗口是否置顶，弹出的消息框总会在自己的窗口之上的。
如果是需要“真正的把消息框置顶”，那用HOOK来处理就可以了。
在HOOK的回调函数中，可以把弹出的 MsgBox窗口进行置顶操作。