vb.net - フチなしフォームの周りにアウトラインを描画する方法は?

Question

スプラッシュ スクリーンとして使用しているフォームがあります。スプラッシュなので縁取りはありません。スプラッシュ スクリーンは白いので、他の白いものに対してロードすると面白いように見えます。フォームの周りに約1px程度のアウトラインを追加して、細い境界線を与えることを考えていました。これは、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(もちろん、 anyをに置き換えることができますPens.Black。)