Office中国论坛/Access中国论坛

标题: 如何禁用ACCESS本身的最大化和关闭按钮 [打印本页]

作者: rogertian 时间: 2004-3-11 19:37
标题: 如何禁用ACCESS本身的最大化和关闭按钮
不想用户按ACCESS的关闭按钮(就是右上角的X)关闭程序.如何才能禁止使用它..谢谢.

作者: paul16 时间: 2004-3-11 20:09
看看这个：如何关闭主窗体的关闭按钮！

http://posesky.com/bbs/dispbbs.asp?BoardID=3&ID=196

作者: rogertian 时间: 2004-3-11 20:37
谢谢啊...

作者: accchw 时间: 2006-7-8 21:37
链接打不开

作者: xyxj1974 时间: 2009-8-26 15:24
本帖最后由 xyxj1974 于 2009-8-26 15:27 编辑

在程序开始的窗体里加入：
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Sub FORM_Load()

　　Const MF_BYCOMMAND = &H0&
　　Const SC_CLOSE = &HF060 ''恢复按钮的ID是：&HF120
　　Dim hMenu As Long
　　
　　hMenu = GetSystemMenu(Application.hWndaccessApp, 0)
　　
　　Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
　　
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)