http://localhost:49431/WebSite/MasterPage.master.vb后台建立菜单


Partial Class MasterPage
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Menu1 As Menu = New Menu()
        Dim MenuItem0 As MenuItem = New MenuItem("主页", "", "", "~/Index.aspx", "")
        Dim MenuItema As MenuItem = New MenuItem("用户", "", "", "~/User.aspx", "")
        Dim MenuItemb As MenuItem = New MenuItem("商品", "", "", "~/Goods.aspx", "")
        Dim MenuItemc As MenuItem = New MenuItem("订单", "", "", "~/Jiaohuo.aspx", "")
        Dim MenuItemd As MenuItem = New MenuItem("d", "", "", "~/Goods.aspx", "")
        Dim MenuIteme As MenuItem = New MenuItem("e", "", "", "~/Goods.aspx", "")
        Dim MenuItemf As MenuItem = New MenuItem("f", "", "", "~/Goods.aspx", "")
        Dim MenuItemg As MenuItem = New MenuItem("g", "", "", "~/Goods.aspx", "")
        Dim MenuItemh As MenuItem = New MenuItem("h", "", "", "~/User.aspx", "")
        Dim MenuItemi As MenuItem = New MenuItem("i", "", "", "~/Goods.aspx", "")
        Dim MenuItemj As MenuItem = New MenuItem("j", "", "", "~/Jiaohuo.aspx", "")
        Dim MenuItemk As MenuItem = New MenuItem("k", "", "", "~/Goods.aspx", "")
        Dim MenuIteml As MenuItem = New MenuItem("l", "", "", "~/Goods.aspx", "")
        Dim MenuItemm As MenuItem = New MenuItem("m", "", "", "~/Goods.aspx", "")
        Dim MenuItemn As MenuItem = New MenuItem("n", "", "", "~/Goods.aspx", "")
        Dim MenuItemo As MenuItem = New MenuItem("o", "", "", "~/Goods.aspx", "")
        Dim MenuItemp As MenuItem = New MenuItem("p", "", "", "~/Goods.aspx", "")
        Dim MenuItemq As MenuItem = New MenuItem("q", "", "", "~/Goods.aspx", "")
        Dim MenuItemr As MenuItem = New MenuItem("r", "", "", "~/Goods.aspx", "")
        Dim MenuItems As MenuItem = New MenuItem("s", "", "", "~/User.aspx", "")
        Dim MenuItemt As MenuItem = New MenuItem("t", "", "", "~/Goods.aspx", "")
        Dim MenuItemu As MenuItem = New MenuItem("u", "", "", "~/Jiaohuo.aspx", "")
        Dim MenuItemv As MenuItem = New MenuItem("v", "", "", "~/Goods.aspx", "")
        Dim MenuItemw As MenuItem = New MenuItem("w", "", "", "~/Goods.aspx", "")
        Dim MenuItemx As MenuItem = New MenuItem("x", "", "", "~/Goods.aspx", "")
        Dim MenuItemy As MenuItem = New MenuItem("y", "", "", "~/Goods.aspx", "")
        Dim MenuItemz As MenuItem = New MenuItem("z", "", "", "~/Goods.aspx", "")
        Menu1.Orientation = Orientation.Horizontal
        Menu1.Items.Add(MenuItem0)
        Menu1.Items.Add(MenuItema)
        Menu1.Items.Add(MenuItemb)
        Menu1.Items.Add(MenuItemc)
        Menu1.Items.Add(MenuItemd)
        Menu1.Items.Add(MenuIteme)
        Menu1.Items.Add(MenuItemf)
        Menu1.Items.Add(MenuItemg)
        Menu1.Items.Add(MenuItemh)
        Menu1.Items.Add(MenuItemi)
        Menu1.Items.Add(MenuItemj)
        Menu1.Items.Add(MenuItemk)
        Menu1.Items.Add(MenuIteml)
        Menu1.Items.Add(MenuItemm)
        Menu1.Items.Add(MenuItemn)
        Menu1.Items.Add(MenuItemo)
        Menu1.Items.Add(MenuItemp)
        Menu1.Items.Add(MenuItemq)
        Menu1.Items.Add(MenuItemr)
        Menu1.Items.Add(MenuItems)
        Menu1.Items.Add(MenuItemt)
        Menu1.Items.Add(MenuItemu)
        Menu1.Items.Add(MenuItemv)
        Menu1.Items.Add(MenuItemw)
        Menu1.Items.Add(MenuItemx)
        Menu1.Items.Add(MenuItemy)
        Menu1.Items.Add(MenuItemz)
        Me.form1.Controls.Add(Menu1)
    End Sub
End Class
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值