VB6.0高手请进：VB6.0中如何使点击右上角的关闭按钮时不执行unload事件？在线等待！！！

Question

VB6.0中如何使点击右上角的关闭按钮时不执行unload事件？

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = True
End Sub

Answer 2

呵呵：
Unload 事件一定是会执行的，除非你不在事件里添加代码
楼上说的是通过执行unload事件取消关闭窗体的动作
要想不关闭窗体楼上的方法就可以了，当然如果是SDI窗体则是：
public Sub Form_Unload(Cancel As Integer)
on error goto ErrTrap
  Cancel = True
  exit sub
ErrTrap:
'在这里添加错误从处理
on error goto 0
End Sub
如果楼主的意思是不想执行Unload事件，除了不往Unload事件里写代码
好像是没法子了

Answer 3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1
End Sub
就不执行unload

Answer 4

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        Cancel = True
    End If
End Sub