如何消除點選按鈕時周圍出現的白線？

使用語言：VB.NET
原網站：

問題描述

在我用滑鼠點選，然後彈出一個檔案選擇對話方塊前，按鈕沒有異常，但之後它的周圍出現了一圈白線。

只有一句程式碼openFileDialog1.ShowDialog()。
按鈕的FlatStyle屬性為flat，BackgroundImage是一張PNG格式的影象。
白線出現後，點選窗體它就會消除。

解答

一個簡單的辦法是把按鈕的FlatAppearance.BorderColor

Private Sub SomeButton_MouseUp(sender As Object, e As MouseEventArgs) Handles SomeButton.MouseUp
    Dim ctl As Button = DirectCast(sender, Button)
    ctl.FlatAppearance.BorderColor = ctl.Parent.BackColor
End Sub

使用Control.Paint

Private Sub SomeButton_Paint(sender As Object, e As PaintEventArgs) Handles SomeButton.Paint
    Dim ctl As Button = DirectCast(sender, Button)
    ControlPaint.DrawBorder(e.Graphics, ctl.ClientRectangle, ctl.BackColor, ButtonBorderStyle.Solid)
End Sub
 

或者，也可以自己重繪控制元件的邊框：
（要注意的是ClientRectangle的Width和Height必須被縮小1畫素）

Private Sub SomeButton_Paint(sender As Object, e As PaintEventArgs) Handles SomeButton.Paint
    Dim ctl As Control = DirectCast(sender, Control)
    Dim r As Rectangle = ctl.ClientRectangle
    Using pen As Pen = New Pen(ctl.BackColor, 1)
        e.Graphics.DrawRectangle(pen, r.X, r.Y, r.Width - 1, r.Height - 1)
    End Using
End Sub