G
Guest
Hi can someone please tell me how I dynamically create a menu like the one shown below from a database. I want to create a loop that loops through all the records in a table and builds a table similar to the menu shown below
I would be grateful if you could give me a ny assistance with this
Thanks
...:: CODE ::.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa
'Put user code to initialize the page her
If (Page.IsPostBack = False) The
Dim submenu1 As New skmMenu.MenuItem("<img src=""images/menublip.gif"" align=""absmiddle"">Home", ""
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page1.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page2.html")
Dim submenu3 As New skmMenu.MenuItem("Sub Item 3 ->", ""
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 1", "page1.html")
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 2", "page2.html")
submenu1.SubItems.Add(submenu3
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 4", "page4.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 5", "page5.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 6", "page6.html")
Menu1.Items.Add(submenu1
Dim submenu2 As New skmMenu.MenuItem("<img src=""images/menublip.gif"" align=""absmiddle"">Office", ""
submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page3.html", "tooltip1")
submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page4.html", "tooltip2")
Menu1.Items.Add(submenu2
Menu1.CssClass = "menustyle
Menu1.DefaultCssClass = "menuitem
Menu1.DefaultMouseOverCssClass = "mouseover
Menu1.HighlightTopMenu = Tru
Menu1.Opacity = 7
Menu1.zIndex = 10
End I
End Sub
I would be grateful if you could give me a ny assistance with this
Thanks
...:: CODE ::.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa
'Put user code to initialize the page her
If (Page.IsPostBack = False) The
Dim submenu1 As New skmMenu.MenuItem("<img src=""images/menublip.gif"" align=""absmiddle"">Home", ""
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page1.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page2.html")
Dim submenu3 As New skmMenu.MenuItem("Sub Item 3 ->", ""
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 1", "page1.html")
submenu3.SubItems.Add(New skmMenu.MenuItem("Sub Item 3 - 2", "page2.html")
submenu1.SubItems.Add(submenu3
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 4", "page4.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 5", "page5.html")
submenu1.SubItems.Add(New skmMenu.MenuItem("Sub Item 6", "page6.html")
Menu1.Items.Add(submenu1
Dim submenu2 As New skmMenu.MenuItem("<img src=""images/menublip.gif"" align=""absmiddle"">Office", ""
submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 1", "page3.html", "tooltip1")
submenu2.SubItems.Add(New skmMenu.MenuItem("Sub Item 2", "page4.html", "tooltip2")
Menu1.Items.Add(submenu2
Menu1.CssClass = "menustyle
Menu1.DefaultCssClass = "menuitem
Menu1.DefaultMouseOverCssClass = "mouseover
Menu1.HighlightTopMenu = Tru
Menu1.Opacity = 7
Menu1.zIndex = 10
End I
End Sub