背景
当进行到结账窗体时,每当运行到SSTab控件,里面各个选项卡都会一起运行完,于是我就想如何设置点击单个的选项卡时只运行该选项卡里的内容。
代码实现
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
msgbox“这是第一个选项卡”,vbokonly,"提示"
Case 1
msgbox“这是第二个选项卡”,vbokonly,"提示"
Case 2
msgbox“这是第三个选项卡”,vbokonly,"提示"
Case 3
msgbox“这是第四个选项卡”,vbokonly,"提示"
Case 4
msgbox“这是第五个选项卡”,vbokonly,"提示"
Case 5
msgbox“这是第六个选项卡”,vbokonly,"提示"
End Select
End Sub