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

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,当然).