Jak si jednoduše vytvořit rozbalovací menu pomocí
VBScriptu
V dnešní době rozsáhlých WWW stránek je
třeba ulehčit návstěvníkovi orientaci. K tomu nám může velice dobře
posloužit menu. A to takové, které se sbaluje a rozbaluje dle prání
návštěvníka. Na internetu je k dispozici mnoho programů, které tato
menu generují, a také již samotná menu. Téměr všechna jsou napsána v
JavaScriptu, který není pro běžného tvůrce moc přehledný. Proto
přináším návod na menu ve VBScriptu, který je podle mě mnohem
jednodušší.
Použijeme styly, a to zejména vlastnost
display. Je-li argument dispaly prázdý nic se nestane, je-li
však none, bude stránka vypadat, jako by tam příslušný tag
vůbec nebyl.
Function
ShowHide(object)
If object.Style.Display
= "" Then
object.Style.Display =
"none"
Else
object.Style.Display
= ""
End If
End
Function
Tato funkce je schopná po zadání argumentu object
zviditelnit nebo zneviditelnit tag, jehož ID je práve argumentem
této funkce.
Příklad:
<div
OnClick="VBScript:ShowHide(menuWWW)">Seznam WWW stránek o
ASP</div>
<div id=menuWWW
style="display:none">
<a
href="http://www.activeserverpages.cz">Active Server
Pages</a>
<a
href="http://www.netday.cz">Netday</a>
</div>
Při kliknutí na "Seznam stránek o ASP" se rozbalí
menu. Samozřejmě můžeme v definici stylů nastavit různé vlastnosti
pro nadpis menu a pro jednotlivé položky menu. V případě, že bydeme
mít více jednotlivých submenu, mohou být rozbaleny všechny položky
menu současně.
Je nutné si uvědomit, že toto menu je použitelné
jen v MSIE. V Netscape se zobrazí celé rozbalené. To by se u
JavaScript menu nestalo. To už si musí zvážit každý sám.
Autor: Marek Chmel, marekchmel@pcsvet.cz, informace a seznam
článků
Vytisknout
Poslat
Komentáře
Přidat
komentář