如何让关闭按钮失效?
除了自己做最大化最小化按钮之外有没有其他方法了呢?
谢谢。
[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then '屏蔽窗口的关闭按钮和窗口左上角菜单的 "关闭 "指令
Cancel = True
End If
End Sub
发布时间: 2012-01-20 18:53:53 作者: rapoo
如何让关闭按钮失效?
除了自己做最大化最小化按钮之外有没有其他方法了呢?
谢谢。
[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then '屏蔽窗口的关闭按钮和窗口左上角菜单的 "关闭 "指令
Cancel = True
End If
End Sub