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

[最爱咖啡]

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

[最爱咖啡]

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

[熊孩子开学喽]

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

[zou19820704]

楼上的正确

[zou19820704]

楼上的正确

[vansoft]

有沒想過再運行時，把前面已經運行的打開並得到焦點呢？

[123BMW666]

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

[seven2015]

呵呵不错不错