vb.net – 显示以表单为中心的MessageBox
发布时间:2020-12-17 00:32:21 所属栏目:大数据 来源:网络整理
导读:有一种方法可以使MessageBox居中而不进行子类化或挂钩? 我正在寻找VB.NET代码. VB.NET的解决方案: 此代码取自@Hans Passant:Winforms-How can I make MessageBox appear centered on MainForm?的asnwer Centered_MessageBox.vb Imports System.TextImport
有一种方法可以使MessageBox居中而不进行子类化或挂钩?
我正在寻找VB.NET代码.
VB.NET的解决方案:
此代码取自@Hans Passant:Winforms-How can I make MessageBox appear centered on MainForm?的asnwer 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |