vb.net - 如何在无边界表单周围绘制轮廓？

Question

我有一个用作启动屏幕的表单。因为它是一个飞溅，所以它没有边框。启动画面是白色的，所以当它加载到其他白色的东西上时，它看起来很有趣。我正在考虑在表单周围添加一个大约 1 px 左右的轮廓，以便给它一个细边框。可以将其视为在 Photoshop 中为图像添加笔触。我该怎么做？我正在使用 vb.net。

Answer 1

您可以使用 GDI+：

Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    MyBase.OnPaintBackground(e)

    Dim rect As New Rectangle(0, 0, Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)

    e.Graphics.DrawRectangle(Pens.Black, rect)
End Sub

（当然，您可以用 any 代替Pen。Pens.Black）

Answer 2

您还可以使用以下内容：

    Private Sub frm_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        ControlPaint.DrawBorder(e.Graphics, Me.ClientRectangle, Color.Black, ButtonBorderStyle.Outset)
    End Sub

Color 和 ButtonBorderStyle 都可以根据您的需要进行定制。

Answer 3

如果您在表单中使用停靠面板，现在可能会显示此边框。如果您在表单中使用停靠面板，我建议在表单的所有边缘提供 1 的“填充”。这完美地工作。