Navigation - Menu

Tornado Menu Navigation offers a variety of formats - Basic, Buttons, Popup and Tabs. Data feed for the menus can be either in-line or from file. Colors and styles of the menu are pre-programmed to sync with the 30+ Skin styles. MouseOver image and sound are supported.

Basic Menus

The following example illustrates several common types of Basic and PopUp menus.

<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
   response.write("<Head><link rel='stylesheet' href='/tornado/css/plain/Style.css'></Head><body onLoad='self.focus()'>")
   response.write("<div align='center'><table Border=0 cellpadding='1' cellspacing='0' width='80%'><tr><td class='R2'><div align='center'><span class='TL1'>Tornado menus</span></div></td></tr></div></td></tr></table></div><P>")
   Dim hmenu As New Tornado.Z()
   With hmenu
'... Fading Type
      .dbMenuParams = "type=1| style=Tornado| ve=false| du=http://www.aspdb.com| wi=300|buttontype=3| ClickSound=click| oversound=boing"
      .dbMenuData = "la=ASPdb.com, la=USIntertech| u=http://www.usintertech.com, la=ASPdb.net| u=http://www.aspdb.net"
      Response.Write("<Center>" & .ASPdbMenu() & "</center><BR>")
'...Basic Type
      .dbMenuParams = "type=5| style=brownbricks| ve=false| du=http://www.aspdb.com| wi=300|buttontype=3| ClickSound=click| oversound=boing"
      .dbMenuData = "la=ASPdb.com, la=USIntertech| u=http://www.usintertech.com, la=ASPdb.net| u=http://www.aspdb.net"
      Response.Write("<Center>" & .ASPdbMenu() & "</center><BR>")

      Response.write("</tr></table></center><P>")
   End With
End Sub
</script>
</body>

PopUp Menus

<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
   response.write("<Head><link rel='stylesheet' href='/tornado/css/plain/Style.css'></Head><body onLoad='self.focus()'>")
   response.write("<div align='center'><table Border=0 cellpadding='1' cellspacing='0' width='80%'><tr><td class='R2'><div align='center'><span class='TL1'>Tornado PopUp menus</span></div></td></tr></div></td></tr></table></div><P>")
   Dim hmenu As New Tornado.Z()
   With hmenu
'...PopUp Type Horizontal
      .dbMenuParams = "type=2|style=Cappuccino |ve=false| wi=440|he=25| buttontype=3| menudatafile=/tornado/DB/usit.txt| ClickSound=Hi| oversound=pop"
      Response.Write("<Center>" & .ASPdbMenu() & "</center><BR>")
'...PopUp Type Vertical
      .dbMenuParams = "type=2|style=2|ve=true| wi=100|he=120| buttontype=3| menudatafile=/tornado/DB/usit.txt| ClickSound=swish| oversound=siren"
      Response.Write("<Center><Table><tr><td>" & .ASPdbMenu() & "</td>")
'...PopUp Type Vertical Buttons
      .dbMenuParams = "type=2|style=1,2,3,4,5,6| menudatafile=/tornado/DB/usit.txt| ClickSound=click| oversound=beep|width=110|height=22"
      Response.Write("<td>" & .ASPdbMenu() & "</td>")

      Response.write("</tr></table></center><P>")
   End With
End Sub
</script>
</body>

Multi-Rows Tab Menu

In order to work with a menu, a FRAME is usually needed. A special type of Tab menu is implemented to include the IFRAME such that only ONE file is needed and no FRAME programming is needed. Compare to normal one row of tabs, the Tornado Tab Menus supports multiple rows.

<script language='vb' runat='server'>
Sub Page_Load(Source as Object, E as EventArgs)
   Dim Menu As New Tornado.Z()
   With Menu
      .dbMenuParams = "type=3| st=aspdbzen| Fp=http://www.aspdb.com/Tornado/default.html | mw=583| mh=60| dw=670| dh=520 | Ta=left | numberOfRows=3"
      .dbMenuData = "l=Home| u=http://www.aspdb.com/default.htm | i=xpicons/new1-05, l=ebay| u=http://www.ebay.com/| i=xpbullets/b05, l=PCmag| u=http://www.pcmag.com/| i=xpshell/new4-096, l=AOL search| u=http://search.aol.com/aolcom/index.jsp| i=xpicons/new1-06, l=FedEX| u=http://www.fedex.com/| i=xpbullets/b06, l=hp| u=http://www.hp.com/| i=xpicons/new1-08, l=SONY| u=http://sony.com/| i=deskpix/desk015, l=wired news| u=http://www.wired.com/news/| i=xpbullets/b09, l=Spencer gifts| u=http://www.spencergifts.com/| i=Heart, l=Grid with user index| u=http://www.aspdb.net/tornado/eg_Gridwithuserindex.aspx| i=xpicons/new2-37, l=Nav Panel #1| u=http://www.aspdb.net/tornado/eg_minibar3.aspx| i=xpicons/new2-01, l=Super Repeater| u=http://www.aspdb.net/tornado/eg_MagicCellRepeater1.aspx| i=xpshell/new4-098"
      .dbTextHolder = "Title=Tab Menu| sub=Complete multi-row tab menu and display in 3 lines of Code!"
      Response.Write("<Center>" & .ASPdbMenu() & "</center>")
   End With
End Sub
</script>
</body>