editspeedbarcontrol.ascx.vb

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

Imports NetShopForge.Library.SpeedBar
Partial Class Admin_Administration_Controls_EditSpeedBarControl
    Inherits System.Web.UI.UserControl



    Private Sub binddate(ByVal speedBarID As Integer)
        Dim sbInfo As SpeedBarInfo
        Dim sc As New SpeedBarController
        sbInfo = sc.GetSpeedBar(speedBarID)
        txtItemOrder.Text = sbInfo.ItemOrder
        txtTitle.Text = sbInfo.Title
        txtToolTip.Text = sbInfo.ToolTip
        txtCss.Text = sbInfo.CSS
        txtURL.Text = sbInfo.URL
        ddlIsValid.SelectedValue = CInt(sbInfo.IsValid)

    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim sbInfo As New SpeedBarInfo
        sbInfo.ItemOrder = txtItemOrder.Text
        sbInfo.Title = txtTitle.Text
        sbInfo.ToolTip = txtToolTip.Text
        sbInfo.URL = txtURL.Text
        sbInfo.IsValid = CBool(ddlIsValid.SelectedValue)
        sbInfo.CSS = txtCss.Text
        If hfBarID.Value.Length > 0 Then
            sbInfo.BarID = CInt(hfBarID.Value)
            SpeedBarController.Instance.UpdateSpeedBar(sbInfo)
        Else
            hfBarID.Value = SpeedBarController.Instance.AddSpeedBar(sbInfo)
            lblDialogTitle.Text = "编辑导航菜单"
        End If
        SpeedBarController.Instance.ClearSpeedbarCache()

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            hfBarID.Value = Request("barID")
            If hfBarID.Value.Length > 0 AndAlso IsNumeric(hfBarID.Value) Then
                lblDialogTitle.Text = "编辑导航菜单"
                binddate(CInt(hfBarID.Value))
            Else
                lblDialogTitle.Text = "添加导航菜单"
            End If
        End If
    End Sub
End Class