specialoffernavcontrol.ascx.vb

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

Imports NetShopForge.Library.SpecialOffer
Partial Class Admin_Merchandising_Controls_SpecialOfferNavControl
    Inherits System.Web.UI.UserControl
    Private Const CONDITION As String = "设置条件"
    Private Const BONUS As String = "奖励内容"
    Private Const PROMOTEXT As String = "详细内容"
    Private Const OFFER As String = "标题和周期"
    Private Const STATUS As String = "状  态"

    Public Event StepMenuItemClick(ByVal navigateUrl As String)

    Public Property OfferTitle() As String
        Get
            Return Title.Text
        End Get
        Set(ByVal value As String)
            Title.Text = value
        End Set
    End Property

    Public Property Enabled() As Boolean
        Get
            Return MenuStep.Enabled
        End Get
        Set(ByVal value As Boolean)
            MenuStep.Enabled = value
        End Set
    End Property

    Private Sub BindStepList()
        'Dim navString As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode={0}&offerID=" & hfOfferID.Value.ToString
        MenuStep.Items.Add(New MenuItem(CONDITION, "CONDITION"))
        MenuStep.Items.Add(New MenuItem(BONUS, "BONUS"))
        MenuStep.Items.Add(New MenuItem(PROMOTEXT, "PROMOTEXT"))
        MenuStep.Items.Add(New MenuItem(OFFER, "OFFER"))
        '  MenuStep.Items.Add(New MenuItem(STATUS, "STATUS"))
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim offerID As String = Request("offerid")
            Dim objSP As SpecialOfferInfo
            If IsNothing(offerID) Then My.Response.Redirect("~/Admin/Merchandising/Offers.aspx")

            objSP = SpecialOfferController.GetSpecialOffer(CInt(offerID))
            hfOfferID.Value = objSP.OfferID
            Title.Text = objSP.Title
            BindStepList()
        End If
    End Sub

    Protected Sub MenuStep_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles MenuStep.MenuItemClick
        Dim navString As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode={0}&offerID=" & hfOfferID.Value.ToString
        RaiseEvent StepMenuItemClick(String.Format(navString, e.Item.Value.ToLower))
    End Sub
End Class