vb״̬À¸Ôõô¶ÁÈ¡Íøҳ״̬À¸ÐÅÏ¢

ÇëÎÊvb״̬À¸¶ÁÈ¡Íøҳ״̬À¸ÐÅÏ¢µÄ´úÂë°¡£¬Ð»Ð»À²

---

ÒýÓÃ

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?-

лл£¡¹¦ÄÜÊÇʵÏÖÁË£¬µ«ÊÇÎҵijÌÐòÖÐWebBrowser1Óɼ¸¸ö°´Å¥¿ØÖƼ¸¸öÍøÒ³ÏÔʾ£¬Òò´Ë»á³öÏÖ¶ÁÈ¡²»Í¬Íøҳ״̬À¸ÐÅÏ¢¡£
µ«ÊÇÎÒÏëҪ״̬À¸×¨ÃŶÁÈ¡Ò»¸ö¹Ì¶¨Íøҳ״̬À¸µÄÐÅÏ¢°¡

---

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

---

ÒýÓÃ

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

ÎÒÊdzõѧÕߣ¬Õâ¸ö´úÂë·ÅÄÄÀï°¡

---

ÒýÓÃ

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

ÎÒÏÖÔڵĴúÂëÊÇ
VB code:
Private Sub Form_Load()
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Width = 1630

StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Width = 4000
WebBrowser1.Navigate &q