Sayfa Yükleme Efekti

<!--- KAYNAK: http://www.gezginler.net ---> <****** language=VBScript> <!-- Dim Bar, Line, SP Bar = 0 Line = "|" sP = 100 Function Window_onLoad() Bar = 95 sP = 10 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "Sayfa Yükleme Durumu: " &amp;amp; Bar &amp;amp; "%" &amp;amp; " " &amp;amp; String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Sayfa Yükleme Durumu: Yüklendi" Document.Body.Style.Display = "" End If End Function Call Count() --> </******> <!--- KAYNAK: http://www.gezginler.net --->
______________
Administrator Lokman

Kod Bu Forumda Değil Bu Başlıkda Açılmalıdır

http://www.bedava-sitem.com/forum/viewtopic.php?t=25707
______________
BenimSitem1993 => Forum İmza Boyutunuz 3 satırı geçtiğinden düzenlenmiştir.