Page 463 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ INDEX ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Accessの終了ボタンの非表示 たかぽん 03/11/27(木) 18:48 ┣Re:Accessの終了ボタンの非表示 しろくろやぎ 03/11/28(金) 13:55 ┗Re:Accessの終了ボタンの非表示 でん 03/12/2(火) 9:42 ┗Re:Accessの終了ボタンの非表示 たかぽん 03/12/6(土) 21:12 ┗Re:Accessの終了ボタンの非表示 でん 03/12/10(水) 10:55 ┗Re:Accessの終了ボタンの非表示 たかぽん 03/12/15(月) 23:59 ─────────────────────────────────────── ■題名 : Accessの終了ボタンの非表示 ■名前 : たかぽん ■日付 : 03/11/27(木) 18:48 -------------------------------------------------------------------------
Formには終了ボタンの表示、非表示を設定するプロパティがありますが、Access自体の終了ボタンを非表示にする方法を教えてください |
▼たかぽん さんWrote: >Formには終了ボタンの表示、非表示を設定するプロパティがありますが、 >Access自体の終了ボタンを非表示にする方法を教えてください WindowsAPIのGetWindowLong()、SetWindowLong()とDrawMenuBar()を使えば できますが、Accessのハンドルをどうにかして取らないといけません。 それがパッと思いつきません.... |
たかぽん さん こんにちわ この記述を、標準モジュールに書いてみて下さい。 Option Compare Database 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 BatsuBatsu() 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 で、BatsuBatsu をクラスモジュールから呼んで下さい。 私は、ある起動フォームのオープンイベントから呼んでいます。 Private Sub Form_Open(Cancel As Integer) BatsuBatsu 'Accessの「×」ボタンを無効 End Sub こんなんで如何でしょう? じゃ! |
でんさん ありがとうございます 教えてもらったとおりにしたらできました しばらく質問箱を見てなくてお礼がおそくなってすみません 結構大きい本屋さんに行ってAccessの本を全部見たんですけど(目次と索引だけですが)載っていなかったのにすごいですね どこでこういう知識を得るんですか? さしつかえなかったら教えてください |
たかぽんさん どうもです。 お役に立てて何よりです。 >結構大きい本屋さんに行ってAccessの本を全部見たんですけど(目次と索引だけですが)載っていなかったのにすごいですね すごくはないですよ。 私もいろんなサイトを調べまくって見つけたのを利用していただけですから。 >どこでこういう知識を得るんですか? 私も最初の頃は本をあさっていましたが、非常に見つかりにくかったです。 で、いろんなサイトを覗かせて貰おうかと・・・。 アクセス・エクセル・VBA等々、分からなければそこら中の関連サイトを 探します。ただ、質問するのは何故かここなんですけどね。(^^ゞ 私もまだまだ初心者の域を出る事が出来ません。 これからもこのサイトにも沢山お世話になると思います。 だから分かる範囲で自分も誰かのお手伝いをしようと思っています。 それも勉強になりますしね。 共に頑張りましょう! |
何かちょっと自信をなくしかけていましたがまたがんばれそうな気がしてきました アドバイスいろいろありがとうございました |