default.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 49 行

<%@ Page Trace="true" %>
<%@ Register TagPrefix="Wrox" Namespace="WroxControls" 
			  Assembly="DictionaryLister2" %>

<script runat=server language="VB">


	Public ReadOnly Property Name As String
		Get
			Return "Templates Rock"
		End Get
	End Property
	
	
	Sub Page_Init( sender As Object , e As EventArgs )
	
		If Page.IsPostBack = False Then
		
			Dim Names() As String = {"Richard", "Alex", "Rob"}

			SessionList.DataSource = names

			Page.DataBind()
		
		End If
	
	End Sub

</script>


<form runat="server">

	<Wrox:ICollectionLister2 id="SessionList" runat=server>

		<HeadingStyle>
			<h3>ICollection Lister</H3>
		</HeadingStyle>

		<ItemStyle>
			<BR><Strong>An item in the collection: <%#Container.DataItem%></Strong></BR>
		</ItemStyle>

	</Wrox:ICollectionLister2>


	<p><asp:button Text="Postback..." runat="server" />

</form>