请教:VB怎么做动态TabStrip

用“工程-部件”Microsoft Tabbed Dialog Control 6.0控件，比TabStrip方便多了。

画一个控件，已经准备了3个tab，符合每个选限卡切换一个页面的要求。增加选项卡也很简单：右击控件，选属性，就在眼前了

方法：

注*的地方是让选项卡带图标/图片的方法

如果还有疑惑，请选中控件，按 F1

1.添加部件引用

Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)

或 Microsoft Windows Common Controls 5.0 (comctl32.ocx)

2*.放置一个ImageList控件，命名为 IL1

3*.打开 IL1 的属性页，设定图片大小，再添加图片

3.在窗体上放置一个 TabStrip 命名为 TS1

在属性页有详细设置

4*.将属性页中的“图像列表(ImageList)” 设置为 IL1

5.代码：

1 >动态添加选项卡

TS1.Tabs.Add 3,"NP","NEW PAGE",2

'参数设定：

'3 为索引编号(Index)，可选。

'"NP" 为关键字(Key)，可选

'"NEW PAGE" 为标签文字(Caption)，可选

'2 为图像列表中图片的编号或关键字，可选

'如果没有图像列表，则使用

TS1.Tabs.Add 3,"NP","NEW PAGE"

2 >删除选项卡

TS1.Tabs.Remove 3

'参数设定：

'3 为要删除的选项卡的索引编号(Index) 或 关键字(Key)

'也可以使用

TS1.Tabs.Remove "NP"

'其中 "NP" 为关键字(Key)

3 >选项卡的控件

'由于 TabStrip 不支持子控件，所以可以使用 PictureBox 等来容纳选项卡中的控件

'然后使用其 Click 事件切换显示的 PictureBox

'下面是一个典型的代码事例

'请将 3 个 PictureBox 的控件数组放置在窗体上

'命名为 PB1

'将 BorderStyle 设为 0

'将 Visible 设为 False

'将 PB1(0) 的位置刚好移动到 TS1 的内容区

'设定好大小

'然后分别往里面添加控件

'代码：

Private Sub Form_Load()

'初始化

Dim I AS Long

For I = 0 To PB1.Count - 1

PB1(I).Move PB1(0).Left, PB1(0).Top, PB1(0).Width, PB1(0).Height

Next I

End Sub

Private Sub TS1_Click()

Dim I AS Long

For I = 0 To PB1.Count - 1

PB1(I).Visible = False

Next I

PB1(TS1.SelectedItem).Visible = True

End Sub

---