ASP.NET

<br />
<DefaultProperty("Text"), ToolboxData("<{0}:TestControl runat=server></{0}:TestControl>")> _<br />
<PartialCaching(10, Nothing, Nothing, "CustomTest")> _<br />
Public Class TestControl<br />
    Inherits WebControl<br />
<br />
    Public Sub New()<br />
        MyBase.New("div")<br />
<br />
    End Sub<br />
<br />
    Protected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)<br />
        writer.Write("Time Now: " & Date.Now)<br />
    End Sub<br />
<br />
End Class<br />

<br />
Public Class TestControl<br />
    Inherits WebControl<br />
<br />
    Protected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)<br />
        writer.Write("Time Now: " & Date.Now)<br />
    End Sub<br />
<br />
    Public Overrides Sub RenderBeginTag(ByVal writer As System.Web.UI.HtmlTextWriter)<br />
        'MyBase.RenderBeginTag(writer)<br />
    End Sub<br />
<br />
    Public Overrides Sub RenderEndTag(ByVal writer As System.Web.UI.HtmlTextWriter)<br />
        'MyBase.RenderEndTag(writer)<br />
    End Sub<br />
<br />
<br />
End Class<br />

papy-boom wrote:

Unable to open the Web 'http://localhost/MyProjectFO/Test.csproj'.

<br />
Partial Public Class _Default<br />
    Inherits System.Web.UI.Page<br />
<br />
    Protected Overrides Sub CreateChildControls()<br />
        MyBase.CreateChildControls()<br />
<br />
        Dim textBox As New TextBox<br />
        textBox.ID = "TextBox1"<br />
        PlaceHolder1.Controls.Add(textBox)<br />
<br />
        Dim button As New Button<br />
        button.ID = "Button1"<br />
        button.Text = "Click Me"<br />
        AddHandler button.Click, AddressOf Button1_Click<br />
        PlaceHolder1.Controls.Add(button)<br />
<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)<br />
<br />
        Dim label As New Label<br />
        label.ID = "Lable1"<br />
        label.Text = "I was just posted back"<br />
        PlaceHolder1.Controls.Add(label)<br />
<br />
    End Sub<br />
<br />
End Class<br />

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Private Property TextBoxCount() As Integer
        Get
            If ViewState("TextBoxCount") Is Nothing Then
                ViewState("TextBoxCount") = 1
            End If
            Return CInt(ViewState("TextBoxCount"))
        End Get
        Set(ByVal value As Integer)
            ViewState("TextBoxCount") = value
        End Set
    End Property

    Protected Overrides Sub CreateChildControls()
        MyBase.CreateChildControls()

        For textBoxCounter As Integer = 1 To TextBoxCount
            AddButton()
        Next

    End Sub

    Private Sub AddButton()

        Dim textBox As New TextBox
        textBox.ID = "TextBox" + PlaceHolder1.Controls.Count.ToString
        PlaceHolder1.Controls.Add(textBox)

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        AddButton()
        TextBoxCount += 1

    End Sub

End Class