关闭子窗体时也关闭了主窗体，为什么？谢谢

[chinazzj]

有这样一个现象：我有一个主窗体界面，点击图标弹出新的窗体，但是我在关闭新弹出的窗体后，主窗体一同关闭了。
我检查了form_unload里的代码，硬是没有发现异样的代码；另外，我尝试删除所有代码，发现还有这个现象，请问是什么回事，很不可思议，谢谢。

[射天狼]

不能吧,没遇到过~~~

[aloka]

代码贴出来看看

[of123]

是否有End语句？
另外，看看主窗体调用子窗体的语句后面是否有其他语句。

[xueyi0008]

不应该

应该是你在窗体调用时，可能有什么语句之类的，如end

好好检查一下

[佛的光辉]

不可能阿
在仔细检查一下阿

[CBASE]

用unload me 不要用end关闭

[chinazzj]

还是没发现异样代码
代码太长了，贴出几个关键地方：烦请指点，谢谢
主窗体：：//CloseCKC某个指定关闭输入法
Private Sub Form_Unload(Cancel As Integer)
Dim MsgReturn As Integer
MsgReturn = MsgBox("确实要退出子程序吗?", vbYesNo + vbQuestion, "教学系统")
If MsgReturn = 6 Then
On Error Resume Next
Dim myfile As String
myfile = Dir(FilePath & "*.gif")
Do While myfile <> ""
Kill FilePath & myfile
myfile = Dir
Loop
mdb.Close
Call CloseCKC
End
Else
Cancel = 1
Call SetLeftPicture
End If

End Sub
子窗体：//CloseCKC某个指定关闭输入法，SetWindowLong将默认的窗体程序还原
Private Sub Form_Unload(Cancel As Integer)
If WordNum <> 0 And CmdStart.Enabled = False Then
If MsgBox("È·ÐÅÒªÍ˳ö±¾Á·Ï°£¿", vbYesNo + vbQuestion, TrainFlag) = vbNo Then
Cancel = 1
If Command3.Caption = "ÔÝÍ£(&P)" Then Text1(TextIndex).SetFocus
Else
rs.Close
Call CloseCKC
Dim i As Integer
For i = 0 To 44
SetWindowLong Text1(i).hwnd, GWL_WNDPROC, prevWndprocT(i)
Next
End If
End If

End Sub

[无耐的开心]

是否有End语句？应用unload me。
看看主窗体调用子窗体的语句后面是否有其他语句。

[of123]

Private Sub Form_Unload(Cancel As Integer)
Dim MsgReturn As Integer
MsgReturn = MsgBox("确实要退出子程序吗?", vbYesNo + vbQuestion, "教学系统")
If MsgReturn = 6 Then
On Error Resume Next
Dim myfile As String
myfile = Dir(FilePath & "*.gif")
Do While myfile <> ""
Kill FilePath & myfile
myfile = Dir
Loop
mdb.Close
Call CloseCKC
End '*******************这里终止了全部进程
Else
Cancel = 1
Call SetLeftPicture
End If

End Sub

[射天狼]

你很明显用了END语句,最好不要用它,会造成内存泄漏~~~~

[coolboy0000love]

mdb.Close
Call CloseCKC
End
去掉就可以了

[muniu]

这么多人都说了一个观点：end去掉。