シフトを使った隠れメニューを作るには？

質問

みなさま、いつも助けていただいてありがとうございます。

よくEXCELなどで、シフトを押しながらプルダウンメニューをクリックすると、普段は出ていないメニューが見えるようになりますが、VB6でこれを実現する方法はありませんでしょうか？

メニューエディタで作るとm1とかm2とか生成されますが、そのclickイベント発生時にSHIFTキーが押されているかどうかを判別してm13.visible=trueのようにすればいいと思うのですが、その判別方法がわかりません。

よろしくお願いします。

回答No.1

taka_tetsu · ベストアンサー

WindowsAPIのGetKeyState()を使うのが簡単だと。

ちなみに、VK_SHIFTは&H10です。

参考URL：

http://www.vbvbvb.com/jp/gtips/0151/gGetKeyStateVkControl.html

補足

ありがとうございます。SHIFTキーの取得はできました。

ただ、今度は「親メニューからはvisibleプロパティーを設定できません」というエラーが出るようになりました。

他の見えないボタンを作ったり、FUNCTIONを作ったりしてm13.visible=trueを実現したいのですが、それでも同じメッセージができます。

何かいい方法ないでしょうか？

回答No.2

TAGOSAKU7

SHIFT　CTRL
はメニューが表示中には拾えません。
これはVBだからと言うわけでなく、CでAPIでガチガチに書いても、同じくだと思います。

というのは、WindowsからはVK_SHIFTなどは送られているのですが、フォームをフックしても、情報が拾えないのです。メニューの表示中にキーイベントで、フォームで得る値はWM_ENTERIDLEだけです。

唯一考えられる方法としては、フォームをフックするのではなくOSをフックする方法ですが、かなりキツイッす。

私の個人の考えでは(逃げじゃなくて本心で)、、、
「SHIFTを押しながら選択すると機能が変わる」
のではなく
「SHIFTあり/なしでは、表示するメニューが違う」
といった方がスマートに思えます。

お礼

回答ありがとうございます。

確かにＥＸＣＥＬでは新しいメニューが現れるのではなく「コピー」が「画像のコピー」に変わるだけですね。

結局、別のボタンのシフト＆クリックで隠しメニューを出現させる仕様にしました。