15问答网 > VB中，消息框msgbox的显示位置可以定义么，为什么所有的消息框都显示在屏幕中央？

VB中，消息框msgbox的显示位置可以定义么，为什么所有的消息框都显示在屏幕中央？

2025-03-03 20:56:48

推荐回答（2个）

回答1：

显示位置可以用钩子实现，只不过要麻烦点，不如自己做一个消息框比较方便，
下面告诉你具体实现的方法：

加入一个模块：
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

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 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 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
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd _
As Long, lpRect As RECT) As Long

Public 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 = 5

Public hHook As Long

Function WinProc1(ByVal lMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

If lMsg = HCBT_ACTIVATE Then
'Show the MsgBox at a fixed location (0,0)
SetWindowPos wParam, 0, 0, 0, 0, 0, _
SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
'Release the CBT hook
UnhookWindowsHookEx hHook
End If
WinProc1 = False

End Function

Function WinProc2(ByVal lMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

Dim rectForm As RECT, rectMsg As RECT
Dim x As Long, y As Long

'On HCBT_ACTIVATE, show the MsgBox centered over Form1
If lMsg = HCBT_ACTIVATE Then
'Get the coordinates of the form and the message box so that
'you can determine where the center of the form is located
GetWindowRect Form1.hwnd, rectForm
GetWindowRect wParam, rectMsg
x = (rectForm.Left + (rectForm.Right - rectForm.Left) / 2) - _
((rectMsg.Right - rectMsg.Left) / 2)
y = (rectForm.Top + (rectForm.Bottom - rectForm.Top) / 2) - _
((rectMsg.Bottom - rectMsg.Top) / 2)
'Position the msgbox
SetWindowPos wParam, 0, x, y, 0, 0, _
SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
'Release the CBT hook
UnhookWindowsHookEx hHook
End If
WinProc2 = False

End Function

然后在msgbox前面加入以下：

Dim hInst As Long
Dim Thread As Long

'Set up the CBT hook
hInst = GetWindowLong(Me.hwnd, GWL_HINSTANCE)
Thread = GetCurrentThreadId()
hHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc2, hInst, Thread)

'下面写msgbox语句

msgbox 。。。。。。。。。。。。。

这样msgbox就显示在你窗体的中间

回答2：

不能，你自己做个消息框不就是了，消息框很好做
然后显示时的声音用 Beep函数就行
假如你做个消息框为Form2
Private Sub Form_Load()
Beep
Form2.Show 1
End Sub
而Form2的显示位置通过改变Form2的Left和Top实现

江苏省南通市启东市吕四港镇有曹家巷这个地方么

我老公刚有点饿胸口下面就闷疼，持续了几个小时

为什么日本人愿意拍南京南京这部电影

越光宝盒中孙俪和郭德纲见面时那首英文插曲名叫什么？

中国男蓝对阵委内瑞拉分数情况

三国志11中兵粮怎么计算

今天花了400块钱在梦幻西游CBG买了个69级LG号，大家帮我看看值吗？

浮夸怎么唱好听，自然。

如何快速提高乒乓球技术