shophelp.aspx.vb

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

Partial Class Admin_Management_ShopHelp
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim mode As String = Request("mode")
        LoadCartControl(mode)

    End Sub


    Private Sub LoadCartControl(ByVal mode As String)

        If IsNothing(mode) Then mode = "shophelpcategory"

        Dim uc As UserControl = Nothing
        Select Case mode.ToLower
            Case "shophelpcategory"
                uc = CType(LoadControl("Controls/shopHelpCategoryControl.ascx"), UserControl)
            Case "shophelp"
                uc = CType(LoadControl("Controls/shopHelpControl.ascx"), UserControl)
            Case "editshophelp"
                uc = CType(LoadControl("Controls/EditshopHelpControl.ascx"), UserControl)
            Case "editshophelpcategory"
                uc = CType(LoadControl("Controls/EditshopHelpCategoryControl.ascx"), UserControl)
            Case Else
                uc = CType(LoadControl("Controls/shopHelpCategoryControl.ascx"), UserControl)
        End Select

        phshopHelp.Controls.Clear()
        phshopHelp.Controls.Add(uc)



    End Sub


End Class