| ウィンドウ右上のボタンを無効にする |
|
(旧：ウィンドウ右上の閉じるボタンを無効にする）
対象バージョン : 97, 2000, 2002, 2003
最終更新日 : 2005/04/25
（オリジナル作成日 : 1998/10/04）
概 要
Windows API
を用いてウィンドウ右上にあるボタン 
を無効にする方法です。
解 説
１．API の宣言と、定数の定義
General - Declarations
Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYCOMMAND = &H0&
Public Const SC_CLOSE = &HF060
Public Const SC_MAXIMIZE = &HF030
Public Const SC_MINIMIZE = &HF020
Public Const SC_RESTORE = &HF120
２．ユーザー定義関数からの呼び出し
Public Function Sample() Dim hwnd As Long Dim result As Long hwnd = GetSystemMenu(hWndAccessApp, 0) result = RemoveMenu(hwnd, SC_CLOSE, MF_BYCOMMAND) ' 閉じるボタン result = RemoveMenu(hwnd, SC_MAXIMIZE, MF_BYCOMMAND) ' 最大化ボタン result = RemoveMenu(hwnd, SC_MINIMIZE, MF_BYCOMMAND) ' 最小化ボタン result = RemoveMenu(hwnd, SC_RESTORE, MF_BYCOMMAND) ' 元に戻すボタン End Function
改訂履歴
99/02/03 最大化、最小化、元に戻すボタンの無効化を追加。
