Load事件
If App.PrevInstance Then
MsgBox "程序重复打开"
End
End Sub

Unload事件
Dim frm As Form
For Each a In VB.Forms
Unload a

单击程序一次,任务管理器中此程序就多一个进程,请教大家给个代码,解决头痛的问题
谢谢!!!

谢谢，上班后试试
好象你的Load事件和我的语句差不多，

Unload事件中只是给予提示关闭

解决主要是重复打开后任务管理器中此程序就多一个进程，

谢谢！！！
Load事件
If App.PrevInstance Then
MsgBox "程序重复打开"
End
End Sub

Unload事件
Dim frm As Form
For Each a In VB.Forms
Unload a

我在家测试没问题，但在单位电脑中测试，打开一次，就多一个进程，不知怎么搞的
是否End没有真正的关闭？？？


只好这样：
Sub Main()
If App.PrevInstance = True Then
MsgBox "程序重复打开"
End
Else
Form1.Show
End If
End Sub
明天到单位再测试
谢谢！！
有问题再请教




[ 本帖最后由 看学 于 2011-7-13 18:20 编辑 ]