IE7.0终于完成，提供下载，期待您的宝贵意见

CSDN下载地址:

http://download.csdn.net/source/339397

一些使用的帮助:

在地址栏内输入网址按回车在当前页打开，按Ctrl+Enter新建选项卡打开。

如果你不想在新选项卡打开，
在链接上单击鼠标左键，拖放到选项卡上，然后释放，就能在你松开鼠标的选项卡上打开链接地址�

关于搜索，
点击放大镜后面的三角图标可以选择搜索的网站。
在搜索栏里输入关键字按回车在当前页面打开搜索网页，按Ctrl+Enter新建选项卡搜索。

操作提示,点击放大镜后面的三角图标时，弹出让你选择搜索网站，你只要同时按Ctrl+鼠标左键，就能打开该搜索网站的主站(不搜索)

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

非常感谢反馈问题。

你看到其中一个效果怎么实现的，可以提出，我帮你解答。

但是其他问题我不一定答得出，我也不是高手。

如果你们看了我的源文件，一定笑死。

因为我都是用了一些费力不讨好的笨方法�

‘
今天不小心看了一下。超级占内存。。。比QQ2007还占大的内存。

还好自己的机器配置不太低。

�

楼上的已发送。。

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

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

一边听歌一边睡觉。各位晚安�

请不要去下载那个IE7.0 VB版。终于完成90%。感谢云霞散人。要的留邮箱里面的了。那个是未完成的。

很多人问源代码。现在我公布，但是大家别笑。

当然，我只是公布一些主要的代码。我不会细微到连每一个Msgbox都给你们。

你们看了一样能够做出和我的一样的浏览器�

最核心的部分就是选项卡那个部分。添加用户控件。在用户控件里添加一个Label两个个Picture一个Webbrowser。
全部的Index都改为0。

晕死。我登录了。没要我输入验证码。一发表说我验证码错误。又没给出验证码我输入�

Private Sub UserControl_Initialize()
Label1(0).AutoSize = True
Label1(0).Container = TPicture(0)
WB(0).Container = WPIcture(0)
TPicture(0).Move 0, 0
WPIcture(0).Move 0, TPicture(0).Height
Label1(0).Move (TPicture(0).Width - Label1(0).Width) / 2, (TPicture(0).Height - Label1(0).Height) / 2
WB(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 = False
TPicture(0).BackColor = &H808080 '改变背景色让用户明白区分哪个是没有选项卡是失去焦点的
'当然你也可以像我那样用一幅图作背景，这样效果特棒

'设置新的"选项卡
TPicture(1).Move TPicture(0).Width, 0
TPicture(1).Visible = True

Set Label1(1).Container = TPicture(1)
Label1(1).Move (TPicture(1).Width - Label1(1).Width) / 2, (TPicture(1).Height - Label1(1).Width) / 2
Label1(1).Visible = True

WPIcture(1).Move 0, TPicture(1).Height
WPIcture(1).Visible = True

WB(1).Navigate URL 'Webbrowser转到上面的参数URL
Set 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 = True
End Sub