如何使access标题栏右边的控制按钮无效？

maxli789

为使操作者不能随意更改应用程序窗口大小，如何使access标题栏右边的控制按钮无效？（包括其他窗体的最大化、最小化、关闭按钮）

danis

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const Ws_OnlyClose = &H30000
Const WS_SYSMENU = &H80000

Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Function SetFlatten()
  Dim hWnd As Long
  Dim Ls   As Long
  hWnd = Application.hWndAccessApp
  Ls = GetWindowLongA(hWnd, GWL_STYLE)
  
  SetWindowLongA hWnd, GWL_STYLE, Ls And Not Ws_OnlyClose
  'SetWindowLongA hWnd, GWL_STYLE, Ls Or Ws_OnlyClose
  DrawMenuBar hWnd
End Function

唐玉娥

应该有用的，同志们