オーナードローメニュープログラム Ver.7a

これはＶＢの統合環境やMS Officeなど、最近のプログラムではすっかりお馴染みとなったメニュー項目の左脇に画像表示（右の絵のような）をＶＢでも実現できるようにするプログラムです。 使い方は簡単。プロジェクトに、付属の標準モジュールを１つ追加するだけです。あとは、数行＋α（表示する絵の数）の追加で、簡単に実現できます。 このモジュールで、できることは以下のとおり。 メニュー左脇にピクチャを表示できます。 チェック、アンチェック時のピクチャに別々のピクチャを設定できます。 アンチェック時のピクチャしか登録していない場合は、その画像を元にチェック時の表示をします。（１つのピクチャでチェックかアンチェックかわかります。） メニュー項目自体にもピクチャを表示できます。 表示できるピクチャはアイコンとビットマップの２種類が使えます。 ビットマップの場合でも透明色の指定を正しく行えばアイコンと同じように背景色を透過表示することが可能！！ メニュー構造は、自動で取得するので面倒な設定が一切ありません。 階層構造のメニューでも問題なく動作します。 メニューの表示スタイルを３種類から選択できます。 メニューの左側にグラデーションが表示できます。更にその上に文字列やピクチャを重ね合わせて表示できます。 メニュー項目が動的に変化しても、ある程度までなら対応できます。 他、使う人のアイディア次第でいろいろできます。リストも付いているので、腕に覚えのある人は、色々な機能を追加できることでしょう。

関数説明

• 初期化/登録/解放関係
  

  InitializeOwnMenu()

  本モジュール内部で使う変数の初期化を行います。 これは、プログラム起動時に１度だけコールします。何度もコールされた場合の動作は保証されません。

  AllocMenu( hWnd , ImageWidth , ImageHeight )

  hWnd - 登録するメニューのあるウインドウのウインドウハンドル ImageWidth - （省略可）メニュー左脇に表示するピクチャの幅 ImageHeight - （省略可）メニュー左脇に表示するピクチャの高さ オーナードロー属性付きメニューにするウインドウを登録します。登録はウインドウ単位で行われ、登録時に表示状態にあるメニューが全てが取り込まれます。 ImageWidth ImageHeight 引数に値を設定することでメニュー左脇のピクチャの大きさを設定できます。指定が無い時は、どちらにも16が設定されます。

  FreeMenu( hWnd )

  hWnd - 開放するメニューのあるウインドウのウインドウハンドル AllocMenu 関数で登録したメニューを解放します。この関数は必ずウインドウが廃棄される前に呼び出してください。

  FreeMenuAll()

  モジュールに登録されているメニューを全て解放します。

• 位置指定/表示関係
  

  SetMenuPosition( hWnd , mIndex , sIndex() )

  hWnd - 設定を変更するウインドウのウインドウハンドル mIndex - 設定を変更するメニューの位置 sIndex - （省略可）設定を変更するサブメニューの位置 SetMenuItemPicture SetMenuItemString SetMenuSeparator InsertMenuItem DeleteMenuItem VisibleMenuItem 関数で使用するメニューの位置を設定します。 メニュー位置の詳しい説明はここにあります。

  SetMenuItemPicture( Pos , picCheck , picUncheck , picMenuItem )

  Pos - 項目位置（上から0、1、2…） picCheck - （省略可）チェック時に表示するピクチャが格納されたPictureオブジェクト picUncheck - （省略可）未チェック時に表示するピクチャが格納されたPictureオブジェクト picMenuItem - （省略可）項目欄に表示するピクチャが格納されたPictureオブジェクト メニュー項目内に表示させるピクチャの設定をします。 メニュー左脇にピクチャを表示させるだけならば、picUncheck に値を設定するだけでOKです。 そのときのピクチャの大きさは、メニュー登録時に設定された大きさに拡大・縮小されて表示されます。

  SetMenuItemString( Pos , MenuStr , AcceStr )

  Pos - 項目位置（上から0、1、2…） MenuStr - 項目欄に表示させる文字列　 AcceStr - （省略可）ショートカットキー欄に表示させる文字列 メニュー項目欄に表示する文字列を設定します。ショートカットキー欄に表示する文字列も設定できます。 が、あくまで表示を切り替えるだけで、ショートカットキー自体の設定を切り替えるわけではありません。 メニュー項目欄に表示する文字列は、 定数 vbNewLine をはさむことにより複数行にわたって表示させることができます。

  SetMenuSeparator( Pos , nStyle , picSeparator )

  Pos - 項目位置（上から0、1、2…） nStyle - セパレータの表示スタイル picSeparator - （省略可）セパレータとして使うピクチャ セパレータのデザインを変更します。nStyle の設定値は下の表を参考にしてください。 nStyleの値 効果 0 標準（初期値） 1 点線 2 破線　 3 一点鎖線　 4 二点鎖線　 97 ピクチャ表示　 98 ピクチャ引き伸ばし表示　 99 ピクチャ連続表示

  SetMenuTitle( nStyle , Title , nColor , GradStart , GradEnd , nFont )

  nStyle - タイトル表示位置 Title - （省略可）表示するタイトル nColor - （省略可）表示する文字列の色 GradStart - （省略可）グラデーションの下側の色 GradEnd - （省略可）グラデーションの上側の色 nFont - （省略可）表示する文字列のフォント メニュー脇のタイトルの表示を設定します。nStyle の設定値は下の表を参考にしてください。 Title に文字列を設定すれば文字列が、Pictureオブジェクトを設定すればそのピクチャが表示されます。 グラデーションの下側の色の初期値は、アクティブウインドウのタイトルバーの色です。 グラデーションの上側の色の初期値は、OSによって異なります。Win98以降なら、アクティブウインドウのタイトルバーの右側の色が。それ以前のOSなら黒が初期値になります。 フォントの初期値は、アクティブウインドウのタイトルバーのフォントの値になります。 nStyleの値 効果 0 非表示（初期値） 1 下側に表示 2 上側に表示

• 通知/表示切替関係
  

  InsertMenuItem( Pos , picCheck , picUncheck , picMenuItem )

  Pos - 項目位置（上から0、1、2…） picCheck - （省略可）チェック時に表示するピクチャが格納されたPictureオブジェクト picUncheck - （省略可）未チェック時に表示するピクチャが格納されたPictureオブジェクト picMenuItem - （省略可）項目欄に表示するピクチャが格納されたPictureオブジェクト メニュー項目が動的に追加された場合にどこの位置に追加されたかを本プログラムに通知します。その際に、表示するピクチャの設定もできます。 必ず、追加してから通知してください。

  DeleteMenuItem( Pos )

  Pos - 項目位置（上から0、1、2…） メニュー項目が動的に削除する前に、どこの位置の項目を削除するか本プログラムに通知します。 必ず、削除する前に通知してください。

  VisibleMenuItem( Pos , nFlag , MenuObj )

  Pos - 項目位置（上から0、1、2…） nFlag - 表示フラグ（True:表示 False:非表示） MenuObj - Visibleプロパティを切り替えるメニューオブジェクト メニューオブジェクトの Visible プロパティを切り替えます。Visible プロパティを切り替えるときは直接変更せずに、この関数を使って切り替えてください。 Visible プロパティを直接切り替えた場合は、表示が正常にできません。

• カスタマイズ関係
  

  SetMenuFont( hWnd , NewFont )

  hWnd - フォントの変更をするメニューのあるウインドウのウインドウハンドル NewFont - 新しく設定するフォントのデータが格納されたFontオブジェクト メニューで表示するフォントを設定します。初期値は、コントロールパネルの画面のデザインで設定されてる値です。

  SetMaskColor( Mask , nMode )

  hWnd - 透明色の設定をするウインドウのウインドウハンドル Mask - 透明色の色 nMode - （省略可）透明色の指定モードを切り替えます。 ビットマップ画像の透明色の設定をします。色の初期値はメニューの背景色です。 nModeの設定値は下の表を参考にしてください。 nModeの値 効果 0 Maskで設定された色の全てを透明色として扱います。（初期値） 1 ピクチャの左上隅のピクセルの色を透明色として扱います。Maskで指定された値は無視されます。 2 Maskで設定された色を透明色として扱いますが、対象になるのはピクチャの周りにあるピクセルだけです。ピクチャ内部にあるピクセルは無視されます。 これはVB付属のビットマップが、背景色に灰色を使っているために 灰色を透明色にすると、プリンタなどのピクチャはうまく表示することが出来ないための処置です。 3 基本的にnMode=2と同じですが、ピクチャの左上隅の色を透明色として扱います。Maskで指定された値は無視されます。

  SetMenuStyle( hWnd , nMode )

  hWnd - メニュースタイルを切り替えるウインドウのウインドウハンドル　 nMode - メニュースタイルの番号 メニュースタイルを切り替えます。nModeの設定値は下の表を参考にしてください。 nModeの値 効果 0 - 標準（初期値） 1 - VB風 2 - IE5のツールバー風

メニュー位置の説明

たとえば、右のようなメニューがあったとします。 このとき「ステータスバー(S)」の位置は [ 2 , 1 ] 「大きいアイコン(G)」の位置は [ 2 , 3 ] 「日付順(D)」の位置は [ 2 , 8 , 3 ] とあらわします。

それぞれの位置をあらわしている数字の最初の”2”は一番上のメニューの左からの位置を表します。
この時、一番左の「ファイル(F)」を”０”と数え右に行くにつれて１ずつ増えていきます。
この数え方でいくと「表示(V)」は”２”となります。

次の数字は、最初に選んだメニュー位置の上から数えた項目の位置をあらわします。
こちらも、先ほどと同様に一番上が”０”となります。そして、下に行くにしたがって１ずつ増えていきます。この時、セパレータも１つの項目として数えます。
そのために、「大きいアイコン(G)」の位置を表す数値の２番目の値が”３”となります。

項目がサブメニュー内に存在する場合は、２番目の値がサブメニュー親の項目の位置になり、３番目の値が項目位置になります。
サブメニューのサブメニューがあった場合でも同様になります。

上の方法で、位置を割り出した後、プログラム中で値を設定するときは、SetMenuPosition 関数には、最後の数値以外を指定します。
そして、最後の数値をSetMenuItemPicture 関数などの表示関係の関数に設定します。

実際にプログラム中で設定する場合は、以下のようになります。

「ステータスバー(S)」にピクチャを設定する場合 SetMenuPosition( Me.hWnd , 2 ) SetMenuItemPicture( 1 , , Image1.Picture )

「大きいアイコン(G)」にピクチャを設定する場合 SetMenuPosition( Me.hWnd , 2 ) SetMenuItemPicture( 3 , , Image2.Picture )

「日付順(D)」にピクチャを設定する場合 SetMenuPosition( Me.hWnd , 2 , 8 ) SetMenuItemPicture( 3 , , Image3.Picture )

位置指定が２段階になっているのは、入力の手間を減らすためと、プログラム的にこの方が簡単だからです。

VB標準プロパティの対応状況

Caption 参照 - デザイン時の値を返します。SetMenuItemString 関数による変更は反映されません。 代入 - Caption プロパティに直接代入せず、SetMenuItemString 関数を使用してください。 直接代入するとオーナードロー属性が解除されてしまい、うまく動作できません。 Checked 参照 - 通常どおり操作できます。 代入 - Enabled 参照 - 通常どおり操作できます。 代入 - Visible 参照 - 通常どおり操作できます。 代入 - VisibleMenuItem 関数を使ってください。 直接代入するとオーナードロー属性が解除されてしまい、うまく動作できません。 その他 通常どおり動作すると思います。

基本的に表示のプロパティ（ Caption や Visible ）を変更するときは直接変更せずに、変更用の関数を呼び出して変更してください。
これは、VBが表示を変更する時にオーナードロー属性を解除してしまうためです。オーナードロー属性が解除されると表示が乱れてします。
そのために変更用の関数が存在するわけです。

状態のプロパティ（ Checked や Enabled ）を変更する場合は、そのまま変更しても問題ありません。
ただし、APIを使って変更した状態はVB上から読み出すことができません。
これは、VBのメニューは基本的に代入時はVB内部情報とOS側の状態を変更するのに対し、参照時は内部に格納されている値を返すために起こる現象です。

Visible プロパティは更に特殊で、OS自身に Visible プロパティに相当するものがありません。そこで、メニュー上に項目を挿入・削除することで実現させています。
そのために、AllocMenu 関数を呼び出した時点で表示状態になっていないメニュー項目は読み出すことが出来ません。
出来れば、メニューデザイン時に全てのメニュー項目を表示状態にしておくことをお勧めします。
しかし、どうしてもデザイン時に非表示にする必要がある場合は、最初の表示のときに InsertMenuItem 関数を呼び出してください。その後は VisibleMenuItem 関数を使って変更することが出来ます。

※ここに記してあるVBの内部動作については私が独自に調べたものです。間違い等の報告・質問・苦情等は私宛にお願いします。

その他

このプログラムは私が使いやすいように＆昔組んだプログラムに組み込みやすいようにを基本コンセプトに作られています。
おかげで、コメントが殆ど入っていません。最適化も殆ど行っていません。
そのため、他の人が使うと案外使いにくいかもしれません。しかも、まだ発展途上でバグが無いとは言い切れません。
そこで、改良・改造・アイディア等々、皆様の意見・感想・苦情・その他諸々なんでもお待ちしています。あて先はこちら。

それから、このプログラムはフリーウェアです。著作権も主張しません。自由にプロジェクトに組み込んでもらって結構です。
ただ、このプログラムを利用したことによって、いかなる損害を被っても、作者は一切の責任を負いません。(負えません。)　あらかじめご了承ください。

変更履歴