窗体关闭问题

Question

我有一个窗体，点击关闭按钮时，变为还原窗口模式大小，而关不掉，再点一次时才能关闭，请问各位高手怎么解决此问题？

Answer 1

没有遇到过,如果代码不是太多的话，可以贴出来。
如果有QueryUnload事件在里面，可以检查一下这段。

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel=true
Me.WindowState = vbMinimized
End Sub

Answer 3

Dim CloseFlg As BooleanPrivate Sub Form_Load()
CloseFlg = False
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not CloseFlg Then
    CloseFlg = True
    Cancel = 1
    '此处是还原窗口代码
End If
End Sub

Answer 4

我没写unload 窗体事件
但按了两位的做了
还是不行
但是谢谢两位的提供的资料