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

（当然，您可以用任何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

颜色和ButtonBorderStyle都可以根据需要进行自定义。

Answer 3

如果您在表单中使用停靠面板，现在可能会显示该边框。如果您在表单中使用停靠面板，建议在表单的所有边缘上将“填充”设置为1。效果很好。

如何围绕无边框形式绘制轮廓？

3 个答案: