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

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

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

???

Option Explicit

Private Sub Form_Load()
    
    If App.PrevInstance Then
       Call MsgBox("This program has been executed", vbCritical, "Warning")
       End
    End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim Message As String

    Message = "Do you sure to quit " + Form1.Caption + "?"
    If MsgBox(Message, vbQuestion + vbYesNo, Form1.Caption) = vbNo Then
        Cancel = True
    End If

End Sub

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

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

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

你新建一个工程，写入上面的代码，仍然是这样吗？If App.PrevInstance 最好写在SUB MAIN（）函数中，并以MAIN函数作为程序的入口是最好。

谢谢！！！
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 编辑 ]

4楼正解！main做入口

学习了～