读书人

窗体关闭有关问题

发布时间: 2012-02-21 16:26:23 作者: rapoo

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

[解决办法]
没有遇到过,如果代码不是太多的话,可以贴出来。
如果有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

读书人网 >VB

热点推荐