TabStrip不是直接在里面添加控件,而是通过Frame或Picture控件实现的.
相关操作:
建立Frame或Picture控件组,设置好属性,摆好位置.TabStrip建立好选项
Private Sub TabStrip1_Click()
Dim i As Integer
For i = 0 To TabStrip1.Tabs.Count - 1
If i = TabStrip1.SelectedItem.Index - 1 Then
Picture1(i).Visible = True
Else
Picture1(i).Visible = False
End If
Next
End Sub