[已解决]如何调整MSGBOX对话框的位置？

liyh67

一般情况下，MSGBOX框总是显示在屏幕的中央，有没有办法调整它的位置呢？代码该怎样写？

最佳答案

月排行榜 / 总排行榜

hhzjxss

2010-11-24 23:36

原来研究过这个东东，收藏了一些代码，分享一下，API的东东：

   1oJBfwP9.rar (11.01 KB, 下载次数: 104)

2010-11-24 23:35 上传

点击文件名下载附件
如何调整MSGBOX对话框的位置？

Option Explicit
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
Private Declare Function SetDlgItemText Lib "USER32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Declare Function UnhookWindowsHookEx Lib "USER32" (ByVal hHook As Long) As Long
Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Declare Function GetCurrentThreadId Lib "kernel32" () As Long
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
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
Const GWL_HINSTANCE = (-6)
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_NOACTIVATE = &H10
Const HCBT_ACTIVATE = 5
Const WH_CBT = 5
Const Appname = "调查:"
Dim hHook As Long
Dim PosLeft As Integer, PosTop As Integer
Function WinProc1(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If lMsg = HCBT_ACTIVATE Then
        ' move the messagebox
        'HCBT_ACTIVATE时wParam是将被激活的窗口的句柄
        Dim Hwnd As Long
        Hwnd = wParam
        '设定按钮的文字

        osLeft = Cells(2, 1)
        osTop = Cells(2, 2)
        SetDlgItemText Hwnd, vbOK, ByVal "是的:确定"
        SetDlgItemText Hwnd, vbCancel, ByVal "不是:取消"
        'SetDlgItemText hwnd, vbYes, ByVal "是[&Y]"
        'SetDlgItemText hwnd, vbNo, ByVal "否[&N]"
        'SetDlgItemText hwnd, vbAbort, ByVal "放弃[&A]"
        'SetDlgItemText hwnd, vbIgnore, ByVal "忽略[&I]"
        'SetDlgItemText hwnd, vbRetry, ByVal "重试[&R]"
         SetWindowPos wParam, 0, PosLeft, PosTop, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
        'Unhook,以免带来不必要的麻烦

        UnhookWindowsHookEx hHook
    End If
    WinProc1 = False
End Function
Sub ShowIt()
    If MsgBox("你是VBA特长班的吗?", vbQuestion + vbOKCancel, Appname) = vbOK Then
        Call MsgBox("你按了(是的:确定)!", vbInformation, Appname)
    Else
        Call MsgBox("你按了(不是:取消!)", vbInformation, Appname)
    End If
End Sub
Public Function MsgBox(Prompt As String, Optional Button As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
    If Len(Title) = 0 Then Title = Application.Caption

    hHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc1, Application.Hinstance, GetCurrentThreadId())
    '注意下面的第一个参数最好传递一个窗口的句柄,当然,让它作为0也可以

    MsgBox = MessageBox(0, Prompt, Title, Button)
End Function

跳转到最佳答案楼层

wbzxz

这个问题问的有水平，我一直都没有考虑过，现在想想，好想还真没有学过这方面的内容，猜想会不会要用到API函数呢？

lpsh1985

觉得肯定要用到API

hhzjxss

原来研究过这个东东，收藏了一些代码，分享一下，API的东东：

   1oJBfwP9.rar (11.01 KB, 下载次数: 104)

2010-11-24 23:35 上传

点击文件名下载附件
如何调整MSGBOX对话框的位置？

Option Explicit
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
Private Declare Function SetDlgItemText Lib "USER32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Declare Function UnhookWindowsHookEx Lib "USER32" (ByVal hHook As Long) As Long
Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Declare Function GetCurrentThreadId Lib "kernel32" () As Long
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
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
Const GWL_HINSTANCE = (-6)
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_NOACTIVATE = &H10
Const HCBT_ACTIVATE = 5
Const WH_CBT = 5
Const Appname = "调查:"
Dim hHook As Long
Dim PosLeft As Integer, PosTop As Integer
Function WinProc1(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If lMsg = HCBT_ACTIVATE Then
        ' move the messagebox
        'HCBT_ACTIVATE时wParam是将被激活的窗口的句柄
        Dim Hwnd As Long
        Hwnd = wParam
        '设定按钮的文字

        osLeft = Cells(2, 1)
        osTop = Cells(2, 2)
        SetDlgItemText Hwnd, vbOK, ByVal "是的:确定"
        SetDlgItemText Hwnd, vbCancel, ByVal "不是:取消"
        'SetDlgItemText hwnd, vbYes, ByVal "是[&Y]"
        'SetDlgItemText hwnd, vbNo, ByVal "否[&N]"
        'SetDlgItemText hwnd, vbAbort, ByVal "放弃[&A]"
        'SetDlgItemText hwnd, vbIgnore, ByVal "忽略[&I]"
        'SetDlgItemText hwnd, vbRetry, ByVal "重试[&R]"
         SetWindowPos wParam, 0, PosLeft, PosTop, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
        'Unhook,以免带来不必要的麻烦

        UnhookWindowsHookEx hHook
    End If
    WinProc1 = False
End Function
Sub ShowIt()
    If MsgBox("你是VBA特长班的吗?", vbQuestion + vbOKCancel, Appname) = vbOK Then
        Call MsgBox("你按了(是的:确定)!", vbInformation, Appname)
    Else
        Call MsgBox("你按了(不是:取消!)", vbInformation, Appname)
    End If
End Sub
Public Function MsgBox(Prompt As String, Optional Button As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
    If Len(Title) = 0 Then Title = Application.Caption

    hHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc1, Application.Hinstance, GetCurrentThreadId())
    '注意下面的第一个参数最好传递一个窗口的句柄,当然,让它作为0也可以

    MsgBox = MessageBox(0, Prompt, Title, Button)
End Function

wbzxz

谢谢漫步老师，什么时候给大家讲讲API函数是如何调用的吧，说实话，看了半天，还是没有看懂。

liyh67

谢谢漫步老师，看了半天看不懂

hhzjxss

QUOTE:

以下是引用liyh67在2010-11-25 12:56:00的发言：
谢谢漫步老师，看了半天看不懂

我是好读书不求甚解，能用就行了！

龙猫

学习[em01]

xdwy81129

QUOTE:

以下是引用liyh67在2010-11-25 12:56:00的发言：
谢谢漫步老师，看了半天看不懂

那我们更难看懂了

[em06]

zhj1978

那我们更难看懂了,请加代码注释