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 ihtml frame
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控件要节省资源。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。