VB怎么把消息窗口最前？

来源：百度知道 编辑：UC知道 时间：2024/06/27 03:17:39
VbMsgBoxSetFore 65536 我用这句，说我子程序或函数未定义。。
怎么定义成模态窗口啊
二楼可能不理解我的意思，我想让消息窗口在所有窗口中是最顶的。最上层的。所有的窗口不能覆盖着它

调用API
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

最后一个参数设为：MB_SETFOREGROUND
例：a = MessageBox(0, "OK", "示例", MB_SETFOREGROUND)

定义成模态窗口

Dim msg
msg = MsgBox("这是窗口提示!", vbOKCancel + vbApplicationModal, "演示")

把这个对象的属性设置为top

或者你每次调用鼠标和键盘事件时都设这个top性属响应.