Forum'da ara:
Ara


Yazar Mesaj
Mesaj12.07.2009, 08:43 (UTC)    
Mesaj konusu: süper bir yükleniyor efekti hiç bir yerde yokk

<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>
Mesaj12.07.2009, 09:05 (UTC)    
Mesaj konusu:

Kodları Aşağıdaki Şekilde Yaparsan Daha Güzel Olur ... Wink

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>

______________
Arrow Tr.Gg'lerin İlk Ve Tek İnternet Portalı ... Wink

Mesaj12.07.2009, 09:41 (UTC)    
Mesaj konusu:

Kusura bakma yanlışıkla oldu zTn xD
______________
Kural ihlali! @benimsitem1993
Önceki mesajları göster:   


Powered by phpBB © 2001, 2005 phpBB Group
Türkçe Çeviri: phpBB Türkiye & Erdem Çorapçıoğlu