单击选项卡时VB6 SSTab事件更改

时间:2016-07-19 08:38:02

标签: vb6

我在vb6中使用SSTab,我有2个标签:“Tab1”,“Tab2”。

哪个Tab1有内容这样的框架,dll。

并且Tab2没有内容,然后,我想要点击Tab“Tab2”,它显示另一种形式,并没有显示空白内容。 就像使用Form.Show和Form.Hide函数一样。

我从网上搜索过,我发现了这段代码:

Private Sub SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab Then
        Form2.Show
    End If
End Sub

是的,它有效,但是当我点击任何标签时表格会打开,我希望当我点击“Tab2”标签时表格会打开,我该怎么做?

1 个答案:

答案 0 :(得分:1)

试试这个

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
' your code

Case 1
' your code

Case 2
' your code
Form2.Show 
End Select
End Sub