本示例用 BeforeClick 事件来演示怎样防止用户切换到另一个选项卡。这常用于在显示新选定的选项卡之前校验当前标记上的信息。
要试用此例，将 TabStrip 控件和双元素的 Frame 控件数组放到窗体上（设置 BorderStyle 属性为 None）。在第一个 Frame 控件中，添加 CheckBox 控件，而在第二个 Frame 控件中添加 TextBox 控件。把下面的代码粘贴到 Form 对象的 Load 事件中，并运行该程序。在选定/撤消标为“检查”的选项卡上的复选框之后，单击标为“文本”的选项卡。
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
