关闭程序后仍然有窗体在后台运行怎么办？

level 4

yxqt2309 楼主

在首窗体frmlogin内设置代码只能打开一次窗体，避免同时打开几个同一程序。如有2次打开，则MSG提示:本程序已运行。
进入后打开子窗体ftmziliao后，关闭主窗体frmmain，但是再次打开EXE后,子窗体frmziliao仍然在运行，主窗体内已设置END语句，这种情况怎么处理。

2012年01月29日 08点01分 1

吧务

level 16

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "本程序已运行。", vbCritical
End
End If
End Sub

2012年01月29日 08点01分 2

吧务

level 16

关闭主窗体时，先卸载所有的子窗体，然后再 end

2012年01月29日 08点01分 3