FlatStyle.System样式下VB.NET按钮图片不显示的解决求助

问题描述 #

我是Visual Basic.NET编程新手。窗体上有4个按钮，均设置了同一张图片：

• FlatStyle设为Flat、Standard和Popup时，图片显示正常
• 设为FlatStyle.System时，图片无法显示

尝试过两种方法但未成功：

1. 在Form的Paint事件绘制图片，但图片被按钮控件遮挡，无法显示在前景

   Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       Dim img1 As Image = My.Resources.image
       Dim g As Graphics = e.Graphics
       g.DrawImage(img1, New Rectangle(260, 180, 24, 24))
   End Sub
   

2. 在Button4的Click事件（通过其他按钮触发）中绘制图片，但仅点击时显示，鼠标悬停Button4时消失

   Private Sub Popup_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim img2 As Image = My.Resources.image
       Dim g As Graphics = Button4.CreateGraphics()
       g.DrawImage(img2, 9, 13, 24, 24)
   End Sub
   

问题原因 #

当Button的FlatStyle设为System时，控件由Windows操作系统负责绘制，WinForms不会自动渲染Button的Image属性，导致图片无法显示。

可行解决方案 #

方案1：用PictureBox叠加在按钮上（新手友好，实现简单） #

通过在按钮上放置一个PictureBox来显示图片，步骤如下：

1. 在窗体上添加一个PictureBox控件，命名为pbButtonImage
2. 设置其Image为目标图片，SizeMode选AutoSize或合适的模式
3. 将pbButtonImage的Parent设为目标按钮（Button4），使其随按钮移动
4. 调整Location和Size，让图片在按钮上显示位置正确
5. 设置BackColor = Color.Transparent，避免遮挡按钮背景
6. 设置Enabled = False，防止干扰按钮的点击事件

代码示例（在Form_Load事件中设置）：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim targetImg As Image = My.Resources.image
    With pbButtonImage
        .Image = targetImg
        .Parent = Button4
        .Location = New Point(9, 13) ' 根据需求调整位置
        .Size = New Size(24, 24)
        .BackColor = Color.Transparent
        .Enabled = False
    End With
End Sub

方案2：自定义Button控件（灵活可控） #

继承Button类，重绘逻辑确保FlatStyle为System时也能显示图片：

Public Class CustomSystemButton
    Inherits Button

    Protected Overrides Sub OnPaint(ByVal pevent As PaintEventArgs)
        ' 先让系统绘制按钮基础样式
        MyBase.OnPaint(pevent)
        ' 如果有图片，绘制到按钮上（这里居中，可自行调整位置）
        If Me.Image IsNot Nothing Then
            Dim drawX = (Me.Width - Me.Image.Width) \ 2
            Dim drawY = (Me.Height - Me.Image.Height) \ 2
            pevent.Graphics.DrawImage(Me.Image, drawX, drawY)
        End If
    End Sub

    Private _flatStyle As FlatStyle
    Public Overrides Property FlatStyle As FlatStyle
        Get
            Return _flatStyle
        End Get
        Set(ByVal value As FlatStyle)
            _flatStyle = value
            Me.Invalidate() ' 强制控件重绘
        End Set
    End Property
End Class

使用方法：

1. 编译项目，自定义控件会出现在工具箱中
2. 将窗体上的Button4替换为CustomSystemButton
3. 设置其Image属性和FlatStyle = System即可

对之前尝试的说明 #

• 方法1在Form的Paint事件绘制，会被Button控件覆盖（控件Z顺序在Form之上），所以无法显示在前景
• 方法2用CreateGraphics()绘制的是临时图形，控件重绘（如鼠标悬停、窗口刷新）时会消失，必须在控件的Paint事件中绘制才能持久显示，但System样式按钮默认不触发WinForms的Paint事件，因此无效

内容的提问来源于stack exchange，提问作者Kraster