I am overriding the paint event as I need to give a text box an extra property. In this case the extra property is a border colour for a text box. When the User Control which contains the text boxes appears it does not fire the OnPaint
event. I've no idea why this is happening.
My code is as follows
CustomTaskBox class
Public Class CustomTextBox
Inherits TextBox
<Browsable(True)>
<Category("Extended Properties")>
<Description("Set TextBox border Color")>
Public Sub New()
Multiline = False
BorderStyle = BorderStyle.None
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
Dim buttonPen = New Pen(Color.Firebrick, 3)
Dim buttonRect = New Rectangle(0, 0, Size.Width - 1, Size.Height - 1)
e.Graphics.DrawRectangle(buttonPen, buttonRect)
End Sub
End Class
Main Class
Dim _NewTextBox As New CustomTextBox
_NewTextBox.Name = textBoxName
_NewTextBox.Multiline = multiline
_NewTextBox.Text = textBoxText
_NewTextBox.Top = topForNextControl
_NewTextBox.Left = 17
_NewTextBox.Width = textBoxWidth * widthScaleFactor
_MainContent.Controls.Add(_NewTextBox)