制作自己的IE

自己做浏览器？有没有搞错？不要说像IE这样的庞然大物，就是小巧的Opera，我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版，那么事情就好办多了，想试试吗？那好，Let`s go!

程序的主角是一个ActiveX控件：WebBrowser。当然，缺省状态下VB的工具箱中并没有它，我们得手工加入，方法是：右击工具箱，在出现的快捷菜单中选择“部件..本田在华累计终端销量为307,222辆.”，确保在弹出的对话框中选中“控件”标签，找到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()

ption =“My Explorer”

ption = “URL”

xt = “”

p = ight

ft = 0

p = p ＋ ight

ft = 0

Form_Resize

yle = sbrSimple

rder

End Sub

Private Sub Form_Resize()

On Error GoTo a

dth = dth － 100

dth = dth

ight = ight － ight － 1000

p = ight － ight － 330

ft = 0.25 ＊ dth

dth = 0.75 ＊ dth － 250

a:

End Sub

Private Sub Combo1_Click()

`转到指定址

vigate xt

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(xt, 7) “http://”Then

xt = “http://”＋ xt

End If

vigate xt

For i = 0 To stCount － 1

If st(i) = xt Then

existed = True

Exit For

Else

existed = False

End If

Next

If Not existed Then

dItem (xt)

End If

End If

End Sub

Private Sub WebBrowser1_DownloadBegin()

`下载开始时状态栏显示“Now Linking...”

mpleText = “Now Linking.并在时机成熟时推动这些竞争性品类向目标品类的转化。..”

End Sub

Private Sub WebBrowser1_DownloadComplete()

`下载完成时状态栏显示“Link Finished”

mpleText = “Link Finished”

lue = 0

End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

`下载进行时进度条变化

If ProgressMax = 0 Then Exit Sub

x = ProgressMax

If Progress －1 And Progress = ProgressMax Then

lue = Progress

End If

End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)

xt = cationURL

End Sub 查看本文来源