Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

  • Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

javascript menü örneği

By AreS

MFC Üyesi
  • Üyelik Tarihi
    11 Eyl 2014
  • Mesajlar
    163
  • MFC Puanı
    3
javascript menü örneği

Kod:
<head> 
<SCRIPT LANGUAGE="VBScript"> 
Sub Header_onclick() 
If MainHeader.style.display = "" then 
MainHeader.style.display = "none" 
Else 
MainHeader.style.display = "" 
End If 
End Sub 

Sub Header_onmouseover() 
Header.style.color= "#FF3300" 
End Sub 

Sub Header_onmouseout() 
Header.style.color= "#000000" 
End Sub 

Sub Head1_onclick() 
If TOC1.style.display = "" then 
TOC1.style.display = "none" 
Else 
TOC1.style.display = "" 
End If 
End Sub 

Sub Head1_onmouseover() 
Head1.style.color= "#FF3300" 
End Sub 

Sub Head1_onmouseout() 
Head1.style.color= "#000000" 
End Sub 

Sub Head2_onclick() 
If TOC2.style.display = "" then 
TOC2.style.display = "none" 
Else 
TOC2.style.display = "" 
End If 
End Sub 

Sub Head2_onmouseover() 
Head2.style.color= "#FF3300" 
End Sub 

Sub Head2_onmouseout() 
Head2.style.color= "#000000" 
End Sub 

Sub Head3_onclick() 
If TOC3.style.display = "" then 
TOC3.style.display = "none" 
Else 
TOC3.style.display = "" 
End If 
End Sub 

Sub Head3_onmouseover() 
Head3.style.color= "#FF3300" 
End Sub 

Sub Head3_onmouseout() 
Head3.style.color= "#000000" 
End Sub 

Sub Head4_onclick() 
If TOC4.style.display = "" then 
TOC4.style.display = "none" 
Else 
TOC4.style.display = "" 
End If 
End Sub 

Sub Head4_onmouseover() 
Head4.style.color= "#FF3300" 
End Sub 

Sub Head4_onmouseout() 
Head4.style.color= "#000000" 
End Sub 

</SCRIPT> 


</head> 
<body> 

<FONT FACE="Verdana" SIZE=2> 
<IV ID="Header"> 
<CENTER> 
<H2> 
M E N Ü 
</H2> 
</CENTER> 
</DIV> 

<IV ID="MainHeader" STYLE="display:none"> 
<UL> 
<IV ID="Head1"> 
<FONT SIZE=3> 
<B>ÜCRETSİZ HİZMETLER</B><BR> 
</FONT> 
<FONT SIZE=2> 
Siteniz için tamamı ücretsiz webmaster kaynakları... (1) 
</FONT> 
</DIV> 
<P> 
<IV ID="TOC1" STYLE="display:none"> 
<FONT SIZE=2> 
<UL> 
<LI TYPE=DISC><A HREF="İstatistikli'>http://www.gezginler.net/">İstatistikli Sayaç</A> 
<LI TYPE=DISC><A HREF="Ziyaretçi'>http://www.gezginler.net/">Ziyaretçi Defteri</A> 
<LI TYPE=DISC><A HREF="Forumhttp://www.gezginler.net/">Forum</A> 
<LI TYPE=DISC><A HREF="Maillisthttp://www.gezginler.net/">Maillist</A> 
</UL> 
</FONT> 
</DIV> 
<P> 
<IV ID="Head2"> 
<FONT SIZE=3> 
<B>MELODİLER</B><BR> 
<FONT SIZE=2> 
Nokia-Ericsson-Panasonic-Alcatel-Siemens. (2) 
</FONT> 
</DIV> 
<P> 
<IV ID="TOC2" STYLE="display:none"> 
<FONT SIZE=2> 
<UL> 
<LI TYPE=DISC><A HREF="Nokiahttp://www.gezginler.net/">Nokia</A> 
<LI TYPE=DISC><A HREF="Ericssonhttp://www.gezginler.net/">Ericsson</A> 
<LI TYPE=DISC><A HREF="Panasonichttp://www.gezginler.net/">Panasonic</A> 
<LI TYPE=DISC><A HREF="Alcatelhttp://www.gezginler.net/">Alcatel</A> 
</UL> 
</FONT> 
</DIV> 
<P> 
<IV ID="Head3"> 
<FONT SIZE=3> 
<B>ONLINE OYUNLAR</B><BR> 
<FONT SIZE=2> 
Oynarken çok eğleneceğiniz oyunlar. (3) 
</FONT> 
</DIV> 
<IV ID="TOC3" STYLE="display:none"> 
<FONT SIZE=2><br> 
<UL> 
<LI TYPE=DISC><A HREF="King-Fuhttp://www.gezginler.net/">King-Fu</A> 
<LI TYPE=DISC><A HREF="Mariohttp://www.gezginler.net/">Mario</A> 
<LI TYPE=DISC><A HREF="Tetrishttp://www.gezginler.net/">Tetris</A> 
<LI TYPE=DISC><A HREF="Bilardohttp://www.gezginler.net/">Bilardo</A> 
</UL> 
</FONT> 
</DIV>
 
Üst Alt