说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
自己的IE——用VB制作浏览器

上海 钱可栋

  
  程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没
有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,
确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前
面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代
表的控件正是我们需要的WebBrowser。
  由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正
我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程
序中用到的:
  属性:LocationURL 返回控件显示WEB页面的URL。
  方法:Navigate 转移到指定的URL或打开指定HTML文件。
  事件:1.DownloadBegin 下载操作开时触发。
  2.DownloadComplete 下载操作完成、终止或失败时触发。
  3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。
其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal
ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元
是将要下载的数据总量。
  4.TitleChange 当前文档标题改变时触发
  除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:
combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:
ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件
Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),
这些控件的属性值都用缺省值。
  以下是程序清单:
  Option Explicit
  
  Private Sub Form_Load()
  Me.Caption =“My Explorer”
  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
  End Sub
  
  Private Sub Form_Resize()
  On Error GoTo a
  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:
  End Sub
  
  Private Sub Combo1_Click()
  `转到指定网址
  WebBrowser1.Navigate Combo1.Text
  End Sub
  
  Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim i As Long
  Dim existed As Boolean
  If KeyCode = 13 Then
  If Left(Combo1.Text, 7) <> “http://”Then
  Combo1.Text = “http://”+ Combo1.Text
  End If
  WebBrowser1.Navigate Combo1.Text
  For i = 0 To Combo1.ListCount - 1
  If Combo1.List(i) = Combo1.Text Then
  existed = True
  Exit For
  Else
  existed = False
  End If
  Next
  If Not existed Then
  Combo1.AddItem (Combo1.Text)
  End If
  End If
  End Sub
  
  Private Sub WebBrowser1_DownloadBegin()
  `下载开始时状态栏显示“Now Linking...”
  StatusBar1.SimpleText = “Now Linking...”
  End Sub
  
  Private Sub WebBrowser1_DownloadComplete()
  `下载完成时状态栏显示“Link Finished”
  StatusBar1.SimpleText = “Link Finished”
  ProgressBar1.Value = 0
  End Sub
  
  Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,
ByVal ProgressMax As Long)
  `下载进行时进度条变化
  If ProgressMax = 0 Then Exit Sub
  ProgressBar1.Max = ProgressMax
  If Progress <> -1 And Progress <= ProgressMax Then
  ProgressBar1.Value = Progress
  End If
  End Sub
  
  Private Sub WebBrowser1_TitleChange(ByVal Text As String)
  Combo1.Text = WebBrowser1.LocationURL
  End Sub

Delphi中用于读写的文件类型 RichEdit的自动格式化-Delphi资料 RichEdit中实现查找功能-Delphi资料 表格上所有元件载入后的事件-Delphi资料 充分利用Windows API扩展Delphi函数 不知道错误在哪呀急呀 请问考试中心的区别 为什么 win98 看不到 win2000的部份内容? 请高手帮忙:DataGrid的嵌套问题 c#中的数据库问题。谢谢 再见理想 帮忙看看下面的错误! 权限问题? Delphi里怎样将Excel的列属性设为文字类型? 我家的老照片 不少600字 怎么写? 设关于X的不等式mx2-2x-m+1 HF+NaOH==?HNO3+Mg(OH)2==? 老照片的故事 作文 急 Mg(OH)2与HClO4反应的离子方程式 中国人每天食盐量不超过6克,这个数据是哪来的?电视 醋酸和Mg(OH)2反应的离子方程式 我和书的故事作文怎么写啊!要有买书的经历 急``` 用冕组词 崇信修和睦 行道有亲邻——中国睦邻外记者调查转基因食品渗透情况:新西兰澳德国大使馆:\"德国空置房组织流浪汉中国少数民族歌舞走进巴西安邻兴伟业 善邻谋致远——中国安邻外本报推荐A股后市:防空警报拉响 四类股必要抛地铁7号线和1号线北延线今年开建成方圆:尊重选手是前提大酒店里开健康讲座称“包治百病” 这破灭天道为头越时间行者你不知道的秘密我是打酱油的超级传承系统樟脚村旅游东肖森林公园旅游汉口酒吧一条街旅游名人植物园旅游滨河公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘