VB之TabStrip控件使用举例

先创建若干个TabStrip的选项
然后创建一个Frame控件数组，个数与TabStrip选项卡个数相等
注意设置Frame控件数组的索引值（index属性）从1开始（默认为从0开始），以便和TabStrip选项的索引值对应
然后编写以下代码：
Private Sub Form_Load()
For i = 1 To TabStrip1.Tabs.Count
Frame1(i).Width = TabStrip1.ClientWidth 'tab内部宽度
Frame1(i).Height = TabStrip1.ClientHeight 'tab内部高度
Frame1(i).Left = TabStrip1.ClientLeft 'tab内部左间距
Frame1(i).Top = TabStrip1.ClientTop 'tab内部顶部间距
Next i
For i = 2 To TabStrip1.Tabs.Count
Frame1(i).Visible = False '除了第一个选项对应的Frame，其他的都隐藏
Next i
End Sub
Private Sub Tabstrip1_Click()
For i = 1 To TabStrip1.Tabs.Count
If TabStrip1.SelectedItem.Index = i Then
Frame1(i).Tag = "dq"
End If
If Frame1(i).Tag = "dq" Then
Frame1(i).Visible = True
Else
Frame1(i).Visible = False
End If
Frame1(i).Tag = Empty
Next i
End Sub
代码说明：
Form_Load事件中 代码的作用：
1、初始化各个Frame控件的大小与位置（在设计时可以随便放置位置与大小）。
2、程序运行后，TabStrip默认显示第一个选项卡，所以将其它的选项卡对应的Frame先设置为不可见。
Tabstrip1_Click事件 中代码的作用：
程序运行后，单击哪一个选项卡，那么该选项卡对用的Frame设置为可见。
实现方法解释：
1、通过TabStrip的选项卡Index属性与Frame的Index属性来匹配，当单击TabStrip对应选项卡时，将对应Frame的Tag属性设置为一个值（代码中用的是dq，此值可以任意指定）
2、将Frame的Tag属性为dq的控件设置为可见，其它则不可见
3、将所有Frame的Tag属性还原为默认的空值，以便用于下一次单击TabStrip选项卡。
附加说明：
1、因为Frame是容器控件，所以要注意Frame是相互独立的，不存在包含关系，如果将一个Frame置于另外一个Frame中，则不能正常显示。
2、使用BorderStyle属性设置为0-None的Frame控件作为容器比使用PictureBox控件要节省资源。