请教各位一个VB的小问题！

Question

VB6.0中程序已经运行了，当该程序还没有退出之前，我再一次运行该程序时,我怎么判断已经有一个该程序的实例已经运行了？

Answer 1

哦，可以用App对像来实现
If App.PrevInstance Then
    MsgBox "程序已经运行了!", vbOKOnly + vbInformation, "出错提示"
    Exit Sub
End If

Answer 2

If App.PrevInstance Then End
只要在你的启动模块里加上这句就行了。
（有可能是SUB MAIN，也有可能是FORM_LOAD...）

Answer 3

对 App.PrevInstance 的测试放入部件启动代码可以防止部件的多个复本运行在同一台计算机上