vb.net - グループボックス内のテキストボックスの周りに四角形を描く

Question

TextBoxにあるコントロールの周りにカスタム境界線を追加したいGroupBox。私はこのグラフィックスに慣れていないので、問題を理解するのに苦労しています。

これは私が使用しているコードです:

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

    Dim _g As Graphics = Me.GroupBox1.CreateGraphics
    Dim pen As New Pen(Color.Red, 2.0)
    _g.DrawRectangle(pen, New Rectangle(TextBox1.Location, TextBox1.Size))
    pen.Dispose()

End Sub

このフォームは、メイン フォームからボタンをクリックすると表示されるセカンダリ フォームです。フォームが読み込まれると、赤い境界線が 1 秒間表示されてから消えます。

Answer 1

フォームではなく、GroupBox ペイント イベントを処理する必要があります。

Private Sub HandleGroupBox1Paint(sender As Object, e As PaintEventArgs) Handles GroupBox1.Paint
    Using p As New Pen(Color.Red, 2.0)
        e.Graphics.DrawRectangle(p, Me.TextBox1.bound)
    End Using
End Sub