第二十六课: 互联网网络应用程式的第一部分-网页浏览器

第二十六课: 互联网应用程式的第一部分-网页浏览器

 

要建立一个网页浏览器，你必须按下CTRL +T 以打开组件窗口并选择 Microsoft Internet Control。一个地球形状的控件将将出现在工具箱里。要把Microsoft Internet Control插入 到表单中，只需把它拖曳到表单中。这个控件的默认名称 是webbrowser1 。


为了设计网页浏览器的界面，您需要插入一个用来显示网址的组合框。此外，您需要插入几张作为命令按钮的图片，供用户浏览互联网。在这里我用上了下一个和之前的箭头，一个Go图像，一个Home图像，一个Stop图像，一个刷新(Refresh )图像和一个寻找（Search)图像。
这些命令按钮的程式都比较容易编写。VB 里有很多方法，事件和属性与Web浏览器有关，但你需要知道的只是其中的几种。

 

Navigate 方法是应用统一资源定位器（ URL ）浏览到某个网站 。它的语法是webbrowser1.navigate （ “网址” ） 。在这一程式里，我想把www.vbtutor.net网页当作开始的网页，所以我键入以下的代码。

Private Sub Form_Load()

WebBrowser1.Navigate ("http://www.vbtutor.net")

End Sub

为了在组合框显中显示出URL，也显示该网页是完全下载后的网页标题，我们可键入以下的程式：

 Private Sub WebBrowser1_DocumentComplete (ByVal pDisp As Object, URL As Variant)

Combo1.Text = URL

Form1.Caption = WebBrowser1.LocationName

Combo1.AddItem URL

End Sub

以下程序会告诉用户等待网页下载

Private Sub WebBrowser1_DownloadBegin ()

Combo1.Text = "Page loading, please wait"

End Sub

　

[返回主页]