VB中TabStrip控件如何添加使用

1、打开VB6.0，右键工具栏空白处，选择 部件，找到TabStrip部件，如图

2、将控件放到窗体中，右键选择properties，打开属性页，选择Tabs，Insert Tab可添加数据页面，对应的Caption编辑标签名，如图

3、代码TabStrip1.SelectedItem.Index对应不同的页面，点击相应标签，相应的frame显示，就可实现不同页面的转换了

Private Sub TabStrip1_Click()

  Dim Index As Integer

  a = TabStrip1.SelectedItem.Index

  If a = 1 Then

    Picture1.Visible = True

    Frame1.Visible = False

  ElseIf a = 2 Then

    Frame1.Visible = True

    Picture1.Visible = False

  end if

end sub