| |
質問させてください。
当サイトで閉じるボタンを無効にする方法はのっていましたので、
それをコピペして確認したところ、閉じるボタンを無効にすることができました。
さらに、最大化ボタンと最小化ボタンを無効にしたいのですが、方法がわかりません。
方法をご存知の方見えましたら、ご教授ください。
または、参考になるサイトを教えていただけますか？
よろしくお願い致します。
【ソース】
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long
Private Const MF_BYCOMMAND As Long = &H0&
Private Const SC_CLOSE As Long = &HF060&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&
Private Const SC_RESTORE As Long = &HF120&
Private Const SC_MOVE As Long = &HF010& '移動
Private Const SC_SIZE As Long = &HF000& 'サイズ変更
Public Function RepealButton()
Dim LnghWnd As Long
LnghWnd = GetSystemMenu(hWndAccessApp, 0&)
Call RemoveMenu(LnghWnd , SC_CLOSE, MF_BYCOMMAND)
Call RemoveMenu(LnghWnd , SC_MAXIMIZE, MF_BYCOMMAND)
Call RemoveMenu(LnghWnd , SC_MINIMIZE, MF_BYCOMMAND)
Call RemoveMenu(LnghWnd , SC_MOVE, MF_BYCOMMAND)
Call RemoveMenu(LnghWnd , SC_SIZE, MF_BYCOMMAND)
Call RemoveMenu(LnghWnd , 0, MF_BYCOMMAND)
Call DrawMenuBar(LnghWnd )
End Function
別のところで最大化ボタン等を無効にするというものをいくつか見つけましたが、
確認したら、閉じるボタンのみ無効となり、最大化ボタン、最小化ボタンは
無効になりませんでした。
詳しいことはわかりませんが、上記のソースを見るかぎりでは、最大化ボタン、最小化ボタンを
無効にしているようなのですが、うまくいきませんでした。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
