主题:  麻烦告诉我这个效果如何实现的

泉欣

职务:普通成员
等级:1
金币:0.0
发贴:7
注册:2002/11/7 8:52:30
#12002/11/7 16:22:13
www.downsoft.net/


这里的状态栏里面显示的网页下载百分进度如何实现?!其java的源码具体怎么控制?!



我佛山人

职务:版主
等级:4
金币:16.0
发贴:2269
注册:2002/8/7 15:09:27
#22002/11/7 18:20:53
是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 = "正在登陆软件快车:" & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "欢迎您乘上软件快车,www.downsoft.net!"
Document.Body.Style.Display = ""
End If
End Function
Call Count()



泉欣

职务:普通成员
等级:1
金币:0.0
发贴:7
注册:2002/11/7 8:52:30
#32002/11/7 19:28:17
哦,谢谢!



泉欣

职务:普通成员
等级:1
金币:0.0
发贴:7
注册:2002/11/7 8:52:30
#42002/11/8 13:06:42
那,这段代码应该放在哪里呢?!


我比较菜一点.......................................我试了.我做不来啊!