tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルメニューのセットについて
記事No14111
投稿日: 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

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

[ツリー表示へ]
タイトルRe: メニューのセットについて
記事No14114
投稿日: 2009/09/27(Sun) 16:58
投稿者るしぇ
ジャグ配列かコレクションにでも入れておけば良いと思います。

[ツリー表示へ]