recentcategoriescontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 17 行

Partial Class Shop_Controls_RecentCategoriesControl
    Inherits System.Web.UI.UserControl
 
    Public Function GetCount() As Integer
        Return Profile.FavoriteCategories.Count

    End Function

    Protected Sub Page_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            rptRecentCats.DataSource = Profile.FavoriteCategories
            rptRecentCats.DataBind()
        End If
    End Sub
End Class