実行時に、メニューコントロールにアイテムを追加する方法

質問

お世話になっております。

実行時、コマンドボタン等を使って動的にメニューコントロールにアイテムを追加する方法がわかりません。
メニューコントロールは、情報が少ないので探しきれませんでした。
どなたか分かる方がいらっしゃれば教えてください。

環境は、win98+VB6.0です。

回答No.1

todo36

配列番号0のメニューを一つ作っておいて、実行時に配列を増やすのはどうでしょう。

Private Sub Command1_Click()

Dim i As Integer

'配列番号1～4のメニューを追加
For i = 1 To 4
Load Menu1(i)
With Menu1(i)
.Caption = "メニュー" & i
.Visible = 1
End With
Next
End Sub

Private Sub Menu1_Click(Index As Integer)

MsgBox Menu1(Index).Caption & "を選択しました"
End Sub

お礼

結局、レベルを下げてメニューアイテムを追加・・・というのは私の力では無理だったので、TreeViewで代替しました。
長々と引っ張ってしまいすいませんでした。

補足

MSDNを探したら配列から追加できました。すいませんでした。

そこでさらに質問ですが、
追加したインスタンスですが、レベルを一段下げるにはどうすれば良いのでしょうか。
そして、追加したインスタンスを削除するには、Unloadでいいのでしょうか。