我正在尝试创建一个自定义 TextBox 控件,该控件将具有两个附加属性 BorderColor 和 BorderSize。但即使 BorderStyle 设置为 None,边框也不会出现。这是我的代码:
Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel
Public Class BorderedTextBox
Inherits TextBox
Dim BColor As Color = Color.Black
Dim BSize As Double = 1.0
Public Property BorderColor As Color
Get
Return BColor
End Get
Set(value As Color)
BColor = value
End Set
End Property
Public Property BorderSize As Double
Get
Return BSize
End Get
Set(value As Double)
BSize = value
End Set
End Property
Public Sub New()
SetStyle(ControlStyles.UserPaint, True)
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim pen As New Pen(BColor, BSize)
g.DrawRectangle(pen, New Rectangle(Me.Location, Me.Size))
pen.Dispose()
MyBase.OnPaint(e)
End Sub
End Class