如何让msgbox窗口出现在指定的位置？

Question

如何让msgbox窗口出现在指定的位置？

Answer 1

参考http://www.ask321.com/ask21/how136219.htm

Answer 2

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
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 LongPublic Const GWL_HINSTANCE = (-6)
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const HCBT_ACTIVATE = 5
Public Const WH_CBT = 5Public hHook As LongPrivate SetX As Long, SetY As LongPrivate Function DlgPos(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If lMsg = HCBT_ACTIVATE Then
        SetWindowPos wParam, 0, SetX, SetY, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
        UnhookWindowsHookEx hHook
    End If
End FunctionPublic Function SetMsgBoxPos(Form As Form, x As Long, y As Long)
    SetX = x: SetY = y
    Dim hInst As Long, Thread As Long
    hInst = GetWindowLong(Form.hwnd, GWL_HINSTANCE)
    Thread = GetCurrentThreadId
    hHook = SetWindowsHookEx(WH_CBT, AddressOf DlgPos, hInst, Thread)
End Function在调用 MsgBox 前调用 SetMsgBoxPos, 设置x,y就行了（注意是屏幕坐标）