在窗口的Unload事件写入程序便可

解决方案 »

  1.   

    你在窗体的unload事件中去添加代码就是啦
    Private Sub Form_Unload(Cancel As Integer)
    Me.WindowState = 1
    Cancel = True
    End Sub
    并把CANCEL赋值为true
    不关闭
      

  2.   

    上面的程序实现的功能就是当你点那个X的时候,窗口最小化
    并不关闭
    主要是cancel参数的作用
    为true时就不关闭
    这样就可以实现那些常用工具软件的同样效果
      

  3.   

    楼上的不对
    应该怎样Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
    Me.WindowState = 1  '窗体最小化
    End Sub
      

  4.   

    对 应该将 Cancel = True写在前面
      

  5.   

    这个是完全有可能的了,你只需要在窗体的Unload事件里加上Cancel=-1即可取消窗体的Unload事件了!
      

  6.   

    这个程序,我写过的了!你也可以在Cancel=-1之前写上一些处理的过程,比如询问是否关闭等等!