在设计编辑时，如何在tabstrip控件的选项卡之间进行切换.txt

VB技巧问答10000例 VB技巧问答10000例

TabStrip不 如 SSTab好 使 ， 主 要 就 体 现 在 设 计 时 ， SSTab可 以 比 较 方 便 地 切 换 选 项 卡 。 
    你 可 以 看 看 TabStrip的 Click事 件 ： 
    Private Sub tbsOptions_Click() 
     
     Dim i As Integer 
     '显 示 并 使 选 项 的 控 件 可 用 
     '并 且 隐 藏 使 其 他 被 禁 用 
     For i = 0 To tbsOptions.Tabs.Count - 1 
     If i = tbsOptions.SelectedItem.Index - 1 Then 
     picOptions(i).Left = 210 
     picOptions(i).Enabled = True 
     Else 
     picOptions(i).Left = -20000 
     picOptions(i).Enabled = False 
     End If 
     Next 
     
    End Sub 
    每 个 选 项 对 应 picOptions()控 件 数 组 中 的 一 个 。 第 一 个 为 picOptions(0)， 第 二 个 为 picOptions(1)， 依 次 类 推 。 如 果 你 想 修 改 其 他 的 选 项 ， 就 在 属 性 窗 口 中 选 择 相 应 的 picOptions， 然 后 修 改 该 控 件 的 Left属 性 ， 这 样 你 就 可 以 看 到 picOptions了 。 
<END>