Private Sub Form_Load()
Dim i As Integer
Dim Tabx As Object
'设置第一个选项卡的标题为“检查”。
TabStrip1.Tabs(1).Caption = "Check"
'添加以“文本”为标题的第二个选项卡。
Set Tabx = TabStrip1.Tabs.Add(2, , "Text")
'标记复选框。
Check1.Caption = "Cancel tab switch"
'使框架跟 Tabstrip 控件的内部区域对齐。
For i = 0 To 1
Frame1(i).Left = TabStrip1.ClientLeft
Frame1(i).Top = TabStrip1.ClientTop
Frame1(i).Height = TabStrip1.ClientHeight
Frame1(i).Width = TabStrip1.ClientWidth
Next
'把第一个选项卡的框架容器放在顶端。
Frame1(0).ZOrder 0
End Sub
'用 BeforeClick 事件校认复选框的值,决定是否继续进行 Click
'事件。
Private Sub TabStrip1_BeforeClick(Cancel As Integer)
If TabStrip1.Tabs(1).Selected Then
If Check1.Value = 1 Then Cancel = True
End If
End Sub
Private Sub TabStrip1_Click()
Frame1(TabStrip1.SelectedItem.Index-1).ZOrder 0
End Sub