vb.net - 如何将自定义边框添加到 FormBorderStyle=None - 表单？

Question

我有一个表单，其属性 FormBorderStyle 设置为“无”，并在顶部有一个用于拖动和按钮的自定义栏。

现在我想给表单一个边框，因为它是一个子表单，并且父表单与子表单具有相同的背景颜色，因此很难看到子表单。 不，我不能/不会更改背景颜色。

帮助

Answer 1

有一种方法不需要设置背景图像和/或固定大小的表单。所以这是我认为最正确、最简单的方法。假设您有一个名为 Form1 的表单，您需要做的就是:

Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, Color.Black, ButtonBorderStyle.Solid)
End Sub

如果您想使用 Windows 版本提供的默认边框，另一种选择是:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
    Me.Text = ""
    Me.ControlBox = False
End Sub