是否可以在 Visual basic.net Windows 窗体应用程序中的文本框周围创建虚线边框？

Question

我一直在使用允许我在 vb.net 中的文本框周围画线的代码，但这些线是实线。我想用虚线甚至虚线来修饰应用程序。有没有办法像在表单上那样在文本框周围制作虚线？我正在使用的当前代码是这样..

Dim g As Graphics = e.Graphics
Dim pen As New Pen(Color.Aqua, 2.0)
Dim txtBox As Control
  For Each txtBox In Me.Controls
      If TypeOf (txtBox) Is TextBox Then
          g.DrawRectangle(pen, New Rectangle(txtBox.Location, txtBox.Size))
      End If
  Next
pen.Dispose()

我还想提一下，我可以在绘制事件中使用此代码在我的表单周围画一条虚线。将它放在文本框周围看起来真的很好，我希望这是可能的！

ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle,Color.Aqua, ButtonBorderStyle.Dashed)

编辑：我刚刚尝试过这段代码，它似乎在绘制虚线矩形，但它们并没有绕过我的文本框，所以不知道如何修复它。

Dim txtBox As Control
  For Each txtBox In Me.Controls
    If TypeOf (txtBox) Is TextBox Then
      ControlPaint.DrawBorder(e.Graphics, txtBox.ClientRectangle, txtBox.ForeColor, ButtonBorderStyle.Dashed)
    End If
  Next

Answer 1

喜欢这个

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    For Each txtBox As Control In Me.Controls
        If TypeOf (txtBox) Is TextBox Then
            Dim borderRectangle As Rectangle = New Rectangle(txtBox.Location, txtBox.Size)
            borderRectangle.Inflate(1, 1)
            ControlPaint.DrawBorder(e.Graphics, borderRectangle, txtBox.ForeColor, ButtonBorderStyle.Dashed)
        End If
    Next
End Sub