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