利用VBA禁用或启用Access主程序的关闭按钮-Big Young
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


利用VBA禁用或启用Access主程序的关闭按钮

发表时间:2017/12/3 13:22:58 评论(2) 浏览(8041)  评论 | 加入收藏 | 复制
   
摘 要:    利用VBA禁用或启用Access主程序的关闭按钮。
正 文:

    在利用ACCESS进行程序开发时,有时为了避免用户随意将程序关闭,需要临时禁用主程序窗口的关闭按钮,我们可以利用下面的代码实现。

    在VBA编程器中新建下标准模块,把下面的VBA代码粘贴进去并保存,这时只要在需要的时候调用AccessCloseButtonEnabled(  )函数即可。如:禁用关闭按钮就这样调用函数Call AccessCloseButtonEnabled(False);在需要启用关闭按钮时就这样调用Call AccessCloseButtonEnabled(True)



Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long


Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
    On Error Resume Next
    
    Const clngCommand As Long = &H0&
    Const clngGrayed As Long = &H1&
    Const clngClose As Long = &HF060&
    
    Dim lngWindow As Long
    Dim lngMenu As Long
    Dim lngFlags As Long
    
    lngWindow = Application.hWndAccessApp
    lngMenu = GetSystemMenu(lngWindow, 0)
    If pfEnabled Then
        lngFlags = clngCommand And Not clngGrayed
    Else
        lngFlags = clngCommand or clngGrayed
    End If
    Call EnableMenuItem(lngMenu, clngClose, lngFlags)
End Sub


'禁用关闭按钮
'Call AccessCloseButtonEnabled(False)
'
'启用关闭按钮
'Call AccessCloseButtonEnabled(True)


附   件:

点击下载此附件


Access软件网交流QQ群(群号:198465573)
 
 相关文章
用代码禁止关闭按钮,即数据库窗口右上角的“X”失效  【竹笛  2007/10/27】
屏蔽access2003主窗体中的关闭按钮方法  【UMVsoft整理  2009/1/23】
快速开发平台--关闭按钮始终在最右边方法  【风行  2015/3/23】
窗体右上角最大最小化和关闭按钮功能如何打开  【杜超  2015/9/29】
常见问答
技术分类
相关资源
文章搜索
关于作者

Big Young

文章分类

文章存档

友情链接