愚者の経験

「また今度」はほとんどこない

月別アーカイブ: 11月 2011

フォームの右クリックメニューとデータシートの「▼」

データシート形式のフォームの列の右上についている『▼』

この部分

これは並び替えやフィルタを使う機能ですが
これを消したいときはどうしますか?
意外と難しいかったのでメモしておきます。
なにが難しいかというと、右クリックメニューです。

フォームの「ショートカットメニュー」プロパティに「False」を指定すれば消えます。
しかし右クリックメニューが出なくなるため、「コピー」「貼り付け」等のメニューも出ませんので不便です。

そこでどうするかというとフォームの「ショートカットメニュー」に「False」を指定した上で
フォームの「読み込み時」イベントに以下のコードを記述します。

Me.ShortcutMenu = True
「ショートカットメニュー」に「False」を指定し上記コードを実行

ここで意外にもフォームの「ショートカットメニュー」に「True」を指定します。
「同じじゃないか!」と思いますがこれでOKです。
他に「ショートカットメニューバー」というのもありますがこれも「ショートカットメニュー」が「False」だと
レコードセレクタとフォームのタブの部分でしか出なくなりますので注意。

広告