Question

我试图在WinForms按钮控件中覆盖OnPaint。我想将图像和文本对齐在中心，彼此相邻。我知道没有办法使用默认控件。这个想法是继承Button，并“仅覆盖”图像+文本部分的绘画。我有一个几乎工作的版本，但如果我在我的ImgButton和Button上设置“Segoe UI Semibold; 9pt; style = Bold”，ImgButtons文本更加“粗体”。这是我的班级：

Imports System.Windows.Forms
Imports System.Drawing

Public Class ImgButton
Inherits Button

Public Sub New()
    MyBase.New()
End Sub

Private _text As String = "Text"
Private _img As Bitmap = Nothing

Private isOwnerPainting As Boolean = True

Overrides Property Text As String
    Get
        If isOwnerPainting = True Then
            Return _text
        Else
            Return ""
        End If
    End Get
    Set(value As String)
        _text = value
    End Set
End Property

Property CenteredImage As Bitmap
    Get
        If isOwnerPainting = True Then
            Return _img
        Else
            Return Nothing
        End If
    End Get
    Set(value As Bitmap)
        _img = value
    End Set
End Property

Private _font As Font = MyBase.Font
Overrides Property Font As Font
    Get
        Return _font
    End Get
    Set(value As Font)
        _font = value
    End Set
End Property

Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)
    isOwnerPainting = True
    If Me.CenteredImage IsNot Nothing Then
        isOwnerPainting = False
        MyBase.OnPaint(pe)
        isOwnerPainting = True
        Dim textWidth As Integer = pe.Graphics.MeasureString(Me.Text, Me.Font).Width
        Dim textHeight As Integer = pe.Graphics.MeasureString(Me.Text, Me.Font).Height

        Dim imgPlusTextWidth As Integer = Me.CenteredImage.Width + textWidth
        Dim imgPlusTextHeight As Integer = Me.CenteredImage.Height + textHeight

        Dim imageLeft As Integer = (Me.Width / 2) - (imgPlusTextWidth / 2)

        pe.Graphics.DrawImage(Me.CenteredImage, New Point(imageLeft, (Me.Height / 2) - (Me.CenteredImage.Height / 2)))

        pe.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush(MyBase.ForeColor), New Point(imageLeft + 5 + Me.CenteredImage.Width, (Me.Height / 2) - (textHeight / 2)))
    Else
        isOwnerPainting = True
        MyBase.OnPaint(pe)
    End If
    isOwnerPainting = True
End Sub

End Class

感谢您的帮助。

编辑：差异图片：img（无法在此处发布）

Answer 1

DrawString有很多问题，所以它被替换为TextRenderer.DrawText方法：

TextRenderer.DrawText(pe.Graphics, Me.Text, Me.Font, ...

覆盖按钮上的OnPaint - 字体不同

1 个答案: