如何避免VB6应用程序同时开启多个运行实例？

本文共计214个文字，预计阅读时间需要1分钟。

我在研究连接MS Access数据库的VB6应用程序，不想让用户打开多个实例，以免产生冲突和改变连接数据。此外，如果用户尝试打开另一个实例，必须先关闭当前实例。

我正在研究连接到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