每次要彻底关掉程序,都要打开windows任务管理器 然后结束掉这个应用程序我的启动对象:
Sub Main()    
几个公用变量
定义了一个文件管理对象
启动的主窗体
end  sub大家遇到这种情况没有,怎么解决的,王不吝指教!  谢谢!

解决方案 »

  1.   

    在主窗体的 unload 中记得加一句 end
      

  2.   

    没有把所有窗体都UNLOAD或者窗体间有关联,比如A窗体结束时,又调用了B窗体中的一个过程,属性等.....以下代码保存为"ModQuit":Attribute VB_Name = "ModQuit"
    '*************************************************************************
    '**模 块 名:ModQuit
    '**说    明:退出程序时自动卸载所有窗口
    '**创 建 人:马大哈
    '**日    期:2003年10月26日
    '*************************************************************************
    Option ExplicitPublic Sub Quit()
        Dim X As Form
        For Each X In Forms
            Unload X
        Next
        End
    End Sub退出时调用Quit就可以了
      

  3.   

    在每个窗体的unload事件中写上:set 窗体名=nothing
      

  4.   

    在主窗体的 unload 中记得加一句 end
      

  5.   

    在每个窗体的unload事件中写上:set 窗体名=nothing
     是对的  
    其它方法都有错误提示谢谢各位
      

  6.   

    要退出时,调用如下一句:Private Declare Function CreateThread Lib "kernel32.dll" (Byval lpThreadAttributes As long, ByVal dwStackSize As Long, Byval lpStartAddress As Long, byval lpParameter As long, ByVal dwCreationFlags As Long, ByRef lpThreadId As Long) As Long
    createthread 0,0,0,0,0,0试试,保管能退出......(闪哪~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)