.net Messagebox自定义未正确显示
很久以前,我对@Hans Passant进行了一些修改,所有这些都可以正常工作,但现在我注意到定制messagebox没有正确显示 这是如何显示带有自定义windows主题的普通messagebox的: 这就是自定义messagebox的显示方式: 正如您所看到的,自定义messagebox中变暗的底层没有正确对齐或调整大小,或者我不知道 如何解决此问题?以下是完整代码:.net Messagebox自定义未正确显示,.net,vb.net,winforms,winapi,messagebox,.net,Vb.net,Winforms,Winapi,Messagebox,很久以前,我对@Hans Passant进行了一些修改,所有这些都可以正常工作,但现在我注意到定制messagebox没有正确显示 这是如何显示带有自定义windows主题的普通messagebox的: 这就是自定义messagebox的显示方式: 正如您所看到的,自定义messagebox中变暗的底层没有正确对齐或调整大小,或者我不知道 如何解决此问题?以下是完整代码: ' [ Centered MessageBox ] ' ' The author of the original cod
' [ 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
' 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
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
<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
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
' Get the STATIC control that displays the text
Dim hText As IntPtr = GetDlgItem(hWnd, &HFFFF)
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))
' 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), _
(dlgRect.Bottom - dlgRect.Top), True)
' Resize the MessageBox Text Label
If mFont IsNot Nothing Then
SetWindowPos(hText, 0, 70, 35, 1920, 1080, 0)
End If
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
”[居中消息框]
'
“原始代码的作者是汉斯·帕桑:
' https://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
'P/Invoke声明
Private Const WM_SETFONT作为整数=&H30
Private Const WM_GETFONT作为整数=&H31
私有委托函数EnumThreadWndProc(hWnd作为IntPtr,lp作为IntPtr)作为布尔值
友元将函数SetWindowPos Lib“user32”(ByVal hwnd作为IntPtr,ByVal hwninsertafter作为IntPtr,ByVal x作为整数,ByVal y作为整数,ByVal cx作为整数,ByVal cy作为整数,ByVal wFlags作为UInt32)声明为布尔值
私有共享函数EnumThreadWindows(tid为整数,回调为EnumThreadWndProc,lp为IntPtr)为布尔值
端函数
私有共享函数GetCurrentThreadId()为整数
端函数
私有共享函数GetClassName(hWnd作为IntPtr,缓冲区作为StringBuilder,buflen作为Integer)作为Integer
端函数
私有共享函数GetDlgItem(hWnd作为IntPtr,项作为整数)作为IntPtr
端函数
私有共享函数SendMessage(hWnd作为IntPtr,msg作为Integer,wp作为IntPtr,lp作为IntPtr)作为IntPtr
端函数
作为布尔值的共享函数GetWindowRect(hWnd作为IntPtr,ByRef rc作为RECT)
端函数
共享函数MoveWindow(hWnd为IntPtr,x为整数,y为整数,w为整数,h为整数,重绘为布尔值)为布尔值
端函数
结构矩形
公共左整数
作为整数的公共Top
作为整数的公权
公共底部为整数
端部结构
Public Sub New(所有者为表单,可选自定义字体为Font=Nothing)
割草机=所有者
mFont=自定义字体
owner.BeginInvoke(新方法调用程序(findDialog的地址))
端接头
私有子findDialog()
'枚举窗口以查找消息框
如果mTries<0,则
返回
如果结束
Dim回调作为新的EnumThreadWndProc(checkWindow的地址)
如果EnumThreadWindows(GetCurrentThreadId(),回调,IntPtr.Zero),则
如果系统螺纹联锁增量(mTries)<10,则
mOwner.BeginInvoke(新方法调用程序(findDialog的地址))
如果结束
如果结束
端接头
专用函数检查窗口(hWnd作为IntPtr,lp作为IntPtr)作为布尔值
'检查是否为对话框
将某人定为新的StringBuilder(260)
GetClassName(hWnd、sb、sb容量)
如果sb.ToString()“#32770”,则返回True
'获取显示文本的静态控件
Dim hText As IntPtr=GetDlgItem(hWnd和HFFFF)
将frmRect变为新矩形(割草机位置、割草机大小)
Dim dlgRect As RECT
GetWindowRect(hWnd、dlgRect)
如果hText IntPtr.Zero,则
如果mFont什么都不是,那么
'获取当前字体
mFont=Font.FromHfont(SendMessage(hText,WM_GETFONT,IntPtr.Zero,IntPtr.Zero))
如果结束
SendMessage(hText,WM_SETFONT,mFont.ToHfont(),新的IntPtr(1))
'调整messagebox窗口的大小和位置:
移动窗口(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)
'调整MessageBox文本标签的大小
如果mFont不是什么,那么
设置窗口位置(hText,0,70,35,1920,1080,0)
如果结束
如果结束
”“好的
返回错误
端函数
Public Sub Dispose()实现IDisposable.Dispose
mTries=-1
割草机=没有
如果mFont不是空的,那么mFont.Dispose()
端接头
末级
#末端区域
问题似乎是由调整文本标签大小的代码引起的
' Resize the MessageBox Text Label
If mFont IsNot Nothing Then
SetWindowPos(hText, 0, 70, 35, 1920, 1080, 0)
End If
此代码将文本标签的大小调整为非常大的大小,并覆盖较低的区域。如果将高度从1080更改为更小的值,如30,则问题消失
通过完全删除这个If语句,我也能够让它工作。MessageBox仍然以父窗体为中心,如果没有它,它似乎可以正常工作。很久以前,我告诉过你winforms不支持任何东西,你坚持要用那些过时的东西。现在你被所有这些可怕的黑客和意想不到的不可预知的结果所困扰,直到你面对现实,从本世纪开始使用相关技术。太糟糕了……是的,我知道HighCore,正如我一直说的那样,你的建议很好,但至少到目前为止,学习WPF应该比我当前的软件需求更专业(而且需要很长时间),或者我认为是这样。感谢您的评论,与问题无关,但h