介绍:
我正在使用最初由@Hans Passant在此处编写的自定义消息框类:Winforms-如何使MessageBox出现在MainForm的中心?
(我使用的修改后的版本位于该问题的底部)
自定义消息框可以接收自定义文本字体以显示它。
这是一个用法示例:
Using New CenteredMessageBox(Me, _
New Font(New FontFamily("Lucida Console"), 16, FontStyle.Bold))
MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End Using
问题:
窗口的所有内容都需要手动调整大小/位置,否则,文本将被裁剪,如下所示:
如果我使用更大的字体,这就是结果(我调整了文本控件的大小):
因此,我需要计算哪些位置和大小将实际具有与字体大小相对应的元素,以调整窗口的大小并放置按钮的位置,这就是我要的。我该怎么办?我不仅仅需要一个简单的公式,因为数学我做得不好。
要素:
我牢记以下要素:
按钮变量:
我不是算术大师,所以如果我错过了一些必要的值,请原谅我,但是我认为这些将是代码中要使用的必要值/变量:
Dim Text_width As Integer = 0
Dim Text_height As Integer = 0
Dim Text_Container_width As Integer = 0
Dim Text_Container_height As Integer = 0
' Don't calculate the exact size of messagebox window,
' just I think only needs to sum an extra size to a default messagebox rectangle
Dim Messagebox_window_extra_width As Integer = 0
Dim Messageboxwindow_extra_height As Integer = 0
' This represents the first button,
' in a messagebox button combination of 1, 2, or 3 buttons,
' this button could be displayed alligned at bottom-middle (as unique button),
' or could be alligned at bottom-left (as the first of 2 of 3 button combination).
Dim Button_1_Pos_X As Integer = 0
Dim Button_1_Pos_Y As Integer = 0
' This button represents the second button
' in a messagebox button combination of 2 or 3 buttons,
' the buton could exist or could not
' and could be displayed alligned at bottom-middle (in the middle of 3 buttons),
' this button could be displayed alligned at bottom-right (as second and last button).
Dim Button_2_Pos_X As Integer = 0
Dim Button_2_Pos_Y As Integer = 0
' This button represents the third button
' a messagebox button combination of 2 or 3 buttons,
' the buton could exist or could not
' and could be displayed alligned at bottom-right (as third and last button).
Dim Button_3_Pos_X As Integer = 0
Dim Button_3_Pos_Y As Integer = 0
这是我自己可以做的,我一直在测试以这种方式存储消息框按钮元素:
Dim button_Ok As IntPtr = GetDlgItem(hWnd, 1) ' The 'Ok' button.
Dim button_Cancel As IntPtr = GetDlgItem(hWnd, 2) ' the 'Cancel' button.
Dim button_Abort As IntPtr = GetDlgItem(hWnd, 3) ' the 'Abort' button.
Dim button_Retry As IntPtr = GetDlgItem(hWnd, 4) ' the 'Retry' button.
Dim button_Ignore As IntPtr = GetDlgItem(hWnd, 5) ' the 'Ignore' button.
Dim button_Yes As IntPtr = GetDlgItem(hWnd, 6) ' the 'Yes' button.
Dim button_No As IntPtr = GetDlgItem(hWnd, 7) ' the 'NO' button.
(无论消息框是否组合,它们始终具有相同的Item索引)
要调整消息框窗口的大小,我可以使用MoveWindow API,如下所示:
' This is to resize and positionate the messagebox window
MoveWindow(hWnd, _
frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, _
frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, _
(dlgRect.Right - dlgRect.Left) + Messagebox_window_extra_width, _
(dlgRect.Bottom - dlgRect.Top) + Messagebox_window_extra_height, True)
在调整消息框的大小之后,要调整其余元素(文本容器,按钮)的大小,则可以使用SetWindowPos API,如下所示:
' Text container:
SetWindowPos(hText, 0, 70, 30, 1920, 1080, 0) ' Values are not perfect calculated but works fine
' Messagebox buttons:
' SetWindowPos(button_Ok, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Cancel, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Abort, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Retry, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Ignore, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Yes, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_No, 0, 0, 0, 0, 0, 0)
信息框类
这里弄乱了我之前提到的所有内容:
' [ Centered MessageBox ]
'
' The author of the original code is Hans Passant: https://stackoverflow.com/questions/2576156/winforms-how-can-i-make-messagebox-appear-centered-on-mainform
'
' Examples :
'
' Using New CenteredMessageBox(Me, New Font(New FontFamily("Lucida Console"), Font.SizeInPoints, FontStyle.Bold))
' MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.OK, MessageBoxIcon.Information)
' End Using
#Region " Centered MessageBox Class"
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms
Class CenteredMessageBox : Implements IDisposable
Private mTries As Integer = 0
Private mOwner As Form
Private mFont As Font
Dim Text_width As Integer = 0
Dim Text_height As Integer = 0
Dim Text_Container_width As Integer = 0
Dim Text_Container_height As Integer = 0
Dim Messagebox_window_extra_width As Integer = 0
Dim Messagebox_window_extra_height As Integer = 0
Dim Button_1_Pos_X As Integer = 0 ' "OK" Button
Dim Button_1_Pos_Y As Integer = 0 ' "OK" Button
Dim Button_2_Pos_X As Integer = 0 ' This button could not exist
Dim Button_2_Pos_Y As Integer = 0 ' This button could not exist
Dim Button_3_Pos_X As Integer = 0 ' This button could not exist
Dim Button_3_Pos_Y As Integer = 0 ' This button could not exist
' P/Invoke declarations
Private Const WM_SETFONT As Integer = &H30
Private Const WM_GETFONT As Integer = &H31
Private Delegate Function EnumThreadWndProc(hWnd As IntPtr, lp As IntPtr) As Boolean
<DllImport("user32.dll")> _
Private Shared Function EnumThreadWindows(tid As Integer, callback As EnumThreadWndProc, lp As IntPtr) As Boolean
End Function
<DllImport("kernel32.dll")> _
Private Shared Function GetCurrentThreadId() As Integer
End Function
<DllImport("user32.dll")> _
Private Shared Function GetClassName(hWnd As IntPtr, buffer As StringBuilder, buflen As Integer) As Integer
End Function
<DllImport("user32.dll")> _
Private Shared Function GetDlgItem(hWnd As IntPtr, item As Integer) As IntPtr
End Function
<DllImport("user32.dll")> _
Private Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wp As IntPtr, lp As IntPtr) As IntPtr
End Function
<DllImport("user32.dll")> _
Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As RECT) As Boolean
End Function
<DllImport("user32.dll")> _
Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, w As Integer, h As Integer, repaint As Boolean) As Boolean
End Function
Structure RECT
Public Left As Integer
Public Top As Integer
Public Right As Integer
Public Bottom As Integer
End Structure
Friend Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As UInt32) As Boolean
Public Sub New(owner As Form, Optional Custom_Font As Font = Nothing)
mOwner = owner
mFont = Custom_Font
owner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
End Sub
Private Sub findDialog()
' Enumerate windows to find the message box
If mTries < 0 Then
Return
End If
Dim callback As New EnumThreadWndProc(AddressOf checkWindow)
If EnumThreadWindows(GetCurrentThreadId(), callback, IntPtr.Zero) Then
If System.Threading.Interlocked.Increment(mTries) < 10 Then
mOwner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
End If
End If
End Sub
Private Function checkWindow(hWnd As IntPtr, lp As IntPtr) As Boolean
' Checks if <hWnd> is a dialog
Dim sb As New StringBuilder(260)
GetClassName(hWnd, sb, sb.Capacity)
If sb.ToString() <> "#32770" Then Return True
' Got it, get the STATIC control that displays the text
Dim hText As IntPtr = GetDlgItem(hWnd, &HFFFF)
' Get the messagebox button elements
Dim button_Ok As IntPtr = GetDlgItem(hWnd, 1) ' The 'Ok' button.
Dim button_Cancel As IntPtr = GetDlgItem(hWnd, 2) ' the 'Cancel' button.
Dim button_Abort As IntPtr = GetDlgItem(hWnd, 3) ' the 'Abort' button.
Dim button_Retry As IntPtr = GetDlgItem(hWnd, 4) ' the 'Retry' button.
Dim button_Ignore As IntPtr = GetDlgItem(hWnd, 5) ' the 'Ignore' button.
Dim button_Yes As IntPtr = GetDlgItem(hWnd, 6) ' the 'Yes' button.
Dim button_No As IntPtr = GetDlgItem(hWnd, 7) ' the 'NO' button.
Dim frmRect As New Rectangle(mOwner.Location, mOwner.Size)
Dim dlgRect As RECT
GetWindowRect(hWnd, dlgRect)
If hText <> IntPtr.Zero Then
If mFont Is Nothing Then
' Get the current font
mFont = Font.FromHfont(SendMessage(hText, WM_GETFONT, IntPtr.Zero, IntPtr.Zero))
End If
SendMessage(hText, WM_SETFONT, mFont.ToHfont(), New IntPtr(1))
' Just here is an empty space where I can test some operations:
'
' Messagebox_window_extra_width = (mFont.Height \ mFont.Size) + (dlgRect.Right)
' Messagebox_window_extra_height = mFont.Height +
' This is to resize and positionate the messagebox window:
MoveWindow(hWnd, _
frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, _
frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, _
(dlgRect.Right - dlgRect.Left) + Messagebox_window_extra_width, _
(dlgRect.Bottom - dlgRect.Top) + Messagebox_window_extra_height, True)
' And this is to resize and positionate the rest elements:
'
' Text container:
SetWindowPos(hText, 0, 70, 30, 1920, 1080, 0)
'
' Messagebox buttons:
' SetWindowPos(button_Ok, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Cancel, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Abort, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Retry, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Ignore, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Yes, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_No, 0, 0, 0, 0, 0, 0)
End If
' Done
Return False
End Function
Public Sub Dispose() Implements IDisposable.Dispose
mTries = -1
mOwner = Nothing
If mFont IsNot Nothing Then mFont.Dispose()
End Sub
End Class
#End Region
更新
这就是我尝试使用@Grahamvs解决方案的方法:
Using New CenteredMessageBox(Me, New Font(New FontFamily("Lucida Console"), Font.SizeInPoints, FontStyle.Bold))
MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Using
这为我工作:
我变了:
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr
End Function
到
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
并添加(在之后SendMessage(hText, WM_SETFONT, mFont.ToHfont(), New IntPtr(1))
)
' Get text
Dim WM_GETTEXT As Integer = &HD
' Alloc memory for the buffer that recieves the text
Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)
' Send The WM_GETTEXT Message
Dim NumText As Integer = SendMessage(hText, WM_GETTEXT, 200, Hndl)
' Copy the characters from the unmanaged memory to a managed string
Dim MSGText As String = Marshal.PtrToStringUni(Hndl)
' Measure the text
Dim TextSize As SizeF
Using G As Graphics = mOwner.CreateGraphics
TextSize = G.MeasureString(MSGText & "MMM", mFont)
End Using
并更改MoveWindow
为:
MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, CInt(TextSize.Width) + Messagebox_window_extra_width, (dlgRect.Bottom - dlgRect.Top) + Messagebox_window_extra_height, True)
希望这可以帮助
编辑:这是完整的代码
' [ Centered MessageBox ]
'
' The author of the original code is Hans Passant: http://stackoverflow.com/questions/2576156/winforms-how-can-i-make-messagebox-appear-centered-on-mainform
'
' Examples :
'
' Using New CenteredMessageBox(Me, New Font(New FontFamily("Lucida Console"), Font.SizeInPoints, FontStyle.Bold))
' MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.OK, MessageBoxIcon.Information)
' End Using
#Region " Centered MessageBox Class"
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms
Class CenteredMessageBox : Implements IDisposable
Private mTries As Integer = 0
Private mOwner As Form
Private mFont As Font
Dim Text_width As Integer = 0
Dim Text_height As Integer = 0
Dim Text_Container_width As Integer = 0
Dim Text_Container_height As Integer = 0
Dim Messagebox_window_extra_width As Integer = 0
Dim Messagebox_window_extra_height As Integer = 0
Dim Button_1_Pos_X As Integer = 0 ' "OK" Button
Dim Button_1_Pos_Y As Integer = 0 ' "OK" Button
Dim Button_2_Pos_X As Integer = 0 ' This button could not exist
Dim Button_2_Pos_Y As Integer = 0 ' This button could not exist
Dim Button_3_Pos_X As Integer = 0 ' This button could not exist
Dim Button_3_Pos_Y As Integer = 0 ' This button could not exist
' P/Invoke declarations
Private Const WM_SETFONT As Integer = &H30
Private Const WM_GETFONT As Integer = &H31
Private Delegate Function EnumThreadWndProc(ByVal hWnd As IntPtr, ByVal lp As IntPtr) As Boolean
<DllImport("user32.dll")> _
Private Shared Function EnumThreadWindows(ByVal tid As Integer, ByVal callback As EnumThreadWndProc, ByVal lp As IntPtr) As Boolean
End Function
<DllImport("kernel32.dll")> _
Private Shared Function GetCurrentThreadId() As Integer
End Function
<DllImport("user32.dll")> _
Private Shared Function GetClassName(ByVal hWnd As IntPtr, ByVal buffer As StringBuilder, ByVal buflen As Integer) As Integer
End Function
<DllImport("user32.dll")> _
Private Shared Function GetDlgItem(ByVal hWnd As IntPtr, ByVal item As Integer) As IntPtr
End Function
'<DllImport("user32.dll")> _
'Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr
'End Function
<DllImport("user32.dll")> _
Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef rc As RECT) As Boolean
End Function
<DllImport("user32.dll")> _
Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer, ByVal repaint As Boolean) As Boolean
End Function
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
Structure RECT
Public Left As Integer
Public Top As Integer
Public Right As Integer
Public Bottom As Integer
End Structure
Friend Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As UInt32) As Boolean
Public Sub New(ByVal owner As Form, Optional ByVal Custom_Font As Font = Nothing)
mOwner = owner
mFont = Custom_Font
owner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
End Sub
Private Sub findDialog()
' Enumerate windows to find the message box
If mTries < 0 Then
Return
End If
Dim callback As New EnumThreadWndProc(AddressOf checkWindow)
If EnumThreadWindows(GetCurrentThreadId(), callback, IntPtr.Zero) Then
If System.Threading.Interlocked.Increment(mTries) < 10 Then
mOwner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
End If
End If
End Sub
Private Function checkWindow(ByVal hWnd As IntPtr, ByVal lp As IntPtr) As Boolean
' Checks if <hWnd> is a dialog
Dim sb As New StringBuilder(260)
GetClassName(hWnd, sb, sb.Capacity)
If sb.ToString() <> "#32770" Then Return True
' Got it, get the STATIC control that displays the text
Dim hText As IntPtr = GetDlgItem(hWnd, &HFFFF)
' Get the messagebox button elements
Dim button_Ok As IntPtr = GetDlgItem(hWnd, 1) ' The 'Ok' button.
Dim button_Cancel As IntPtr = GetDlgItem(hWnd, 2) ' the 'Cancel' button.
Dim button_Abort As IntPtr = GetDlgItem(hWnd, 3) ' the 'Abort' button.
Dim button_Retry As IntPtr = GetDlgItem(hWnd, 4) ' the 'Retry' button.
Dim button_Ignore As IntPtr = GetDlgItem(hWnd, 5) ' the 'Ignore' button.
Dim button_Yes As IntPtr = GetDlgItem(hWnd, 6) ' the 'Yes' button.
Dim button_No As IntPtr = GetDlgItem(hWnd, 7) ' the 'NO' button.
Dim frmRect As New Rectangle(mOwner.Location, mOwner.Size)
Dim dlgRect As RECT
GetWindowRect(hWnd, dlgRect)
If hText <> IntPtr.Zero Then
If mFont Is Nothing Then
' Get the current font
mFont = Font.FromHfont(SendMessage(hText, WM_GETFONT, IntPtr.Zero, IntPtr.Zero))
End If
SendMessage(hText, WM_SETFONT, mFont.ToHfont(), New IntPtr(1))
' Get text
Dim WM_GETTEXT As Integer = &HD
' Alloc memory for the buffer that recieves the text
Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)
' Send The WM_GETTEXT Message
Dim NumText As Integer = SendMessage(hText, WM_GETTEXT, 200, Hndl)
' Copy the characters from the unmanaged memory to a managed string
Dim MSGText As String = Marshal.PtrToStringUni(Hndl)
' Measure the text
Dim TextSize As SizeF
Using G As Graphics = mOwner.CreateGraphics
TextSize = G.MeasureString(MSGText & "MMM", mFont)
End Using
' Just here is an empty space where I can test some operations:
'
' Messagebox_window_extra_width = (mFont.Height \ mFont.Size) + (dlgRect.Right)
' Messagebox_window_extra_height = mFont.Height +
' This is to resize and positionate the messagebox window:
'MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, _
' (dlgRect.Right - dlgRect.Left) + Messagebox_window_extra_width, (dlgRect.Bottom - dlgRect.Top) + Messagebox_window_extra_height, True)
MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, Math.Max(CInt(TextSize.Width), 200) + Messagebox_window_extra_width, (dlgRect.Bottom - dlgRect.Top) + Messagebox_window_extra_height, True)
' And this is to resize and positionate the rest elements:
'
' Text container:
SetWindowPos(hText, 0, 70, 30, 1920, 1080, 0)
'
' Messagebox buttons:
' SetWindowPos(button_Ok, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Cancel, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Abort, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Retry, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Ignore, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_Yes, 0, 0, 0, 0, 0, 0)
' SetWindowPos(button_No, 0, 0, 0, 0, 0, 0)
End If
' Done
Return False
End Function
Public Sub Dispose() Implements IDisposable.Dispose
mTries = -1
mOwner = Nothing
If mFont IsNot Nothing Then mFont.Dispose()
End Sub
End Class
#End Region
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句