VB2005Expressで、ContextMenu内のItemを動的に変更させたいと思い、ContextMenuStrip1.Items.Add()で記述だけは動的に変化させることができましたが、変化するItemに対するコードを記述しようとした途端にその方法がまったくわからないことに気づきました。

URL はダミーです。

VB2005Pro で試しました（VB2005Express では試していないのでもしかしたら違っているかも知れません。）

選択されたメニューのインデックスを取得するスマートな方法（プロパティ等）は無さそうです。

方法として、ContextMenuStrip.Items コレクションの各アイテム（ToolStripMenuItem）をループでたどり、

アイテムの Selected が True なものがあればクリックされたアイテムとして判断できるかと思います。

（このときのループカウンタがインデックスに相当します。）

また、別の方法として、メニューアイテム追加時に Tag（タグ）プロパティにインデックス値を

セットしておけば、それを使用できるかと思います。

以下、サンプルコードです。

はてな投稿時に一部記号が全角になっているかと思いますので使用される場合は、お手数ですが半角に直してください。

＜メニューにアイテムを追加するサンプル＞

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　Dim newItem As ToolStripMenuItem = New ToolStripMenuItem

　　Dim strItemName As String

　　Dim nItemNo As Integer

　　nItemNo = ContextMenuStrip1.Items.Count + 1

　　strItemName = ”Item - ” & nItemNo.ToString()

　　newItem.Text = strItemName

　　newItem.Tag = nItemNo.ToString() ’ タグ名を設定

　　ContextMenuStrip1.Items.Add(newItem)

End Sub

＜クリックされたメニューの「インデックス」を取得するサンプル＞

Private Sub ContextMenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuStrip1.ItemClicked

　　Dim strip As ContextMenuStrip

　　strip = sender

　　Dim item As ToolStripMenuItem

　　Dim nItemNo As Integer

　　Dim i As Integer

　　For i = 0 To strip.Items.Count - 1

　　　　item = strip.Items(i)

　　　　’ 選択されたアイテム＝クリックされたアイテムとして条件判断する

　　　　If item.Selected Then

　　　　　　nItemNo = i + 1

　　　　　　MsgBox(”[Item - ” & nItemNo.ToString() & ”] is Selected!”)

　　　　End If

　　Next

End Sub

＜クリックされたメニューの「タグ」を取得するサンプル＞

Private Sub ContextMenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuStrip1.ItemClicked

　　Dim item As ToolStripMenuItem

　　item = e.ClickedItem

　　’ タグ名で条件判断する

　　Select Case item.Tag

　　　　Case ”1”

　　　　　　MsgBox(”First”)

　　　　Case ”2”

　　　　　　MsgBox(”Second”)

　　　　Case ”3”

　　　　　　MsgBox(”Third”)

　　　　Case Else

　　　　　　MsgBox(”Other”)

　　End Select

End Sub

Add()で増やしたObjectにはAddHandlerでイベントをつけることが出来ます。

----先にイベントを作る----

Sub itemClick(ByVal sender As Object, ByVal e As EventArgs)

Msgbox(sender.Tag)

End Sub

----ItemをAddするときイベントをつける-----------

Dim itemA As ToolStripItem = ContextMenuStrip1.Items.Add(”pepp”)

AddHandler itemA.Click, AddressOf itemClick

For i As Integer = 0 To ContextMenuStrip1.Items.Count

ContextMenuStrip1.Items(i).Tag = i

Next

--------

こうするとToolStripItemをクリックするとIndexみたいなものの値がMsgboxされます。