vb WebBrowser在加网页时候白屏怎么解决

2012-05-12

vb WebBrowser在加网页时候白屏如何解决我现在用VB的WebBrowser做一个小的网页加载文件,如果网速太慢的话,

vb WebBrowser在加网页时候白屏如何解决
我现在用VB的WebBrowser做一个小的网页加载文件,
如果网速太慢的话,WebBrowser在加载完成前一直是白屏,
我想在这段时间内,能不能做一个loadding图标,直到加载完成时消失.
我的代码如下,请问如何解决.

VB code

Private Sub Form_Load()Set Yan = CreateObject("WScript.Shell")IeVerSion = Yan.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")IeVerSion = Left(IeVerSion, 1)If IeVerSion = 6 Then    MsgBox "你的IE版本过低，请升级你的IE后再尝试运行本软件。"   WebBrowser1.Navigate ("http://download.microsoft.com/download/8/3/9/83941BA7-BDE8-4402-BEC4-51D670DF2BAB/IE8-WindowsXP-x86-CHT.exe")ElseWebBrowser1.Navigate ("http://www.163.com)End IfMe.WindowState = 2End Sub

[解决办法]
自己放个PictureBox控件在前面显示呗：)

热点排行