一个简单的模版控件

Imports System.ComponentModel
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls

<ParseChildren(True)> Public Class SuperSimpleRepeater : Inherits WebControls.WebControl : Implements INamingContainer
    Private _repeatCount As Integer
    Private _itemTemplate As ITemplate
    Public Property RepeateCount()
        Get
            Return _repeatCount
        End Get
        Set(ByVal Value)
            Value = _repeatCount
        End Set
    End Property
    <TemplateContainer(GetType(SuperSimpleRepeater))> Public Property ItemTemplate() As ITemplate
        Get
            Return _itemTemplate
        End Get
        Set(ByVal Value As ITemplate)
            _itemTemplate = Value
        End Set
    End Property

    Protected Overrides Sub CreateChildControls()
        Controls.Clear()
        Dim i As Integer
        'For i = 1 To 10 Step 1
        Dim container As New Panel
        _itemTemplate.InstantiateIn(container)
        Controls.Add(container)
        'Next i

    End Sub
End Class