vb中TabStrip控件怎样用代码来切换选项卡？

利用代码切换TabStrip上卡片的方法如下：

（1）新建一个VB6工程。在窗体上布置一个TabStrip和三个Command

如上图，设置TabStrip属性，使之具有3个Tab

（2）Form1窗体代码

Option Explicit

Private Sub Command1_Click()
    ' 切换到 #1 
    TabStrip1.Tabs(1).Selected = True
End Sub

Private Sub Command2_Click()
    ' 切换到 #2 
    TabStrip1.Tabs(2).Selected = True
End Sub

Private Sub Command3_Click()
    ' 切换到 #3 
    TabStrip1.Tabs(3).Selected = True
End Sub

（3）运行效果

鼠标点击Command2后

鼠标点击Command3后

鼠标点击Command1后

你可以建立一个PictureBox数组picOptions()，让TabStrip的每个选项对应picOptions()控件数组中的一个，把每个页面上的控件都放在相应的PictureBox中。第一个选项为picOptions(0)，第二个为picOptions(1)，依次类推。如果你想修改某个选项，就在属性窗口中选择相应的picOptions，然后修改该控件的Left属性，这样你就可以看到picOptions了。在VB中选择“添加窗体”，然后选择“选项对话框”所建立的窗体就是根据这个原理做的。
你可以看看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

建议你使用SSTab，感觉比TabStrip好用一些。

要用SSTab，添加控件时找Microsoft Tabbed Dialog Control 6.0即可。

以下是SSTab的教程，你可以看一下。

http://jpkc.wxit.edu.cn/VB/Wlkc/vb8/08-04-00.html

TabStrip控件：
Me.TabStrip1.Tabs(1).Selected = True
Me.TabStrip1.Tabs(2).Selected = True
。。
Me.TabStrip1.Tabs(n).Selected = True

SSTab控件：
Me.SSTab1.Tab = 0
Me.SSTab1.Tab = 1
..
Me.SSTab1.Tab = n

是否这个意思。