top10.ascx.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 42 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data


Public Class top10: Inherits UserControl						'userinfo类继承自UserControl
    Protected WithEvents myRepeater As System.Web.UI.WebControls.Repeater

	Private _KindId As Integer

	'定义一个只写属性
	Public WriteOnly Property KindId As String					'定义一个KindId属性      
		Set
			_KindId = Value										'利用Value关键字设置属性值
		End Set
	End Property

	'启动页面时执行本过程
    Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Dim dbs As New DataBusiness
            Dim dv As DataView = dbs.GetTop10(_KindId)
            myRepeater.DataSource = dv
            myRepeater.DataBind()
        End If
    End Sub
    '该过程用于添加序号
    Sub MyRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs)
        '这个判断语句表示，只有对于数据行才执行
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            '下面找到标签控件
            Dim objlblNo As Label = e.Item.FindControl("lblNo")
            objlblNo.Text = e.Item.ItemIndex + 1
        End If
    End Sub

    Private Sub InitializeComponent()

    End Sub
End Class