'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 IfEnd Sub总结
以上是内存溢出为你收集整理的vb6 – 防止打开VB应用程序的多个实例全部内容,希望文章能够帮你解决vb6 – 防止打开VB应用程序的多个实例所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)