请教：tabStrip 上可以放控件吗？

[Jazzlover]

在设计时可以向第二页、第三页放东西吗？

[bydisplay]

可以呀

[ken2002p4]

不可以，用SSTab吧

[suntt]

同意楼上，用sstab

[lilaclone]

建议用SSTAB控件
SSTab控件加载：MicroSoft Tabbed Dialig 6.0

TablStrip控件在设计时不可放控件，但在运行时可进行设定以实现，需建立子控件窗口（Picture控件及Frame控件等）如：
Option Explicit
Private Sub Form_Load()
Dim Tab2, Tab3
Dim intI As Integer
'增加2个选项卡条
Set Tab2 = TabStrip1.Tabs.Add(2, "k2", "字号", 2)
Set Tab3 = TabStrip1.Tabs.Add(3, "k3", "字样", 3)
'将图片框数组元素移到选项卡的客户区，并改变标号的位置
For intI = 0 To Picture1.Count - 1
Picture1(intI).Move TabStrip1.ClientLeft, TabStrip1.ClientTop, _
TabStrip1.ClientWidth, TabStrip1.ClientHeight
Label1(intI).Move Label1(intI).Left + intI * 1000, _
Label1(intI).Top + intI * 1000
Next intI
End Sub

'单击选项卡条，使对应的图片框移到前台
Private Sub TabStrip1_Click()
Picture1(TabStrip1.SelectedItem.Index - 1).ZOrder 0
End Sub

[lihonggen0]

用SSTAB控件

做成分页的

[Creep1980]

可以将想要在不同页中放的控件放到Frame容器（它们的大小必须与控件中所有 Tab 对象共享的内部区域匹配）中，然后根据选择的SelectedItem.Index来控制FRAME的VISIBLE属性！

实例：
Option Explicit
Private mintCurFrame As Integer' Current Frame visible

Private Sub Tabstrip1_Click()
If Tabstrip1.SelectedItem.Index = mintCurFrame _
Then Exit Sub ' No need to change frame.
' Otherwise, hide old frame, show new.
Frame1(Tabstrip1.SelectedItem.Index).Visible = True
Frame1(mintCurFrame).Visible = False
' Set mintCurFrame to new value.
mintCurFrame = Tabstrip1.SelectedItem.Index
End Sub

[hhmmss]

tabStrip 上可以放控件?
当然可以
只不过tabStrip不是容器
具体可以查一下msdn

不如sstab方便