请问到底什么原因会可能导致这种现象发生?
我已经检查很多遍了,就是搞不懂为什么会这样,请高手们帮助。谢谢``

解决方案 »

  1.   

    还有对象没有释放吧.
    在退出时清一下吧.
    Private Sub Form_Unload(Cancel As Integer)
    Dim myForm As Form
    For Each myForm In Forms
         Unload myForm
         Set myForm = Nothing
    Next
    End sub
      

  2.   

    你只是关闭了主窗体,但是你里面的对象并没有完全释放掉,先释放掉你建立的所有对象,然后用 End 结束程序
      

  3.   

    有隐藏窗体没有卸载。
    在最后一个窗口关闭时加上end就行了。
    比如:mainform的unload事件中加入end就可以了。
      

  4.   

    在程序结束的事件中要使用 end 就可以了,unload 只是卸载窗体,并非结束程序
      

  5.   

    程序没有终止,对象没有释放,end一下
      

  6.   

    原来是winsock正在发送信息的时候关闭,就会这样了。倒``
      

  7.   

    添加两个事件即可非常有效地解决此问题:Private Sub Form_Unload(Cancel As Integer)
    End
    End Sub
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
    Case 0:
    '窗体右上角的X号关闭窗体
        Call FileQ_Click
    Case 1:
    '程序代码关闭窗体,例如Unload Me
        Call FileQ_Click
    End
    Case 2:
    '关闭Windows关闭窗体
    End
    Case 3:
    '在任务管理器中关闭窗体
    End
    Case 4:
    'MDI窗体被卸载时关闭窗体,此程序无MDI窗体
    End Select
    End Sub这两个事件都是窗体自身包含的事件!你只需要把事件中的代码加入到相应的事件中去即可。当然直接复制过去也可!
      

  8.   

    补充:
    因为这是我自己的程序中写的代码,所以加入了自己的元素。其中的Call FileQ_Click你可以去掉。你在每一个分支中分别写入一个end就行!