Access VBA質問箱 IV

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

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


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

4192 / 9994

←次へ　｜　前へ→


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

かめ - 07/1/30(火) 18:46 -


	引用なし

	パスワード

▼kohji さん：
>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

すみません。このコードをどこに記入すればよいのでしょうか。
教えてください。よろしくお願いします。

460 hits

▼

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