tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル メニューのセットについて
投稿日: 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

別の方法でも良いのですが、階層付メニューのタイトルをファイル等のデータを元に実行時に設定したいと思っています。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。