利用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)

附   件:

点击下载此附件