判断程序是否已经打开

来源:互联网 发布:淘宝街头篮球三无账号 编辑:程序博客网 时间:2024/04/20 02:13

Dim title As String
    If App.PrevInstance Then
        title = App.title
        App.title = ""
        Me.Caption = ""
        AppActivate title
        MsgBox "程序已经运行!"
        Unload Me
        End
    End If

原创粉丝点击