多标签在浏览器中的实现

 

 前一段时间报选修，相信大家对学校的管理系统都很熟悉，应该也会注意到在进入系统后要点击选修课会强制弹出一个窗口，而不是在原来的基础上转接，我就想研究一下浏览器的标签功能的实现。

要实现标签的功能，首先想到的应该就是SStab控件，这也是好多人都选取的。用它来做选项标签页很容易，可是用来做浏览器的标签就会很费力。sstab的每一个tab页都相当于一个容器，可以把webBrowser控件放到里面，这样就基本可以实现一个标签页的共能。可是浏览器的标签不是固定的，那么就只好随用随生成。在webBrowser的newwindow事件发生前加载一个新的标签：

Private Sub WebBrowser_BeforeNavigate2(Index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, - PostData As Variant, Headers As Variant, Cancel As Boolean) SSTab1.Tabs = SSTab1.Tabs + 1 '增加一个窗口 SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1 SSTab1.TabCaption(SSTab1.Tabs - 1) = "新建窗口..." SSTab1.Tab=SSTab1.Tabs - 1 '新增窗口为当前标签 '加载新的WebBrowse