2

実行時にデータベースからコンテキスト メニューを設定する必要があります。リストに何個入るかわからないので、クリックイベントは一箇所で処理したいです。どのメニュー項目が実際にクリックをトリガーしたかを知ることができるように、ハンドラーを宣言するにはどうすればよいですか。

Public Function GetBookmarkContextMenu(ByVal aBookmark As Bookmark) As System.Windows.Controls.ContextMenu

    Dim myContextMenu As New Controls.ContextMenu
    myContextMenu.Name = "BookmarkMenu" 

             For Each aMailingList As MasterService.FalconBookmarkMailingListType In GlobalUserSettings.MailingLists

                Dim mySubMenuItem As New Controls.MenuItem
                mySubMenuItem.Name = "MailingListName" & aMailingList.ID.ToString
                mySubMenuItem.Header = aMailingList.Title
                AddHandler (myMenuItem.Click), AddressOf ForwardToList_Click
                mySubMenuItem.IsEnabled = True
                myMenuItem.Items.Add(mySubMenuItem)
            Next
            myContextMenu.Items.Add(myMenuItem)

            return myContextMenu
End Function

Public Sub ForwardToList_Click()
    'How do I know which of the dynamically created items was clicked?
End Sub
4

3 に答える 3

2

コメントを追加できないので、ここに置きます。AundyKarthick からの優れた返信により、私の結果は次のようになりました。

この場合、最初にフォームに contextmenustrip を作成します ContextMenuStrip1

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
  NamesTableAdapter.Fill(DataSet.Names)
  For Each element In DataSet.Names
     Dim mnuitem As New ToolStripMenuItem
     mnuitem.Name = element.Item(1)
     mnuitem.Text = element.Item(1)
     AddHandler (mnuitem.Click), AddressOf ToolMenuItem_Click
     ContextMenuStrip1.Items.Add(mnuitem)
  Next
End Sub

Private Sub ToolMenuItem_Click(sender As Object, ByVal e As EventArgs) 
    textbox1.Text = sender.name
End Sub
于 2014-01-03T11:05:35.780 に答える
1 
Dim mnuitm As New ToolStripMenuItem
mnuitm.Name = name_cbk.Items(i)
mnuitm.Text = name_cbk.Items(i)
AddHandler (mnuitm.Click), AddressOf item_Click
menulist.Items.Add(mnuitm)
于 2010-12-25T06:53:11.793 に答える
0

ForwardToList_Click() には、送信者とイベント引数のパラメーターが含まれている必要があります。

Public Sub ForwardToList_Click(sender As Object, e As EventArgs)
'...
End Sub

「送信者」は、イベントを引き起こしたコントロールです。これは、あなたが探していると私が信じているものです。

于 2008-11-17T20:19:06.647 に答える