终于完成了。不过有差不多2M的文件。主要是使用图片时，用PS保存都选择12的质量,导入的图片都有1.xM，我不要图片程序肯定在300K以下。我是个追求完美的人嘿嘿。这个版本可能还存在很多问题是不可预知的，欢迎反馈问题。反馈问题的，以后有关于程序美工方面的都找我吧，我编程不是很在行，但是美工还是棒棒的。

CSDN下载地址:http://download.csdn.net/source/339397

一些使用的帮助:在地址栏内输入网址按回车在当前页打开，按Ctrl+Enter新建选项卡打开。如果你不想在新选项卡打开，在链接上单击鼠标左键，拖放到选项卡上，然后释放，就能在你松开鼠标的选项卡上打开链接地址。

关于搜索，点击放大镜后面的三角图标可以选择搜索的网站。在搜索栏里输入关键字按回车在当前页面打开搜索网页，按Ctrl+Enter新建选项卡搜索。操作提示,点击放大镜后面的三角图标时，弹出让你选择搜索网站，你只要同时按Ctrl+鼠标左键，就能打开该搜索网站的主站(不搜索)

不好意思，上面的图发错了。下面的才是。

非常感谢反馈问题。你看到其中一个效果怎么实现的，可以提出，我帮你解答。但是其他问题我不一定答得出，我也不是高手。如果你们看了我的源文件，一定笑死。因为我都是用了一些费力不讨好的笨方法。

界面还是挺漂亮的，顶一个。

我要啊！！！那个地址没法下啊可不可以发到我邮箱 [email protected]

‘今天不小心看了一下。超级占内存。。。比QQ2007还占大的内存。还好自己的机器配置不太低。’

能提供source code吗？可以的话，请发到：[email protected]谢谢，另外，IE输入框没有历史记录的保存哦~~

楼上的已发送。。今天看了占内存特别大。心一下子冷了。但是看到Kugoo的内存比我占的多一倍儿，脸皮又厚了。嘿嘿。

驳回删帖请求, 哈哈, 至少还有厚脸皮的人陪伴你.

好累啊。我这个界面大部分都是用了现在网页上比较流行的交互式按钮方法。在我百度空间的博客里有。睡觉了。一边听歌一边睡觉。各位晚安。

请不要去下载那个IE7.0 VB版。终于完成90%。感谢云霞散人。要的留邮箱里面的了。那个是未完成的。很多人问源代码。现在我公布，但是大家别笑。当然，我只是公布一些主要的代码。我不会细微到连每一个Msgbox都给你们。你们看了一样能够做出和我的一样的浏览器。

最核心的部分就是选项卡那个部分。添加用户控件。在用户控件里添加一个Label两个个Picture一个Webbrowser。全部的Index都改为0。晕死。我登录了。没要我输入验证码。一发表说我验证码错误。又没给出验证码我输入。

这个实现方法就是通过Load添加选项卡。为了容易区分。把Picture1改成TPicture(放标题的),Picture2改成WPicture(做Webbrowser的容器。用处后面会说)

Private Sub UserControl_Initialize()Label1(0).AutoSize = TrueLabel1(0).Container = TPicture(0)WB(0).Container = WPIcture(0)TPicture(0).Move 0, 0WPIcture(0).Move 0, TPicture(0).HeightLabel1(0).Move (TPicture(0).Width - Label1(0).Width) / 2, (TPicture(0).Height - Label1(0).Height) / 2WB(0).Move -20, -20, WPIcture(0).Width + 40, WPIcture(0).Height + 40 '把WB放到Picture容器里的作用是，去掉WB打开网页时出现凹入的3D效果End Sub

现在编写核心的部分

Public Sub NewTab(URL As Variant)'我这里Load 新的Index为1的。当然，这个是无法实现打开很多"选项卡"的'如何去确定这些要Load的Index呢，自己想吧。实在不行的再发邮件问我Load TPicture(1)Load WPIcture(1)Load Label1(1)Load WB(1)'下面使旧的"选项卡看不见WPIcture(0).Visible = FalseTPicture(0).BackColor = &H808080 '改变背景色让用户明白区分哪个是没有选项卡是失去焦点的'当然你也可以像我那样用一幅图作背景，这样效果特棒'设置新的"选项卡TPicture(1).Move TPicture(0).Width, 0TPicture(1).Visible = TrueSet Label1(1).Container = TPicture(1)Label1(1).Move (TPicture(1).Width - Label1(1).Width) / 2, (TPicture(1).Height - Label1(1).Width) / 2Label1(1).Visible = TrueWPIcture(1).Move 0, TPicture(1).HeightWPIcture(1).Visible = TrueWB(1).Navigate URL 'Webbrowser转到上面的参数URLSet WB(1).Container = WPIcture(1)WB(1).Move -20, -20, WPIcture(1).Width + 40, WPIcture(1).Height + 40 '把WB放到Picture容器里的作用是，去掉WB打开网页时出现凹入的3D效果WB(1).Visible = TrueEnd Sub

如何实现关闭选项卡呢？我是这样的。在选项卡上添加一个关闭按钮。添加两个List。List1保存已经Load的Index，List2保存已经"Unload"的Index。但是我的并不是真正的Unload了，而是把Visible设置为False了，下次再新建选项卡的时再使List2.List(0)的Visible可见。这也许是为什么占用内存那么高的原因所在了。我改进一下试试。因为List1是保存已经Load的Index所以最新的Index都是在List1的最底部。关闭一个选项卡，全部选项卡向左靠，只要让List1.List(0)靠近选项卡(0)就行了，后面的一次靠向List1.List(n-1)。