MessageBoxをフォームの中央に表示する

Question

サブクラス化またはフックせずにMessageBoxを中央に配置する方法はありますか？

私はVB.NETコードを探しています。

Answer 1

VB.NETのための溶液：

このコードは@Hansアンパッサンのasnwerから取り出され、翻訳される：Winforms-How can I make MessageBox appear centered on MainForm?

Centered_MessageBox.vb

Imports System.Text 
Imports System.Drawing 
Imports System.Windows.Forms 
Imports System.Runtime.InteropServices 

Class Centered_MessageBox 
    Implements IDisposable 
    Private mTries As Integer = 0 
    Private mOwner As Form 

    Public Sub New(owner As Form) 
     mOwner = owner 
     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 
     End If 
     ' Got it 
     Dim frmRect As New Rectangle(mOwner.Location, mOwner.Size) 
     Dim dlgRect As RECT 
     GetWindowRect(hWnd, dlgRect) 
     MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, dlgRect.Right - dlgRect.Left, dlgRect.Bottom - dlgRect.Top, True) 
     Return False 
    End Function 
    Public Sub Dispose() Implements IDisposable.Dispose 
     mTries = -1 
    End Sub 

    ' P/Invoke declarations 
    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 GetWindowRect(hWnd As IntPtr, ByRef rc As RECT) As Boolean 
    End Function 
    <DllImport("user32.dll")> _ 
    Private 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 
    Private Structure RECT 
     Public Left As Integer 
     Public Top As Integer 
     Public Right As Integer 
     Public Bottom As Integer 
    End Structure 
End Class 

使用法：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Using New Centered_MessageBox(Me) 
     MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.OK) 
    End Using 
End Sub 

Answer 2

悲しいことに、悲しいことに、MessageBoxを親に集中させる方法はありません。これはデフォルトで画面上に表示され、変更することはできません。