vb6 – 防止打开VB应用程序的多个实例

发布时间：2020-12-17 07:21:04 所属栏目：百科来源：网络整理

导读：我正在研究连接到MS Access数据库的VB6应用程序,所以我不想让用户打开我的应用程序的多个实例,因为这会产生冲突和改变连接数据库.此外,如果用户尝试打开另一个实例,则必须关注当前运行的实例.我怎样才能达到这个目的？提前致谢………. ：-) 解决方法使用App

我正在研究连接到MS Access数据库的VB6应用程序,所以我不想让用户打开我的应用程序的多个实例,因为这会产生冲突和改变连接数据库.此外,如果用户尝试打开另一个实例,则必须关注当前运行的实例.我怎样才能达到这个目的？提前致谢………. ：-)

解决方法

使用App.PrevInstance：

'this code would be in a bas module for start up.'
Private Sub main()
    'Check for previous instance and exit if found.'

    Dim rc As Long

    If App.PrevInstance Then
        rc = MsgBox("Application is already running",vbCritical,App.Title)
        Exit Sub
    Else
        frmMain.Show
    End If

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!