過去ログ

                                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自体の終了ボタンを非表示にする方法を教えてください

 ───────────────────────────────────────  ■題名 : Re:Accessの終了ボタンの非表示  ■名前 : しろくろやぎ  ■日付 : 03/11/28(金) 13:55  -------------------------------------------------------------------------
   ▼たかぽん さんWrote:
>Formには終了ボタンの表示、非表示を設定するプロパティがありますが、
>Access自体の終了ボタンを非表示にする方法を教えてください

WindowsAPIのGetWindowLong()、SetWindowLong()とDrawMenuBar()を使えば
できますが、Accessのハンドルをどうにかして取らないといけません。

それがパッと思いつきません....

 ───────────────────────────────────────  ■題名 : Re:Accessの終了ボタンの非表示  ■名前 : でん  ■日付 : 03/12/2(火) 9:42  -------------------------------------------------------------------------
   たかぽん さん こんにちわ

この記述を、標準モジュールに書いてみて下さい。
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

こんなんで如何でしょう?

じゃ!

 ───────────────────────────────────────  ■題名 : Re:Accessの終了ボタンの非表示  ■名前 : たかぽん  ■日付 : 03/12/6(土) 21:12  -------------------------------------------------------------------------
   でんさん ありがとうございます
教えてもらったとおりにしたらできました
しばらく質問箱を見てなくてお礼がおそくなってすみません

結構大きい本屋さんに行ってAccessの本を全部見たんですけど(目次と索引だけですが)載っていなかったのにすごいですね
どこでこういう知識を得るんですか?
さしつかえなかったら教えてください

 ───────────────────────────────────────  ■題名 : Re:Accessの終了ボタンの非表示  ■名前 : でん  ■日付 : 03/12/10(水) 10:55  -------------------------------------------------------------------------
   たかぽんさん どうもです。

お役に立てて何よりです。

>結構大きい本屋さんに行ってAccessの本を全部見たんですけど(目次と索引だけですが)載っていなかったのにすごいですね
すごくはないですよ。
私もいろんなサイトを調べまくって見つけたのを利用していただけですから。
>どこでこういう知識を得るんですか?
私も最初の頃は本をあさっていましたが、非常に見つかりにくかったです。
で、いろんなサイトを覗かせて貰おうかと・・・。
アクセス・エクセル・VBA等々、分からなければそこら中の関連サイトを
探します。ただ、質問するのは何故かここなんですけどね。(^^ゞ

私もまだまだ初心者の域を出る事が出来ません。
これからもこのサイトにも沢山お世話になると思います。
だから分かる範囲で自分も誰かのお手伝いをしようと思っています。
それも勉強になりますしね。
共に頑張りましょう!

 ───────────────────────────────────────  ■題名 : Re:Accessの終了ボタンの非表示  ■名前 : たかぽん  ■日付 : 03/12/15(月) 23:59  -------------------------------------------------------------------------
   何かちょっと自信をなくしかけていましたがまたがんばれそうな気がしてきました
アドバイスいろいろありがとうございました

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 463