BLaDe Gelişimci Üye
Uyarı Sev. : Mesaj Sayısı : 147 Paylasım Gücü : 388 Rep Point : -3 Kayıt tarihi : 16/12/09 Nerden : Whoo Ruh : Grafik Düzey : Az Tarayıcın : Explorer
| Konu: Sayfa Yükleme Perş. Ara. 31, 2009 11:44 pm | |
| Bu dersimizde hazır kodlardan biri olan sayfa yükleme dersini öğreneceğiz. Bu vereceğim kodu sitemize eklediğimizde sayfanın durum çubuğunda yüklenme göstergesi oluşacaktır. İşte Kod: - Kod:
-
<SCRIPT 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 = "Yükleniyor: " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Yükleme Bitti" Document.Body.Style.Display = "" End If End Function
Call Count()
--> </SCRIPT> sanalkurs.net | |
|