Here's the situation...Context - Using an Inherited WebControl object as a
base for server custom controls.
In a web custom control, whenever I create a child control and add it to the
Controls class, it takes 3 lines of code.
Example:
Dim TextBox as System.Web.UI.WebControls.TextBox
1..TextBox = New System.Web.UI.WebControls.TextBox
2..TextBox.ID = "myTextBox"
3..Controls.Add(TextBox)
I would like to overload the Controls object in WebControl to do this in one
line of code.
Controls.Add(New System.Web.UI.WebControls.TextBox, "myTextBox")
HOWEVER...
I don't think I've got everything glued together. For example: FindControl
doesn't return any controls that exist in my custom object. It is still
looking at myBase.Controls (I think). If I need to override FindControl,
are there other methods that I need to override as well, or am I going down
the wrong path?
'sample code
Public Class MyControl
Inherits CompositeWebControl
Protected Overrides Sub CreateChildControls()
Controls.Add(New System.Web.UI.WebControls.TextBox, "myTextBox")
End Sub
Protected Overrides Sub Render(ByVal writer As
System.Web.UI.HtmlTextWriter)
'breaks on this method - FindControl returns Nothing
FindControl("myTextBox").RenderControl(writer)
End Sub
End Class
Option Explicit On
Option Strict On
'inherited WebControl - use as a base for new WebControls
Public Class CompositeWebControl
Inherits System.Web.UI.WebControls.WebControl
Implements System.Web.UI.INamingContainer
Private mobjControls As WebControlCollection
Protected Overrides Function CreateControlCollection() As
System.Web.UI.ControlCollection
If (mobjControls Is Nothing) Then
mobjControls = New WebControlCollection(Me)
End If
Return CType(mobjControls, System.Web.UI.ControlCollection)
End Function
<System.ComponentModel.Browsable(False)> _
Public Shadows ReadOnly Property Controls() As WebControlCollection
Get
Me.CreateControlCollection()
Me.EnsureChildControls()
Return mobjControls
End Get
End Property
End Class
'custom ControlCollection that has an overloaded Add method...
Public Class WebControlCollection
Inherits System.Web.UI.ControlCollection
Sub New(ByVal owner As System.Web.UI.Control)
MyBase.New(owner)
End Sub
Public Overloads Sub Add(ByVal child As System.Web.UI.Control, ByVal ID
As String)
child.ID = ID
Me.Add(child)
End Sub
End Class
