Office中国论坛/Access中国论坛

标题: [求助]如何禁用菜单栏（main）上的关闭、还原按键 [打印本页]

作者: liuxingyuabc 时间: 2006-5-5 17:24
标题: [求助]如何禁用菜单栏（main）上的关闭、还原按键
[attach]17547[/attach]

如何禁用菜单栏（main）上的关闭、还原按键

作者: K仔 时间: 2006-5-5 18:29
你是想不让别人关闭整个数据库吗?我不太明白

作者: liuxingyuabc 时间: 2006-5-5 22:11
恩，

我已经关闭控制框，但最大化后，在菜单上仍然有控制框。

作者: accchw 时间: 2006-7-7 19:37
顶上去,也是俺的问题

作者: andymark 时间: 2006-7-7 22:09
搜索一下,站长有个例子的

作者: accchw 时间: 2006-7-8 20:06
谢谢andymark

能告诉我那个贴子关键字吗，实在是没搜到

作者: zxzx2733 时间: 2006-7-9 08:24
在窗体（数据库打开时始终显示的那个窗体）的代码事件中的最前面，把下面代码粘贴上去即可。

Option Compare Database
Option Explicit
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 NoAccessAppCloseButton() '取消系统菜单中关闭按钮
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Dim hMenu As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub

Private Sub NoAccessAppRestoreButton() '取消系统菜单中恢复按钮
Dim hSysMenu As Long
Dim RetVal As Long
hSysMenu = GetSystemMenu(hWndAccessApp, 0)
RetVal = DeleteMenu(hSysMenu, &HF120, &H0)
hSysMenu = GetSystemMenu(Me.hwnd, 0)
RetVal = DeleteMenu(hSysMenu, &HF120, &H0)
End Sub

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