Option Explicit
Private mintCurFrame As Integer' Current Frame visible
Private Sub Tabstrip1_Click() If Tabstrip1.SelectedItem.Index = mintCurFrame _ Then Exit Sub ' No need to change frame. ' Otherwise, hide old frame, show new. Frame1(Tabstrip1.SelectedItem.Index).Visible = True Frame1(mintCurFrame).Visible = False ' Set mintCurFrame to new value. mintCurFrame = Tabstrip1.SelectedItem.Index
End Sub
发行注意TabStrip 控件是一组自定义控件的一部分,这组自定义控件可以在文件 MSCOMCTL.OCX 中找到。为了在应用程序中使用 TabStrip 控件,必须将文件 MSCOMCTL.OCX 添加到工程中去。当发布应用程序时,要把文件 MSCOMCTL.OCX 安装到用户的 Microsoft Windows SYSTEM 目录下。关于如何在工程中添加自定义控件的详细信息,请参阅《程序员指南》。
Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = 0 To Frame1.Count - 1 '初始化所有选项卡
With TabStrip1
Frame1(i).Move .ClientLeft, .ClientTop, .ClientWidth, .ClientHeight '按所用区域最大化选项卡
End With
Next i
Call TabStrip1_Click '显示默认选项卡,未选之前是第一个
End Sub
Private Sub TabStrip1_Click() '单击选项卡标签时
Dim i As Long
For i = 0 To Frame1.Count - 1 '检查整个选项卡
If i = TabStrip1.SelectedItem.Index - 1 Then '如果是选中的
Frame1(i).Visible = True '显示
Else
Frame1(i).Visible = False '否则隐藏
End If
Next i
End Sub