vb状态栏怎么读取网页状态栏信息

[zl33333]

请问vb状态栏读取网页状态栏信息的代码啊，谢谢啦

[SYSSZ]

Private Sub Form_Load()
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Width = 4000

StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Width = 4000
WebBrowser1.Navigate "http://www.hao123.com/"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
StatusBar1.Panels(2).Text = Text
End Sub

[zl33333]

[Quote=引用 1 楼 syssz 的回复:]
VB codePrivateSub Form_Load()
StatusBar1.Panels.Add1
StatusBar1.Panels(1).Width=4000

StatusBar1.Panels.Add2
StatusBar1.Panels(2).Width=4000
WebBrowser1.Navigate"http://www.hao123.com/"End SubPrivateS?-
[/Quote]

谢谢！功能是实现了，但是我的程序中WebBrowser1由几个按钮控制几个网页显示，因此会出现读取不同网页状态栏信息。
但是我想要状态栏专门读取一个固定网页状态栏的信息啊

[SYSSZ]

If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

[zl33333]

[Quote=引用 3 楼 syssz 的回复:]
If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

[/Quote]
我是初学者，这个代码放哪里啊

[zl33333]

[Quote=引用 3 楼 syssz 的回复:]
If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

[/Quote]

我现在的代码是

Private Sub Form_Load()
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Width = 1630

StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Width = 4000
WebBrowser1.Navigate "http://xxx.com"
WebBrowser2.Navigate "http://固定读取状态栏信息"
End Sub

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
StatusBar1.Panels(1).Text = "开心淘吧 传来信息"
End Sub

Private Sub WebBrowser2_StatusTextChange(ByVal Text As String)
StatusBar1.Panels(2).Text = Text
End Sub

我不要状态栏框1读取网址啊

[SYSSZ]

StatusBar1.Panels(1).Text = 你要它显示的内容

[SYSSZ]

我不要状态栏框1读取网址啊------你想显示什么？你想让它显示什么就赋什么值给它。

[zl33333]

[Quote=引用 7 楼 syssz 的回复:]
我不要状态栏框1读取网址啊------你想显示什么？你想让它显示什么就赋什么值给它。
[/Quote]

恩

那这个代码要放哪里啊
If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

[zl33333]

好了，暂时解决了，谢谢