Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4229 / 9994

←次へ　｜　前へ→


	【9012】Re:Accessタイトルバーのxボタン無効化

kohji - 07/1/19(金) 10:06 -


	引用なし

	パスワード

rino さん　こんにちは

以下で　Accessの閉じるボタンの無効化ができました
参考にしてください

Option Compare Database
Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal fRever As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fuFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Private Const MF_BYCOMMAND = &H0&
Private Const SC_SIZE = &HF000
Private Const SC_MAXIMIZE = &HF030
Private Const SC_CLOSE = &HF060
Private Const SC_RESTORE = &HF120

Public Function SetAccWinStyle()
　　Dim hWnd As Long

　　hWnd = GetSystemMenu(hWndAccessApp, 0)
　　RemoveMenu hWnd, SC_CLOSE, MF_BYCOMMAND
　　DrawMenuBar hWndAccessApp
End Function

509 hits

▼

【8936】Accessタイトルバーのxボタン無効化 rino 07/1/5(金) 15:54