1、1,WebBrowser控件是一个基于IE内核的浏览器控件，它具有网页浏览、局部文档浏览和文件下载等许多Internet Explorer浏览器的特性，通过WebBrowser控件可以快速地开发出功能强大的浏览器。,WebBrowser控件,2,WebBrowser控件不是VB的标准控件，使用之前必须将其添加到工具箱中。通过选择“工程”菜单中的“部件”命令，打开“部件”对话框，再从中选择“Microsoft Internet Control”进行添加，然后在窗体上相应的位置放置控件。,WebBrowser控件,3,WebBrowser控件的属性、方法和事件 1WebBrowser控件的属性,4
2、,2WebBrowser控件的方法WebBrowser控件的常用的方法如下：（1）GoHome方法使用格式:object.GoHome功能：装入设定的起始页。（2）Navigate方法使用格式:object.Navigate URL 功能：装入指定的页面。,5,（3）GoBack方法使用格式：object.GoBack功能：返回上一个页面。（4）GoForward方法使用格式：object.GoForward功能：进入下一个页面。,6,（5）Refresh方法使用格式：object.Refresh功能：刷新页面。 （6）Stop方法使用格式：object.Stop功能：停止载入页面。,7,3W
3、ebBrowser控件的事件（1）ProgressChange事件功能：当浏览器下载页面时触发该事件， ProgressMax是下载完成的最大值，Progress是 当前下载完成的值。（2）DownloadComplete事件功能：页面下载完成后触发该事件。（3）NavigateComplete2事件功能：当浏览一个新的页面时触发该事件。,8,一个简单的网络浏览器,【例】 利用WebBrowser控件制作一个简单的浏览器，程序运行时的界面如图14.1所示。窗体上有一个标签、一个文本框和一个WebBrowser控件。标签的Caption属性如图所示，文本框的Text属性置空，其它属性均为缺省设置
4、。,9,Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then WebBrowser1.Navigate Text1.Text 显示指定的页面 End Sub Private Sub Form_Resize()WebBrowser1.width=ScalewidthWebBrowser1.Height=ScaleHeight-Text1.Height End Sub,10,【例】设计一个WWW浏览器。界面设计和程序运行如图所示，该浏览器实现基本的浏览功能，如浏览网页，前进、后退、停止、刷新、主页、搜索和下载进度显
5、示等功能。,11,按照程序实现的功能，在窗体中加入一个工具栏控件、一个ImageList控件、一个标签控件、一个组合框控件、一个WebBrowser控件和一个状态栏控件，ImageList控件中的图片如图所示。,12,Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenWebBrowser1.Navigate Combo1.TextStatusBar1.Panels(3).Text = Combo1.TextEnd If End Sub,13,Private Sub Form_R
6、esize()WebBrowser1.Width = Form1.WidthWebBrowser1.Height = Form1.Height End Sub Private Sub WebBrowser1_DownloadComplete() StatusBar1.Panels(4).Text = “已完成“ Form1.Caption = WebBrowser1.LocationName End Sub,14,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1WebBrowser1.GoBackCase 2WebBrowser1.GoForwardCase 3WebBrowser1.RefreshCase 4WebBrowser1.homeCase 5WebBrowser1.StopEnd Select End Sub,
