用VB设计自已的Web浏览器_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用VB设计自已的Web浏览器

作者：闵涛文章来源：闵涛的学习笔记点击数：645 更新时间：2009/4/23 14:57:54

　　浏览器是阅读WWW上的信息资源的重要的客户端软件，众所周知的有Microsoft Internet Explorer和Netscape Navigator浏览器。它们功能强大，界面友好，是广大网民在Internet上冲浪的好工具。对于多媒体应用软件及教育软件的开发者来说，可能更希望有自己定制的浏览器集成到自己开发的产品中来，以增强应用软件产品的功能，扩充使用多媒体信息的方式，使自己的产品更加先进、更加具有网络化特色，从而轻松平滑地融入到Internet世界中去。但是，这些专业性的Web浏览器的安装配置较为复杂，程序文件又很大，对于应用软件开发者来说还有版权问题，更不具有自己需要的特色，要想集成到自己的应用产品中，有可能融合不平滑，还会产生很多问题，怎么办呢？Visual Basic 5.0为软件开发人员提供了现成的窗体和控件，只要稍稍熟悉VB编程，就可以轻松地设计出具有专业化界面的、有自己特色的Web浏览器来。而且，原有的软件开发工具可能不支持的媒体元素如Gif动画、.au格式声音等也都能方便地引用到您的应用软件产品中来，而这些媒体元素在 Internet上几乎可以说是取之不尽，用之不竭的。下面就对用 Visual Basic 5.0设计一个简单的Web浏览器的方法加以说明。
　　1．用Browser窗体设计浏览器
　　Visual Basic 5.0的专业版提供了浏览器窗体(Browser Form)，用它来设计自己的浏览器相当方便，许多控件不用一个个地去设置和编写代码了，在此基础上还可以增添自己想增加的控件和菜单等。下面对制作一个简单的浏览器的方法和步骤加以说明。
　　(1)在VB中打开一个新的项目(New Project)；
　　(2)在项目(Project)资源管理器窗口中，选定Form1窗体并按鼠标右键，弹出菜单后，用删除窗体(Remove Form)命令删除Form1 窗体；
　　(3)选定项目Project1，单击鼠标右键，弹出菜单后选定添加 (Add)项，再选择添加窗体(Add Form)命令。弹出添加窗体(Add Form)对话框后，在其中选择浏览器(Browser)打开它；
　　(4)在项目Project1的对象窗口中可以看到tbToolbar控件中已经设置有Back（向后）、Forward（向前）、Stop（停止）、 Refresh（刷新）、Home（归位）、Search（搜索）等命令按钮，还可以向tbToolbar控件中添加Open（打开）、Navigate（导航）、Exit（退出）等命令按钮，其方法是：打开tbToolbar控件的Properties（属性）页，在Button(按钮)选项卡中单击Insert Button按钮来插入按钮，在以上命令按? Caption属性项中输入相应的按钮名称；
　　(5)由于新添加的Open（打开）、Navigate（导航）、Exit （退出）等命令按钮上没有相应的图标，故可以自行添加，其方法是：找到名为ImlIcons的ImageList控件，打开其属性页，在 Images选项卡中插入自己喜欢的图标。然后在tbToolbar控件的 Properties（属性）页中设置相应的Index值；
　　(6)从工具箱中选出CommonDialog（通用对话框）控件添加到浏览器窗体中，将其命名为brwCommonDialog，为编写Open按钮相应的事件代码作准备；
　　(7)在frmBrowser窗体的属性窗口中，将MDIChild属性值设置为False；
　　(8)在项目Project1的属性设置窗口中设置启动对象为 frmBrowser窗体；
　　 (9)在tbToolbar控件的代码窗口中编写Open（打开）、 Navigate（导航）、Exit（退出）等命令按钮的代码；
　　(10)在其他对象的代码窗口中编写或修改相应的代码。
　　具体的程序代码请访问网点www.pccomputing.com.cn。
　　Option Explicit
　　
　　Public StartingAddress As String
　　Dim mbDontNavigateNow As Boolean
　　Private Sub Form_Load()
　　 On Error Resume Next
　　 Me.Show
　　 tbToolBar.Refresh
　　 Form_Resize
　　
　　 cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
　　
　　 If Len(StartingAddress) > 0 Then
　　 cboAddress.Text = StartingAddress
　　 cboAddress.AddItem cboAddress.Text
　　试图定位到起始地址
　　 timTimer.Enabled = True
　　 brwWebBrowser.Navigate StartingAddress
　　 End If
　　
　　End Sub
　　
　　Private Sub brwWebBrowser_DownloadComplete()
　　 On Error Resume Next
　　 Me.Caption = brwWebBrowser.LocationName
　　End Sub
　　
　　Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
　　 Dim i As Integer
　　 Dim bFound As Boolean
　　 Me.Caption = brwWebBrowser.LocationName
　　 For i = 0 To cboAddress.ListCount - 1
　　 If cboAddress.List(i) = brwWebBrowser.LocationURL Then
　　 bFound = True
　　 Exit For
　　 End If
　　 Next i
　　 mbDontNavigateNow = True
　　 If bFound Then
　　 cboAddress.RemoveItem i
　　 End If
　　 cboAddress.AddItem brwWebBrowser.LocationURL, 0
　　 cboAddress.ListIndex = 0
　　 mbDontNavigateNow = False
　　End Sub
　　
　　Private Sub cboAddress_Click()
　　 If mbDontNavigateNow Then Exit Sub
　　 timTimer.Enabled = True
　　 brwWebBrowser.Navigate cboAddress.Text
　　End Sub
　　
　　Private Sub cboAddress_KeyPress(KeyAscii As Integer)
　　 On Error Resume Next
　　 If KeyAscii = vbKeyReturn Then
　　 cboAddress_Click
　　 End If
　　End Sub
　　
　　Private Sub Form_Resize()
　　 cboAddress.Width = Me.ScaleWidth - 100
　　 brwWebBrowser.Width = Me.ScaleWidth - 100
　　 brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
　　End Sub
　　
　　Private Sub timTimer_Timer()
　　 If brwWebBrowser.Busy = False Then
　　 timTimer.Enabled = False
　　 Me.Caption = brwWebBrowser.LocationName
　　 Else
　　 Me.Caption = "运行中..."
　　 End If
　　End Sub
　　
　　Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
　　 On Error Resume Next
　　
　　 timTimer.Enabled = True
　　
　　 Select Case Button.Key
　　 Case "Exit"
　　 Unload Me
　　 Case "Back"
　　 brwWebBrowser.GoBack
　　 Case "Forward"
　　 brwWebBrowser.GoForward
　　 Case "Refresh"
　　 brwWebBrowser.Refresh
　　 Case "Home"
　　 brwWebBrowser.GoHome
　　 Case "Search"
　　 brwWebBrowser.GoSearch
　　 Case "Open"
　　 brwCommonDialog.ShowOpen
　　 cboAddress.Text = brwCommonDialog.filename
　　 Case " Navigate"
　　 brwWebBrowser.Navigate cboAddress.Text
　　 Case "Stop"
　　 timTimer.Enabled = False
　　 brwWebBrowser.Stop
　　 Me.Caption = brwWebBrowser.LocationName
　　 End Select
　　
　　End Sub
　　最后编绎全部程序，其运行结果如图1所示。
　　
　　图1．所设计的浏览器
　　2．用WebBrowser控件设计浏览器
　　用WebBrowser控件设计浏览器的方法相对前面的方法而言，具体操作要多一点，因为对应的每个控件都要设置属性并编写相应的代码，从而编程量也要相对地大一些。下面来具体说明其方法和步骤。
　　(1)新建一个项目并打开一个新的窗体Form1；
　　(2)用鼠标右键单击工具箱以添加新的部件Microsoft Common Dialog Controls、Microsoft Windows Common Controls 5.0和 Microsoft Internet Controls；
　　(3)在窗体Form1中添加一个Toolbar控件Toolbar1，然后打开 Toolbar1控件的Properties（属性）页，在Button（按钮）选项卡中单击Insert Button按钮，增加Back（向后）、Forward（向前）、Stop（停止）、Refresh（刷新）、Home（归位）、Search （搜索）、Open（打开）、Navigate（导航）、Exit（退出）等常用命令按钮；
　　(4)添加一个ImageList控件ImageList1到窗体Form1中，打开 Imagelist1控件的Properties（属性）页，在Images（图象）选项卡中单击Insert Picture按钮，输入一些对应按钮的合适的图标，然后到tbToolbar控件的Properties（属性）页中设置General选项卡中的ImageList值与Buttons选项卡中的Image值，使上述命令按钮与合适的图标相对应；
　　(5)从工具箱中选出CommonDialog（通用对话框）控件添加到浏览器窗体中，将其命名为CommonDialog1，为编写与Open按钮相应的事件代码作准备；
　　(6)添加一个Label控件Label1到窗体Form1中，将其Caption值设置为“地址(URL)：”，再在此控件附近合适的位置添加一个 ComboBox控件Combo1，以便生成Web地址的下拉列表框；
　　(7)添加一个WebBrowser控件WebBrowser1到窗体Form1中，将其调整到合适的位置上；
　　(8)添加一个Timer控件Timer1，将其Enabled与Interval值分别设置为False和5；
　　(9)在Form1窗体的属性窗口中将MDIChild属性值设置为 False；
　　(10)在该项目的属性设置窗口中的启动对象设置为Form1窗体；
　　(11)为对应窗体和每个控件等对象编写相应的事件程序代码，具体可参照前面的程序代码，只要更换一下相应的窗体或控件等对象的名称，其他的基本相同，在此就不赘述了。
　　无论用Visual Basic 5.0现成的浏览器(Browser)窗体还是用 WebBrowser控件来设计简单的Web浏览器都比较容易。就两种方法相比较而言，前者因浏览器(Browser)窗体本身集成了一些基本的控件，并且相应的代码已经写好，要做的只是为添加的控件或菜单等编写代码，所以显得较为简单些；而后者因每一个窗体或控件等对象都要进行选择、添加、设计、编写代码等，所以相对较为复杂些。无论怎样都能在此基础上进行扩充，从而设计出较为高级的浏览器来。PCC

[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用  [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址  [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法  [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版  [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表…  [办公软件]Excel编程基础之VBA文件操作详解

教程录入：mintao 责任编辑：mintao

上一篇教程：用VB 5.0实现多画面播放功能

下一篇教程：在VB中获取和修改计算机名字

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……