浏览器是阅读WWW上信息资源重要客户端软件Software众所周 知有Microsoft Internet Explorer和Netscape Navigator浏览 器它们功能强大界面友好是广大网民在Internet上冲浪好 工具对于多媒体应用软件Software及教育软件Software开发者来说可能更希望 有自己定制浏览器集成到自己开发产品中来以增强应用软件Software 产品功能扩充使用多媒体信息方式使自己产品更加先 进、更加具有网络化特色从而轻松平滑地融入到Internet世界中 去但是这些专业性Web浏览器安装配置较为复杂文 件又很大对于应用软件Software开发者来说还有版权问题更不具有自己 需要特色要想集成到自己应用产品中有可能融合不平滑 还会产生很多问题如何办呢？Visual Basic 5.0为软件Software开发人员 提供了现成窗体和Control控件只要稍稍熟悉VB编程就可以轻松地设 计出具有专业化界面、有自己特色Web浏览器来而且原有 软件Software开发工具可能不支持媒体元素如G动画、.au格式声音等 也都能方便地引用到您应用软件Software产品中来而这些媒体元素在 Internet上几乎可以说是取的不尽用的不竭下面就对用 Visual Basic 5.0设计个简单Web浏览器思路方法加以介绍说明

　　1．用Browser窗体设计浏览器

　　Visual Basic 5.0专业版提供了浏览器窗体(Browser Form)用它来设计自己浏览器相当方便许多Control控件不用个个 地去设置和编写代码了在此基础上还可以增添自己想增加Control控件 和菜单等下面对制作个简单浏览器思路方法和步骤加以介绍说明

　　(1)在VB中打开个新项目(New Project)；

　　(2)在项目(Project)资源管理器窗口中选定Form1窗体并按 鼠标右键弹出菜单后用删除窗体(Remove Form)命令删除Form1 窗体；

　　(3)选定项目Project1单击鼠标右键弹出菜单后选定添加 (Add)项再选择添加窗体(Add Form)命令弹出添加窗体(Add Form)对话框后在其中选择浏览器(Browser)打开它；

　　(4)在项目Project1对象窗口中可以看到tbToolbarControl控件中已 经设置有Back(向后)、Forward(向前)、Stop(停止)、 Refresh(刷新)、Home(归位)、Search(搜索)等命令按钮 还可以向tbToolbarControl控件中添加Open(打开)、Navigate(导 航)、Exit(退出)等命令按钮其思路方法是:打开tbToolbarControl控件 Properties(属性)页在Button(按钮)选项卡中单击Insert Button按钮来插入按钮在以上命令按? Caption属性项中输入 相应按钮名称；

　　(5)由于新添加Open(打开)、Navigate(导航)、Exit (退出)等命令按钮上没有相应图标故可以自行添加其思路方法 是:找到名为ImlIconsImageListControl控件打开其属性页在 Images选项卡中插入自己喜欢图标然后在tbToolbarControl控件 Properties(属性)页中设置相应Index值；

　　(6)从工具箱中选出CommonDialog(通用对话框)Control控件添加到 浏览器窗体中将其命名为brwCommonDialog为编写Open按钮相 应事件代码作准备；

　　(7)在frmBrowser窗体属性窗口中将MDIChild属性值设置 为False；

　　(8)在项目Project1属性设置窗口中设置启动对象为 frmBrowser窗体；

　　(9)在tbToolbarControl控件代码窗口中编写Open(打开)、 Navigate(导航)、Exit(退出)等命令按钮代码；

　　(10)在其他对象代码窗口中编写或修改相应代码

　　　　 Option Explicit
　　
　　 Public StartingAddress As String
　　 Dim mbDontNavigateNow As Boolean
　　 Private Sub Form_Load
　　 _disibledevent= brwWebBrowser.LocationName
　　 End Select
　　
　　 End Sub

　　最后编绎全部

　　2．用WebBrowserControl控件设计浏览器

　　用WebBrowserControl控件设计浏览器思路方法相对前面思路方法而言具 体操作要多点对应每个Control控件都要设置属性并编写相应 代码从而编程量也要相对地大些下面来具体介绍说明其思路方法和步 骤

　　(1)新建个项目并打开个新窗体Form1；

　　(2)用鼠标右键单击工具箱以添加新部件Microsoft Common Dialog Controls、Microsoft Windows Common Controls 5.0和 Microsoft Internet Controls；

　　(3)在窗体Form1中添加个ToolbarControl控件Toolbar1然后打开 Toolbar1Control控件Properties(属性)页在Button(按钮)选项卡 中单击Insert Button按钮增加Back(向后)、Forward(向 前)、Stop(停止)、Refresh(刷新)、Home(归位)、Search (搜索)、Open(打开)、Navigate(导航)、Exit(退出)等常 用命令按钮；

　　(4)添加个ImageListControl控件ImageList1到窗体Form1中打开 Imagelist1Control控件Properties(属性)页在Images(图象)选项 卡中单击Insert Picture按钮输入些对应按钮合适图标 然后到tbToolbarControl控件Properties(属性)页中设置General选项 卡中ImageList值和Buttons选项卡中Image值使上述命令按 钮和合适图标相对应；

　　(5)从工具箱中选出CommonDialog(通用对话框)Control控件添加到 浏览器窗体中将其命名为CommonDialog1为编写和Open按钮相 应事件代码作准备；

　　(6)添加个LabelControl控件Label1到窗体Form1中将其Caption值 设置为“地址(URL):”再在此Control控件附近合适位置添加个 ComboBoxControl控件Combo1以便生成Web地址下拉列表框；

　　(7)添加个WebBrowserControl控件WebBrowser1到窗体Form1中将 其调整到合适位置上；



　　(8)添加个TimerControl控件Timer1将其Enabled和Interval值分 别设置为False和5；

　　(9)在Form1窗体属性窗口中将MDIChild属性值设置为 False；

　　(10)在该项目属性设置窗口中启动对象设置为Form1窗 体；

　　(11)为对应窗体和每个Control控件等对象编写相应事件代码 具体可参照前面代码只要更换下相应窗体或Control控件等对 象名称其他基本相同在此就不赘述了

　　无论用Visual Basic 5.0现成浏览器(Browser)窗体还是用 WebBrowserControl控件来设计简单Web浏览器都比较容易就两种思路方法 相比较而言前者因浏览器(Browser)窗体本身集成了些基本 Control控件并且相应代码已经写好要做只是为添加Control控件或菜单 等编写代码所以显得较为简单些；而后者因每个窗体或Control控件等 对象都要进行选择、添加、设计、编写代码等所以相对较为复杂 些无论怎样都能在此基础上进行扩充从而设计出较为高级浏 览器来