メニューに項目を追加、削除するには？ (ID:108826)

名前

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

本文 メニューエディタで非表示でIndexが0のメニューを一つ用意しておき、 実行時にLoadすれば出来ます。 削除する時はUnload。 例）コマンドボタンを２つとメニューエディタで非表示でIndexが0のmnuTestを作っておく。 Option Explicit Private Sub Command1_Click() Dim lCnt As Long lCnt = mnuTest.Count Load mnuTest(lCnt) mnuTest(lCnt).Visible = True End Sub Private Sub Command2_Click() Dim lCnt As Long lCnt = mnuTest.Count - 1 Unload mnuTest(lCnt) End Sub