一楼防偷窥

有没人一起来？也欢迎各位大神指正。
本人不喜欢在form上加加减减，修改起来很麻烦，就用代码动态设计布局吧。
form1.vb[设计]里面是空的，都在代码里。
工具：VB.NET 2010 学习版

Public Class Form1
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Form设计()
End Sub
Sub Form设计()
Me.Text = "XX浏览器"
Dim 主菜单 As MenuStrip = New MenuStrip()
Dim 地址框 As TextBox = New TextBox()
Dim ButtonGO As Button = New Button()
Dim ButtonBACK As Button = New Button()
Dim ButtonFORWARD As Button = New Button()
Dim ButtonREFRESH As Button = New Button()
Me.Controls.Add(主菜单)
Me.Controls.Add(地址框)
Dim 我的选项卡 As 选项卡 = New 选项卡()
Me.Controls.Add(我的选项卡)
End Sub
Class 选项卡
Inherits System.Windows.Forms.TabControl
End Class
Class 浏览窗口
Inherits System.Windows.Forms.WebBrowser
'需要重写一些东东
End Class
End Class

Dim Page As New TabPage()
Page.Name = "Page" & index.ToString()
Page.Text = "tabPage" & index.ToString()
Page.TabIndex = index
Dim WebBrowser1 As New WebBrowser()
WebBrowser1.Url = ""
Page.Controls.Add(WebBrowser1)
TabControl3.Controls.Add(Page)
用AddressOf 去绑定其他按钮事件就可以了，你全部重写，太花时间。

哈哈， 百度首页出来了，谁帮我把这些菜单按钮布局一下呀
Public Class Form1
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Form设计()
End Sub
Sub Form设计()
Me.Text = "XX浏览器"
Dim 主菜单 As MenuStrip = New MenuStrip()
Dim 地址框 As TextBox = New TextBox()
Dim Button进入 As Button = New Button()
Dim Button回退 As Button = New Button()
Dim Button前进 As Button = New Button()
Dim Button刷新 As Button = New Button()
Dim Button新选项卡 As Button = New Button()
Me.Controls.Add(主菜单)
Me.Controls.Add(地址框)
Me.Controls.Add(Button进入)
Me.Controls.Add(Button回退)
Me.Controls.Add(Button前进)
Me.Controls.Add(Button刷新)
Me.Controls.Add(Button新选项卡)
Dim 我的选项卡 As 选项卡 = New 选项卡()
Me.Controls.Add(我的选项卡)
Dim 首页 As 选项卡页 = New 选项卡页()
我的选项卡.Controls.Add(首页)
Dim 首页浏览窗口 As 浏览窗口 = New 浏览窗口()
首页.Controls.Add(首页浏览窗口)
首页浏览窗口.Url = New System.Uri("http://www.baidu.com", System.UriKind.Absolute)
End Sub
Class 选项卡
Inherits System.Windows.Forms.TabControl
End Class
Class 选项卡页
Inherits System.Windows.Forms.TabPage
'重写一些东东
End Class
Class 浏览窗口
Inherits System.Windows.Forms.WebBrowser
'重写一些东东
End Class
End Class

本帖是 运行本程序进贴吧发的，终于不乱开窗口了。

Imports System.Threading
Public Class Form1
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Form设计()
End Sub
Sub Form设计()
Me.Text = "XX浏览器"
Dim 地址框 As TextBox = New TextBox()
Dim Button进入 As Button = New Button()
Dim Button新选项卡 As Button = New Button()
Me.Controls.Add(地址框)
Me.Controls.Add(Button进入)
Me.Controls.Add(Button新选项卡)
Dim 我的选项卡 As 选项卡 = New 选项卡()
Me.Controls.Add(我的选项卡)
Dim 选项卡首页 As 选项卡页 = New 选项卡页()
我的选项卡.Controls.Add(选项卡首页)
Dim 首页浏览窗口 As 浏览窗口 = New 浏览窗口()
选项卡首页.Controls.Add(首页浏览窗口)
首页浏览窗口.Url = New System.Uri("https://tieba.baidu.com/f?kw=vb.net", System.UriKind.Absolute)
Me.WindowState = 2
Dim 首行高度 As Integer = Me.Font.Height + 8
Dim 导航按钮宽度 As Integer = 80
With 地址框
.Location = New System.Drawing.Point(3, 0)
.Size = New System.Drawing.Size(400, 首行高度)
.TabIndex = 1
.Text = "http://www.baidu.com"
End With
With Button进入
.Location = New System.Drawing.Point(地址框.Width + 3, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 2
.Text = "进入"
End With
With Button新选项卡
.Location = New System.Drawing.Point(地址框.Width + 3 + 导航按钮宽度, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 3
.Text = "新选项卡"
End With
With 我的选项卡
.TabIndex = 4
.RightToLeft = System.Windows.Forms.RightToLeft.Yes
.RightToLeftLayout = True
.Dock = DockStyle.Fill
End With
With 首页浏览窗口
.Dock = DockStyle.Fill
End With
End Sub
Class 选项卡
Inherits System.Windows.Forms.TabControl
End Class
Class 选项卡页
Inherits System.Windows.Forms.TabPage
'重写一些东东
End Class
Class 浏览窗口
Inherits System.Windows.Forms.WebBrowser
Protected Sub 浏览窗口_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyClass.NewWindow
e.Cancel = True
Dim urlNew = sender.Document.ActiveElement.GetAttribute("href")
WebBrowser.Navigate(urlNew)
End Sub
End Class
End Class

初步完成：
1.在本程序打开链接,不会转到IE那里，不乱弹窗口
2.多个选项卡同时浏览不同页面
Imports System.Threading
Public Class Form1
Dim 地址框 As TextBox
Friend WithEvents Button进入 As Button
Friend WithEvents Button辅助 As Button
Friend WithEvents Button收藏 As Button
Friend WithEvents Button新选项卡 As Button
Friend WithEvents 我的选项卡 As 选项卡
Friend WithEvents 选项卡首页 As 选项卡页
Friend WithEvents 首页浏览窗口 As 浏览窗口
Dim 地址
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Form设计()
地址 = New Uri(Me.地址框.Text)
End Sub
Sub Form设计()
Me.Text = "页游浏览器"
地址框 = New TextBox()
Button进入 = New Button()
Button辅助 = New Button()
Button收藏 = New Button()
Button新选项卡 = New Button()
Me.Controls.Add(地址框)
Me.Controls.Add(Button进入)
Me.Controls.Add(Button辅助)
Me.Controls.Add(Button收藏)
Me.Controls.Add(Button新选项卡)
我的选项卡 = New 选项卡()
Me.Controls.Add(我的选项卡)
选项卡首页 = New 选项卡页()
我的选项卡.Controls.Add(选项卡首页)
首页浏览窗口 = New 浏览窗口()
选项卡首页.Controls.Add(首页浏览窗口)
首页浏览窗口.Url = New System.Uri("https://tieba.baidu.com/f?kw=vb.net", System.UriKind.Absolute)
Me.WindowState = 2
Dim 首行高度 As Integer = Me.Font.Height + 8
Dim 导航按钮宽度 As Integer = 80
With 地址框
.Location = New System.Drawing.Point(3, 0)
.Size = New System.Drawing.Size(400, 首行高度)
.TabIndex = 1
.Text = "http://www.baidu.com"
End With
With Button进入
.Location = New System.Drawing.Point(地址框.Width + 3, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 2
.Text = "进入"
End With
With Button辅助
.Location = New System.Drawing.Point(地址框.Width + 3 + 导航按钮宽度, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 3
.Text = "辅助"
End With
With Button收藏
.Location = New System.Drawing.Point(地址框.Width + 3 + 导航按钮宽度 * 2, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 3
.Text = "收藏"
End With
With Button新选项卡
.Location = New System.Drawing.Point(地址框.Width + 3 + 导航按钮宽度 * 3, 0)
.Size = New System.Drawing.Size(导航按钮宽度, 首行高度)
.TabIndex = 5
.Text = "新选项卡"
End With
With 我的选项卡
.TabIndex = 4
.RightToLeft = System.Windows.Forms.RightToLeft.Yes
.RightToLeftLayout = True
.Dock = DockStyle.Fill
End With
With 首页浏览窗口
.Dock = DockStyle.Fill
End With
End Sub
Class 选项卡
Inherits System.Windows.Forms.TabControl
End Class
Class 选项卡页
Inherits System.Windows.Forms.TabPage
'重写一些东东
End Class
Class 浏览窗口
Inherits System.Windows.Forms.WebBrowser
Protected Sub 浏览窗口_Navigating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyClass.Navigating
MyBase.ScriptErrorsSuppressed = True
End Sub
Protected Sub 浏览窗口_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles MyClass.Navigated
Form1.地址框.Text = Me.Url.ToString
End Sub
Protected Sub 浏览窗口_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyClass.NewWindow
e.Cancel = True
Dim urlNew = sender.Document.ActiveElement.GetAttribute("href")
MyBase.ScriptErrorsSuppressed = True
MyBase.Navigate(urlNew)
End Sub
End Class
Private Sub Button进入_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button进入.Click
地址 = New Uri(地址框.Text)
首页浏览窗口.Navigate(地址)
End Sub
Private Sub Button新选项卡_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button新选项卡.Click
Dim 新选项卡 As 选项卡页 = New 选项卡页()
我的选项卡.Controls.Add(新选项卡)
Dim 新浏览窗口 = New 浏览窗口()
新选项卡.Controls.Add(新浏览窗口)
新浏览窗口.Url = New System.Uri("http://www.baidu.com", System.UriKind.Absolute)
新浏览窗口.Dock = DockStyle.Fill
End Sub
End Class

怪麻烦的，不如用控件界面自动添加，既方便，又易懂，内部VB.NET的IDE帮你干了。

给个运行后的屏幕截图，我也学学。

用.net 自身去开发这个浏览器，调用的是IE的内核，没有什么性能上的提升的，练练手还行。

用这个开网页感觉比IE快了将近一半，不知什么原因？难道IE里面加载很多其他东西？