tapstrip控件 求教此程序 为什么运行没反应

？？？？求教此程序 为什么运行没反应

你设置的Caption还是Key

你可以加上一个MsgBox tapstrip1.selecteditem.key在前面输出下

VB控件中TabStrip可以在程序中运行中切换多个窗口

lz你代码没有问题。我亲自测试，有图在此。那个胡搅蛮缠的用户，请csdn尽早处理。

 Private Sub Command1_Click()
    MsgBox Me.TabStrip1.SelectedItem.Key
End Sub

Private Sub Command2_Click()
    MsgBox Me.TabStrip1.SelectedItem.Key
End Sub

Private Sub Form_Load()
    Me.TabStrip1.Tabs.Clear
    Me.TabStrip1.Tabs.Add , "Key1", "Key1"
    Me.TabStrip1.Tabs.Add , "Key2", "Key2"
End Sub

Private Sub TabStrip1_Click()
    Select Case Me.TabStrip1.SelectedItem.Key
        Case "Key1"
            Command1.Visible = True
            Command2.Visible = False
        Case "Key2"
            Command2.Visible = True
            Command1.Visible = False
    End Select
End Sub