C# と VB.NET の質問掲示板

2016/06/20(Mon) 08:55:56 編集(投稿者)
2016/06/20(Mon) 03:54:50 編集(投稿者)

自己解決しました。

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        '右クリックメニューの各項目をToolStripMenuItems_Clickに繋げる処理
       Dim buf As ToolStripMenuItem
        For Each buf In ContextMenuStripEX1.Items
            If buf.DropDownItems.Count = 0 Then
                AddHandler buf.Click, AddressOf ToolStripMenuItems_Click
            Else
                Call bufbufA(buf)
            End If
        Next
    End Sub

    Private Sub bufbufA(bufbuf As ToolStripMenuItem)
        For Each bufbuf In bufbuf.DropDownItems
            If bufbuf.DropDownItems.Count = 0 Then
                AddHandler bufbuf.Click, AddressOf ToolStripMenuItems_Click
            Else
                Call bufbufA(bufbuf)
            End If
        Next
    End Sub


    Private Sub ToolStripMenuItems_Click(sender As Object, e As EventArgs)
        （クリックが発生したラベルのTextプロパティをsender.Textに書き換える処理）
    End Sub


これで想定通りの挙動をするようになりました。