listpagerstyle.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 30 行

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" %>

<Script Runat="Server">

Sub Page_Load
  Dim colArrayList As New ArrayList
  Dim intCounter As Integer

  For intCounter = 1 to 50
    colArrayList.Add( "movie " & intCounter.ToString() )
  Next
  lstMovies.DataSource = colArrayList
  lstMovies.DataBind()
End Sub

</Script>

<Mobile:Form 
  Paginate="True"
  PagerStyle-PageLabel="Page {0} of {1}"
  PagerStyle-NextPageText="Continue"
  PagerStyle-PreviousPageText="Back"
  Runat="server">
<b>Now Playing:</b>
<br/>
<Mobile:List 
  ID="lstMovies" 
  Runat="Server"/>
</Mobile:Form>