我正在研究连接到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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。