怎么让关闭按钮失效
如何让关闭按钮失效?
除了自己做最大化最小化按钮之外有没有其他方法了呢?
谢谢。
------解决方案--------------------
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then '屏蔽窗口的关闭按钮和窗口左上角菜单的 "关闭 "指令
Cancel = True
End If
End Sub
除了自己做最大化最小化按钮之外有没有其他方法了呢?
谢谢。
------解决方案--------------------
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then '屏蔽窗口的关闭按钮和窗口左上角菜单的 "关闭 "指令
Cancel = True
End If
End Sub