プロシージャにコントロールの配列を渡すには (ID:125776)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6(SP6)Windows98_SE、Visual Studio TM6.0(SP6)でやってます。 素人の趣味のプログラミングです。 良ければご指導お願いします。 デザイン用と再現用のプログラムを作成し、ユーザーが簡単なシュミレーションを作成出来るソフトを開発しています。 デザイン時に以下のメニューを作成しておいて、再現用プログラム側でファイルから配列に情報をロードして、ユーザー設定メニューを作成、表示します。 目的のメニューは作成出来たのですが、コーディングが冗長な気がします。 プロシージャの引数にコントロールの配列を渡す方法をネットの検索で知り、 試しましたがうまく行きません。 一応目的のメニューやツールバー(メニュー項目と同じ)等設定し、動作確認出来ていますが、気の利いたコーディングのご指導お願いします。 デザイン時のメニュー設定(名前) mnuTitle(0) |...mnuItm0(0) mnuTitle(1) |...mnuItem1(0) mnuTitle(2) |...mnuItem2(0) mnuTitle(3) |...mnuItem3(0) mnuTitle(4) |...mnuItem4(0) 'mnuTitle()はメニュータイトルControlの配列 'mnuItem0()〜mnuItem4()は各メニュータイトル毎のアイテムControlの配列 'usrItemCount() はmnuTitle()毎のアイテムの数 'usrMenuTitle() はmnuTitle()毎のキャプション 現状は以下の様なコードをメニュータイトルの数だけ繰返し書いています。 If usrItemCount(0) <> 0 Then 'メニュータイトルを変更 mnuTitle(0).Caption = usrMenuTitle(0) '項目を追加する For i = 1 To usrItemCount(0) - 1 Load mnuItem0(mnuItem0.Count) '↑------の部分がネック---------- Next '項目名を変える For i = 0 To usrItemCount(0) - 1 mnuItem0(i).Caption = usrMenuItem(i).caption '↑------の部分がネック------------------------- Next 'メニューを表示する mnuTitle(0).Visible = True End If