如何使access主窗体右上角的一些按钮失效

时　间:2010-08-26 15:44:45
作　者:phs2007   ID：13904  城市：成都
摘　要:如何使ACCESS主窗体右上角的一些按钮失效(如关闭、最大化、最小化、还原)
正　文:

Private Declare Function DeleteMenu Lib "user32"(ByVal hMenu As Long,ByVal nPosition As Long,ByVal_wFlags As Long) As Long

Private Delcare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRvert As Long) As_Long

Private Const MF_BYCOMMAND=&H0&

Private Const SC_MAXIMINZE=&HF030

Private Const SC_RESTORE=&HF120

Private Const SC_SIZE=&HF000

Private Const SC_MOVE=&HF010

Private Const SC_MINIMIZE=&HF020

Private Const SC_CLOSE=&HF060

'以上代码放在声明段

Dim hMenu As Long,Success As Long

hMenu =GetSystemmenu(Application.hWndAccessApp,0)

'禁止还原按钮

Success=DeleteMenu(hMenu,SC_RESTORE,MF_BYCOMMAND)

'禁止改变大小

Success=DeleteMenu(hMenu,SC_SIZE,MF_BYCOMMAND)

'禁止最大化

Success=DeleteMenu(hMenu,SC_MAXIMIZE,MF_BYCOMMAND)

'禁止最小化

Success=DeleteMenu(hMenu,SC_MINIMIZE,MF_BYCOMMAND)

'禁止关闭

Success=DeleteMenu(hMenu,SC_CLOSE,MF_BYCOMMADN)

'禁止移动

Success=DeleteMenu(hMenu,SC_MOVE,MF_BYCOMMAND)