首页 /编程语言和算法/VB6/ASP
 VB6 Command1.Tag是干嘛的?如何用?原来是可以简单的做切换开关。
2023年12月4日 21:50

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Form_Load()
    Command1.Tag = "0" '还没启动,是停止状态
    Command1.Caption = "启动"
End Sub

Private Sub Command1_Click()
    '启动与停止服务切换
    With Command1
        If .Tag = "0" Then
            .Tag = "1" '现在是停止状态->设置为启动状态
            .Caption = "停止"
            MsgBox "程序开始运行..."
        Else
            .Tag = "0" '现在是启动状态->设置为停止状态
            .Caption = "启动"
            MsgBox "程序现在停止了。"
        End If
    End With
End Sub

这样就可以一个按钮切换开关。

 
全部回复(0)
首页 | 电脑版 |