设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2662|回复: 6
打印 上一主题 下一主题

[其它] [求助]如何禁用菜单栏(main)上的关闭、还原按键

[复制链接]
跳转到指定楼层
1#
发表于 2006-5-5 17:24:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-5-5 18:29:00 | 只看该作者
你是想不让别人关闭整个数据库吗?我不太明白
3#
 楼主| 发表于 2006-5-5 22:11:00 | 只看该作者
恩,

我已经关闭控制框,但最大化后,在菜单上仍然有控制框。
4#
发表于 2006-7-7 19:37:00 | 只看该作者
顶上去,也是俺的问题
5#
发表于 2006-7-7 22:09:00 | 只看该作者
搜索一下,站长有个例子的
6#
发表于 2006-7-8 20:06:00 | 只看该作者
谢谢andymark

能告诉我那个贴子关键字吗,实在是没搜到
7#
发表于 2006-7-9 08:24:00 | 只看该作者
在窗体(数据库打开时始终显示的那个窗体)的代码事件中的最前面,把下面代码粘贴上去即可。

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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:50 , Processed in 0.087708 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表