如果你已厌倦了现有的互联网浏览器,你可以用Visual Basic来编写你自己的互联网浏览器。创建互联网浏览器的第一步骤是在启动Visual Basic6后,按Ctrl+ T打开组件窗口,然后选择“Microsoft Internet Control"。该控件将出现在工具箱中。接下来把“Microsoft Internet Control"插入到表单中,一个白色矩形将出现。您可以随你所愿调整该控件大小。该控件默认的名称是WebBrowser1。
为了设计浏览器的界面,你需要插入一个组合框来显示URL(网址)。此外,您需要插入一些图像来作为用户浏览互联网的命令按钮,例如Go ,Forward(前进),Refresh(刷新) 及Home等指令。虽然你可以直接插入命令按钮而不是图像,但使用图像无疑会大大提高浏览器的美观。
编写所有指令的程序是相当容易的。虽然与Web浏览器有关联的方法,事件和属性有很多,但你需要知道的只是一小部分就能编写一个有基本功能的互联网浏览器。比如说 navigate 方法是利用网站统一资源定位器(URL)去到指定的网页。它的语法是WebBrowser1.Navigate(“URL”)。在这个范例中,我们在启动时互联网浏览器加载www.vbtutor.net的网页。
Private Sub Form_Load()
WebBrowser1.Navigate ("https://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