不知道电影主题曲 梗:关于vb制作选项卡的问题

你也可以使用向导生成一个包含选项卡的工程，看看它的代码是怎么实现的！
我给你摘一段：
Private Sub cmdOK_Click()
'ToDo: 添加 'cmdOK_Click' 代码
MsgBox "此处添加代码，设置选项并关闭对话框！"
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = tbsOptions.SelectedItem.Index
'处理 ctrl+tab 移到下一 tab
If (Shift And 3) = 2 And KeyCode = vbKeyTab Then
If i = tbsOptions.Tabs.Count Then
'已是最后的 tab 所以需要折回到 tab 1
Set tbsOptions.SelectedItem = tbsOptions.Tabs(1)
Else
'递增 tab
Set tbsOptions.SelectedItem = tbsOptions.Tabs(i + 1)
End If
ElseIf (Shift And 3) = 3 And KeyCode = vbKeyTab Then
If i = 1 Then
'已是最后的 tab 所以需要折回到 tab 1
Set tbsOptions.SelectedItem = tbsOptions.Tabs(tbsOptions.Tabs.Count)
Else
'递增 tab
Set tbsOptions.SelectedItem = tbsOptions.Tabs(i - 1)
End If
End If
End Sub

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

用多个Picture控件重叠在一起，响应选项卡的鼠标事件来更新Picture的visible属性，使需要的Picture可见。

picture像frame一样可以作为容器，里面再添别的控件随你便.