在form 的queryunload事件中
    me.windowstate=1
    cancel=1

解决方案 »

  1.   

    我做过一个程序,有一窗体要除去关闭按钮(那个叉)的功能,但窗体内却有退出按钮,因此我定义了一个数a,form_load中a=0,退出按钮中a=1,然后在楼上的语句中做一个判断就行了!
      

  2.   

    在form 的queryunload事件中有个指明退出原因的参数
    if 它=0 then  '我忘记它是什么了,事件参数中有
        me.windowstate=1
        cancel=1
    endif
      

  3.   

    Private QuitFlags as booleanPrivate CmdQuit_Click()
        QuitFlags=True
        Unload Me
    End Subprivate Form_queryunload(……)
        Cancel=(QuitFlage=False)and 1
    end sub