窗体关闭问题
我有一个窗体,点击关闭按钮时,变为还原窗口模式大小,而关不掉,再点一次时才能关闭,请问各位高手怎么解决此问题?
[解决办法]
没有遇到过,如果代码不是太多的话,可以贴出来。
如果有QueryUnload事件在里面,可以检查一下这段。
[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel=true
Me.WindowState = vbMinimized
End Sub
[解决办法]
Dim CloseFlg As Boolean
Private Sub Form_Load()
CloseFlg = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not CloseFlg Then
CloseFlg = True
Cancel = 1
'此处是还原窗口代码
End If
End Sub