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

时间:2012-09-12 03:23:18

标签: vb.net visual-studio-2010 user-interface gdi

我有一个表单,我用作启动画面。因为它是一个飞溅,它没有边框。启动画面是白色的,所以当它加载其他白色的东西时它看起来很有趣。我想在表格周围添加大约1 px左右的轮廓以给它一个薄边框。可以把它想象为在photoshop中为图像添加笔划。我该怎么做?我正在使用vb.net。

3 个答案:

答案 0 :(得分:6)

您可以使用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。)

答案 1 :(得分: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都可以根据需要进行自定义。

答案 2 :(得分:0)

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