机房收费系统---SSTab选项卡分别运行

最新推荐文章于 2020-08-18 13:39:06 发布

lllllLiangjia

最新推荐文章于 2020-08-18 13:39:06 发布

阅读量299

点赞数

分类专栏： vb 文章标签： vb it

本文链接：https://blog.csdn.net/liangjiabao5555/article/details/82414036

版权

vb 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

背景

当进行到结账窗体时，每当运行到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