7,762
社区成员
发帖
与我相关
我的任务
分享在VB中如何实现单实例程序，即：运行这个程序后不能再次运行这个程序
我知道在VC里用CreateMutex(NULL,FALSE,"vod");然后if(GetLastError()==ERROR_ALREADY_EXISTS)可以办到，但在VB里面开始是FORM_LOAD，如果我在FORM_LOAD中直接这样判断然后UNLOAD ME，程序界面虽然不会出现，但是本身的线程还是存在的，CTR+ALT+DEL可以看到这个线程仍在运行中，这可能是由于VB的窗口虽然没有运行，但是程序主线程已经开始了，并且必须在FORM_LOAD完毕之后才可以关闭，虽然在FORM_LOAD中UNLOAD了，但是主线程却并没有关闭造成的，不知道我的理解对不对。那么现在如何才能创建一个单实例程序呢，请高手赐教！
...全文
请发表友善的回复…
发表回复
jxgzay 2005-07-18
- 打赏
- 举报
凑热闹，吃点剩菜。
If App.PrevInstance = True Then
MsgBox "本程序已经在运行！"
end
End If
If App.PrevInstance = True Then
MsgBox "本程序已经在运行！"
end
End If
suntao222 2005-07-18
- 打赏
- 举报
后面的两位来迟一步不好意思，不过还是要谢谢：）
optop 2005-07-18
- 打赏
- 举报
App.PrevInstance
lc_mtt 2005-07-18
- 打赏
- 举报
App.PrevInstance = True 如果需要激活已经运行的程序，可能要用到DDE
饮水需思源 2005-07-18
- 打赏
- 举报
private form1_load()
If App.PrevInstance = True Then
MsgBox "您不能同时运行多个程序！"
end
End If
end sub
If App.PrevInstance = True Then
MsgBox "您不能同时运行多个程序！"
end
End If
end sub
