我的 VB6 应用程序由 MS Access 数据库支持。允许用户打开应用程序的多个实例会产生冲突并更改连接的数据库。
理想的解决方案是，如果用户尝试打开新实例，则关注现有实例。
我怎样才能达到这个目的？
Use 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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
