Fatal编程技术网
  • .net/
  • .net 哪个是计算此窗口大小和位置的数学公式？

.net 哪个是计算此窗口大小和位置的数学公式？

.net vb.net winforms

.net 哪个是计算此窗口大小和位置的数学公式？,.net,vb.net,winforms,resize,position,.net,Vb.net,Winforms,Resize,Position,导言： 我使用的自定义messagebox类最初是由@Hans Passant在这里编写的： （我正在使用的修改版本位于问题的底部） 自定义messagebox可以接收自定义文本字体来显示它 这是一个使用示例： Using New CenteredMessageBox(Me, _ New Font(New FontFamily("Lucida Console"), 16, FontStyle.Bold)) MessageBox.Show("Test Text", "Test Ti

导言：

我使用的自定义messagebox类最初是由@Hans Passant在这里编写的：

（我正在使用的修改版本位于问题的底部）

自定义messagebox可以接收自定义文本字体来显示它

这是一个使用示例：

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
问题是：

需要手动调整窗口的所有内容的大小/位置，否则，文本将按如下方式取消显示：

     ' 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)

  ' 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)

如果我使用更大的字体（我已经调整了文本控件的大小），这就是结果：

所以我需要计算哪个位置和大小会有与字体大小相对应的元素，调整窗口大小和按钮位置，这就是我所要求的。我怎么能做到？我需要的不仅仅是一个公式，因为我的数学不是很好

这些要素包括：

我考虑到以下因素：

  • Messagebox文本的字体大小
  • 包含并显示文本的Messagebox静态控件
  • Messagebox按钮（可以是1个按钮、2个按钮或3个按钮的组合，具有不同的默认位置）
  • 包含所有这些元素的Messagebox窗口窗体
按钮变量：

  • 如果messagebox窗口中只有1个按钮（例如：“Ok”），则该按钮将对齐到中间，但如果它们是3个按钮（例如：“AbortRetryIgnore”），则第一个按钮将对齐到左下角，第二个按钮对齐到中间，最后一个按钮对齐到右下角，我认为没有必要解释这一点，因为所有人都知道msgbox如何显示按钮
我不是一个算术大师，所以如果我遗漏了一些必要的值，请原谅我，但我认为这些是代码中必须使用的值/变量：

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
这是我自己可以做到的，我一直在测试以这种方式存储messagebox按钮元素：

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.
（无论messagebox和buton的组合如何，它们的项目索引始终相同）

要调整messagebox窗口的大小，我可以使用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)

  ' 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)
要调整其余元素（文本容器、按钮）的大小，在调整messagebox表单的大小后，我可以使用SetWindowPos 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)

  ' 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)
MESSAGEBOX类

我之前提到的所有事情都搞砸了：

' [ 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
这对我很有用：

我改变了：

 <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
并添加（在发送消息（hText、WM_SETFONT、mFont.ToHfont（）、新的IntPtr（1））之后））

并将移动窗口更改为：

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

”[居中消息框]
'
“原始代码的作者是汉斯·帕桑：http://stackoverflow.com/questions/2576156/winforms-how-can-i-make-messagebox-appear-centered-on-mainform
'
例如:
'
'使用新的CenteredMessageBox（Me、新字体（新FontFamily（“Lucida控制台”）、Font.SizeInPoints、FontStyle.Bold））
'MessageBox.Show（“测试文本”、“测试标题”、MessageBoxButtons.OK、MessageBoxIcon.Information）
"终端使用",
#区域“以MessageBox类为中心”
导入系统。绘图
导入System.Runtime.InteropServices
导入系统文本
导入System.Windows.Forms
类CenteredMessageBox：实现IDisposable
作为整数的私有mTries=0
作为形式的私人割草机
作为字体的专用mFont
Dim Text_宽度为整数=0
Dim Text_高度为整数=0
尺寸文本\容器\宽度为整数=0
尺寸文本\容器\高度为整数=0
Dim Messagebox\u窗口\u额外\u宽度为整数=0
Dim Messagebox\u window\u额外高度为整数=0
尺寸按钮\u 1\u位置\u X为整数=0'“确定”按钮
调暗按钮\u 1\u位置\u Y为整数=0'“确定”按钮
Dim Button_2_Pos_X As Integer=0'此按钮不存在
Dim Button_2_Pos_Y As Integer=0'此按钮不存在
Dim Button_3_Pos_X As Integer=0'此按钮不存在
Dim按钮\u 3\u位置\u Y为整数=0'此按钮不存在
'P/Invoke声明
Private Const WM_SETFONT作为整数=&H30
Private Const WM_GETFONT作为整数=&H31
私有委托函数EnumThreadWndProc（ByVal hWnd作为IntPtr，ByVal lp作为IntPtr）作为布尔值
_
私有共享函数EnumThreadWindows（ByVal tid作为整数，ByVal回调作为EnumThreadWndProc，ByVal lp作为IntPtr）作为布尔值
端函数
_
私有共享函数GetCurrentThreadId（）为整数
端函数
_
私有共享函数GetClassName（ByVal hWnd作为IntPtr，ByVal buffer作为StringBuilder，ByVal buflen作为Integer）作为Integer
端函数
_
私有共享函数GetDlgItem（ByVal hWnd作为IntPtr，ByVal项作为整数）作为IntPtr
端函数
' _
'专用共享函数SendMessage（ByVal hWnd作为IntPtr，ByVal msg作为Integer，ByVal wp作为IntPtr，ByVal lp作为IntPtr）作为IntPtr
'结束函数
_
作为布尔值的共享函数GetWindowRect（ByVal hWnd作为IntPtr，ByRef rc作为RECT）
端函数
_
共享函数MoveWindow（ByVal hWnd作为IntPtr，ByVal x作为Integer，ByVal y作为Integer，ByVal w作为Integer，ByVal h作为Integer，ByVal repaint作为Boolean）作为布尔值
端函数
将自动函数SendMessage Lib“user32.dll”（ByVal hWnd作为IntPtr，ByVal msg作为Integer，ByVal wParam作为IntPtr，ByVal lParam作为IntPtr）声明为IntPtr
结构矩形
公共左整数
作为整数的公共Top
作为整数的公权
公共底部为整数
端部结构
友元将函数SetWindowPos Lib“user32”（ByVal hwnd作为IntPtr，ByVal hwninsertafter作为IntPtr，ByVal x作为整数，ByVal y作为整数，ByVal cx作为整数，ByVal cy作为整数，ByVal wFlags作为UInt32）声明为布尔值
Public Sub New（ByVal所有者为表单，可选ByVal自定义字体为Font=Nothing）
割草机=所有者
mFont=自定义字体
owner.BeginInvoke（新方法调用程序（findDialog的地址））