タイトル : メニューのセットについて 投稿日 : 2009/09/25(Fri) 12:53 投稿者 : 高望み
メニューについて2つ教えてください。検索で探してみたのですが、期待するものを見つけることができませんでした。どなたかご助言お願いします。 メニューバーの背景色を変更する方法が知りたいと思い探してみたのですが、SetMenuItemInfo APIを使用するところまでで、具体的にどう設定するのかたどり着けませんでした。 また、下記のようにするとエラー"型が一致しません"になります。どなたかお分かりの方おられましたら教えてください。 (メニューはメニューエディタにて作成済みとして) dim mnu as Menu dim i as Integer For i = 0 to 9 Set mnu = "MenuS_" & i <- メニュー名が MenuS_1 〜 MenuS_9 で、変数にセットしたい <処理> Set mnu = Nothing Next なぜ MenuS(9) としていないかというと、 Menu(0) Menu(1) MenuS_1(0) MenuS_1(1) : Menu(2) MenuS_2(0) MenuS_2(1) : という構造にしていて、これを For-Nextのネストで回して処理したいのです。 不可能ですが、イメージとしては(伝わりにくい??)以下のような感じです。 Menu(0) Menu(1) MenuS(1,0) MenuS(1,1) : MenuS(1,9) Menu(2) MenuS(2,0) MenuS(2,1) : For i = 0 to Menu.Ubound Menu(i).Caption="Menu " & i For j = 0 to 9 MenuS(i,j).Caption = "Sub Menu " & j Next Next 別の方法でも良いのですが、階層付メニューのタイトルをファイル等のデータを元に実行時に設定したいと思っています。 |