メニューの【閉じる】を無効化にするには[XP]？ (ID:75485)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 RemoveMenuを使用することによって無効化が可能になりました。 −−− 使用例 −−− 'システムメニューのウインドウハンドルを取得する 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& 'nPositionはメニュー項目のID値 Public Const SC_CLOSE = &HF060 '閉じる(C) '************************************************************ '* 機能 ： メニュー項目の閉じる[×]ボタンを無効化に設定 '* 引数 ： objForm=無効化したいフォームオブジェクト '************************************************************ Public Sub RemoveSysMenu(ByVal objForm As Object) dim lnghwnd As Long 'システムメニューのウインドウハンドルを取得する lnghwnd = GetSystemMenu(objForm.hwnd, 0) 'システムメニューの項目を削除する RemoveSysMenu = RemoveMenu(lnghwnd, SC_CLOSE, MF_BYCOMMAND) End Function −−− ここまで −−−