如何用vb做多标签浏览器
展开全部
建一个只有一个选项卡的控件,在选项卡内放置一个web控件,将web控件的index设为0,以下为新增一页的代码
Private Sub Command1_Click()
'增加一个选项卡
SSTab1.Tabs = SSTab1.Tabs + 1
SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
SSTab1.TabCaption(SSTab1.Tabs - 1) = "新建窗口..."
SSTab1.Tab=SSTab1.Tabs - 1
'加载新的Web控件并放在新的选项卡上
Load Web1(Web1.UBound+1)
Set Web1(Web1.UBound).Container=SSTab1
Web1(Web1.UBound).Visible=True
Web1(Web1.UBound).Left=0
Web1(Web1.UBound).Top=0
End Sub
上例只是简单地讲述如何新增页,至于要关闭页就要对Web控件数组进行一系列重排了
可以根据关闭的SSTab选项卡的值来对WEB数组重排,自己好好想一下,Unload Web1(1)
可以卸载该控件。
Private Sub Command1_Click()
'增加一个选项卡
SSTab1.Tabs = SSTab1.Tabs + 1
SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
SSTab1.TabCaption(SSTab1.Tabs - 1) = "新建窗口..."
SSTab1.Tab=SSTab1.Tabs - 1
'加载新的Web控件并放在新的选项卡上
Load Web1(Web1.UBound+1)
Set Web1(Web1.UBound).Container=SSTab1
Web1(Web1.UBound).Visible=True
Web1(Web1.UBound).Left=0
Web1(Web1.UBound).Top=0
End Sub
上例只是简单地讲述如何新增页,至于要关闭页就要对Web控件数组进行一系列重排了
可以根据关闭的SSTab选项卡的值来对WEB数组重排,自己好好想一下,Unload Web1(1)
可以卸载该控件。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询