自己的IE——用VB制作浏览器

2016-02-19 21:10 345 1 收藏

今天图老师小编给大家介绍下自己的IE——用VB制作浏览器,平时喜欢自己的IE——用VB制作浏览器的朋友赶紧收藏起来吧!记得点赞哦~

【 tulaoshi.com - 编程语言 】

程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件”标签,找到MicrosoftInternetControls,在它前面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代表的控件正是我们需要的WebBrowser。
  由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程序中用到的:
  属性:LocationURL返回控件显示WEB页面的URL。
  方法:Navigate转移到指定的URL或打开指定HTML文件。
  事件:1.DownloadBegin下载操作开时触发。
  2.DownloadComplete下载操作完成、终止或失败时触发。
  3.ProgressChangeWebBrowser控件跟踪下载操作的过程,并定期触发此事件。其语法为:SubWebBrowser_ProgressChange(ByValProgressAsLong,ByValProgressMaxAsLong)。Progress变元是当前已下载的数据总量,ProgressMax变元是将要下载的数据总量。
  4.TitleChange当前文档标题改变时触发
  除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:
  combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:
  ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件MicrosoftWindowsCommonControls5.0的成员,加入工具箱的方法同WebBrowser控件),这些控件的属性值都用缺省值。
  以下是程序清单:
  OptionExplicit
  
  PrivateSubForm_Load()
  Me.Caption=“MyExplorer”
  Label1.Caption=“URL”
  Combo1.Text=“”
  Combo1.Top=Label1.Height
  Combo1.Left=0
  WebBrowser1.Top=Combo1.Top+Combo1.Height
  WebBrowser1.Left=0
  Form_Resize
  StatusBar1.Style=sbrSimple
  ProgressBar1.ZOrder
  EndSub
  
  PrivateSubForm_Resize()
  OnErrorGoToa
  Combo1.Width=Form1.Width-100
  WebBrowser1.Width=Combo1.Width
  WebBrowser1.Height=Form1.Height-Combo1.Height-1000
  ProgressBar1.Top=Me.Height-StatusBar1.Height-330
  ProgressBar1.Left=0.25*StatusBar1.Width
  ProgressBar1.Width=0.75*Me.Width-250
  a:
  EndSub
  
  PrivateSubCombo1_Click()
  `转到指定网址
  WebBrowser1.NavigateCombo1.Text
  EndSub
  
  PrivateSubCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
  DimiAsLong
  DimexistedAsBoolean
  IfKeyCode=13Then
  IfLeft(Combo1.Text,7)“http://”Then
  Combo1.Text=“http://”+Combo1.Text
  EndIf
  WebBrowser1.NavigateCombo1.Text
  Fori=0ToCombo1.ListCount-1
  IfCombo1.List(i)=Combo1.TextThen
  existed=True
  ExitFor
  Else
  existed=False
  EndIf
  Next
  IfNotexistedThen
  Combo1.AddItem(Combo1.Text)
  EndIf
  EndIf
  EndSub
  
  PrivateSubWebBrowser1_DownloadBegin()
  `下载开始时状态栏显示“NowLinking...”
  StatusBar1.SimpleText=“NowLinking...”
  EndSub
  
  PrivateSubWebBrowser1_DownloadComplete()
  `下载完成时状态栏显示“LinkFinished”
  StatusBar1.SimpleText=“LinkFinished”
  ProgressBar1.Value=0
  EndSub
  
  PrivateSubWebBrowser1_ProgressChange(ByValProgressAsLong,
  ByValProgressMaxAsLong)
  `下载进行时进度条变化
  IfProgressMax=0ThenExitSub
  ProgressBar1.Max=ProgressMax
  IfProgress-1AndProgress=ProgressMaxThen
  ProgressBar1.Value=Progress
  EndIf
  EndSub
  
  PrivateSubWebBrowser1_TitleChange(ByValTextAsString)
  Combo1.Text=WebBrowser1.LocationURL
  EndSub->

来源:http://www.tulaoshi.com/n/20160219/1625444.html

延伸阅读
标签: 浏览器
ie浏览器怎么卸载   ie浏览器怎么卸载 停用IE浏览器(非完全卸载) 1、找到开始菜单然后找到控制面板,打开如下图 2、打开控制面板菜单,找到程序,如下图所示 3、点击卸载程序打开或关闭windows功能,找到 Internet explore9 4、去掉internet explorer9 浏览器前面的钩,点击确定即可。就关闭...
标签: 浏览器
如何修复IE浏览器 在上网过程中,用户IE浏览器的初始设置可能会被一些恶意程序修改,使用360安全卫士可以将其修复。 步骤1:打开360安全卫士窗口,单击系统修复按钮,如下图所示。 步骤2:切换至系统修复界面,单击电脑门诊按钮,如下图所示。 步骤3:打开360电脑门诊窗口,在浏览器崩溃选项区中,单击点此解决按钮...
标签: 浏览器
怎样修复IE浏览器 步骤方法 1、清理多余的插件 ①安装太多的插件,将直接导致 Internet Explorer(IE)运行效率降低。特别有些病毒、木马、恶意软件等更是喜欢利用IE插件来做文章。 ②建议使用《360安全卫士》、《瑞星卡卡安全助手》、《金山卫士》等软件进行查杀、清理、修复。注意:不要只局限使用一款软件,多用几...
标签: 浏览器
如何使用IE浏览器 IE浏览器是internetexplorer的简称,即互联网浏览器。它是的WINDOWS系统自带的浏览器。作用通俗讲就是上网查看网页。 双击桌面图标,打开浏览器。 IE浏览器的界面: 第一行为标题栏,显示当前正在浏览的网页名称或当前浏览网页的地址。标题栏的最右端是这个窗口的最小化、最大化(还原)和关闭按钮。 ...
标签: 浏览器
如何卸载IE浏览器   1、首先在开始菜单的右侧栏,找到控制面板,点击,如下图所示: 2、打开控制面板后,找到程序,点击卸载程序,如下图所示: 3、在打开的程序和功能页,点击左侧的打开或关闭windows功能,如下图所示: 4、打开后,找到Internet Explorer 9,这就是我们要卸载的IE浏览器,取消选择前面方框...

经验教程

447

收藏

73
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部