Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2017-12-03 13:22:58
作 者:Big Young   ID:252  城市:襄阳
摘 要:    利用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群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助